Data commit

Task/Pseudo-random-numbers-Middle-square-method/Lambdatalk/pseudo-random-numbers-middle-square-method.lambdatalk

@@ -0,0 +1,25 @@
+{def W.fill
+ {lambda {:v :n}
+  {if {<= :n 0}
+   then
+   else :v{W.fill :v {- :n 1}}}}}
+-> W.fill
+
+{def W.pad
+ {lambda {:n :size}
+  {if {<= {W.length :n} :size}
+   then :n{W.fill :size {- :size {W.length :n}}}
+   else {W.slice 0 {- :size {W.length :n}} :n}}}}
+-> W.pad
+
+{def randoms
+ {lambda {:s :n}
+  {if {>= :n 0}
+   then :s
+        {randoms {W.pad {% {floor {/ {* :s :s} 1.e3}} 1.e6} 6}
+                 {- :n 1}}
+   else}}}
+-> randoms
+
+{randoms 959861 4}
+-> 959861 333139 981593 524817 432883