Data commit

Task/Pseudo-random-numbers-Middle-square-method/CLU/pseudo-random-numbers-middle-square-method.clu

@@ -0,0 +1,21 @@
+middle_square = cluster is seed, next
+    rep = null
+    own state: int
+
+    seed = proc (s: int)
+        state := s
+    end seed
+
+    next = proc () returns (int)
+        state := (state ** 2) / 1000 // 1000000
+        return(state)
+    end next
+end middle_square
+
+start_up = proc ()
+    po: stream := stream$primary_output()
+    middle_square$seed(675248)
+    for i: int in int$from_to(1, 5) do
+        stream$putl(po, int$unparse(middle_square$next()))
+    end
+end start_up