Pseudo-random numbers/Middle-square method: Difference between revisions

Content added Content deleted

Inline

@@ Line 717: / Line 717: @@
 </pre>
+=={{header|Quackery}}==
+As specified in task pseudo-code.
+<syntaxhighlight lang="Quackery">  [ dip [ split nip ]
+    split drop ]           is mid  ( [ n n --> [ )
+  [ stack 675248 ]         is seed (       --> n )
+  [ seed take
+    dup * number$
+    [ dup size 12 != while
+      char 0 join
+      again ]
+6 mid $->n drop
+    dup seed put ]         is rand (       --> n )
+times [ rand echo sp ]</syntaxhighlight>
+Divide and modulo.
+<syntaxhighlight lang="Quackery">  [ stack 675248 ] is seed ( --> s )
+  [ seed take
+    dup * 1000 /
+    1000000 mod
+    dup seed put ] is rand ( --> n )
+times [ rand echo sp ]</syntaxhighlight>
+{{out}} For both versions.
+<pre>959861 333139 981593 524817 432883</pre>
 =={{header|Raku}}==