In prg/dealcards.tal, try to exchange cards at random due to input, in order to try to increase the number of possible orders beyond the period of the random number generator. It is still not enough, but might be slightly increased a bit.

commit `dc8e96f`

zzo38 · 2025-09-05 00:33:02 +0000 UTC

parent 2d26274

In prg/dealcards.tal, try to exchange cards at random due to input, in order to try to increase the number of possible orders beyond the period of the random number generator. It is still not enough, but might be slightly increased a bit.

1 files changed, +7, -1

M prg/dealcards.tal

+7, -1

 1@@ -26,7 +26,13 @@
 2 @input
 3   [; #10 DEO2 BRK ]@
 4   #0417 DEI EQU ?begin
 5-  random SUB #12 DEI ;random/x STA2
 6+  \\ Try to exchange cards at random due to input
 7+  &re
 8+  #3f3f random AND2
 9+  DUP STHrk GTH ?/re SWP DUP STHrk GTH ?/re
10+  LDZk ROT LDZk STH SWP STZ STHr STZ
11+  \\ Change random number seed by input
12+  #12 DEI ;random/x STA
13   BRK
14 
15 @random ( -- number* )

commit dc8e96f

commit `dc8e96f`