Subtractive generator: Difference between revisions
Added Quackery.
(Added Gambas) |
(Added Quackery.) |
||
Line 1,889:
{{out}}
<pre>[467478574, 512932792, 539453717, 20349702, 615542081]</pre>
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery"> [ stack ] is randoms ( --> s )
' [ 292929 1 ]
53 times
[ dup -2 peek
over -1 peek
- 1000000000 mod
join ]
dup witheach
[ swap
i^ 34 * 1 - 55 mod
poke ]
randoms put
[ randoms take
behead over 30 peek
- 1000000000 mod
tuck join
randoms put ] is rand ( --> n )
165 times [ rand drop ]
5 times [ rand echo cr ]</syntaxhighlight>
{{out}}
<pre>467478574
512932792
539453717
20349702
615542081</pre>
=={{header|Racket}}==
| |||