Последовательность вычислений и Работа с системой типов

Латин Ярослав/1ch.fs

@@ -0,0 +1,33 @@
+// For more information see https://aka.ms/fsharp-console-apps
+
+
+let mutable y1 = 1
+let _ = y1 <- y1*2 in
+let _ = y1 <- y1+1 in
+let _ = y1 <- y1+1 in
+
+printf "y1 = %A\n"y1
+
+let mutable x1 = 1
+let _ = x1 <- x1+1 in
+let _ = x1 <- x1*2 in
+let _ = x1 <- x1+1 in
+
+printf "x1 = %A\n"x1
+
+let mutable y = 1
+y <- y * 2
+y <- y + 1
+y <- y + 1
+
+
+printf "y = %A\n"y
+
+let mutable x = 1
+x <- x + 1
+x <- x * 2
+x <- x + 1
+
+
+printf "x = %A\n"x
+

Латин Ярослав/2ch.fs

@@ -0,0 +1,16 @@
+// For more information see https://aka.ms/fsharp-console-apps
+module kolok
+
+let mutable x = []
+
+let mutable refx = ref x
+
+let _ = refx <- ref [2]
+//let _ = refx <- ref [true]
+
+
+printf "%O\n" refx
+printf "%A\n" refx
+
+
+

Латин Ярослав/README.md

@@ -0,0 +1,16 @@
+# Последовательность вычислений и Работа с системой типов
+## Ссылка на видеоразбор
+
+## Код из книги
+Ярик Латин, [5/10/22 4:31 PM]
+let _ = x := !x + 1 in
+let _ = x := !x + 1 in
+let _ = x := !x + 1 in
+let _ = x := !x + 1 in
+();;
+
+Ярик Латин, [5/10/22 4:31 PM]
+x := !x + 1;
+x := !x + 1;
+x := !x + 1;
+x := !x + 1;;