zzkt/i-ching
1
0
Fork 0
Code Issues 3 Pull requests Activity Actions

Quantum and atmospheric randomness should be 1-based #9

Closed
larkery wants to merge 1 commit from patch-1 into endless
pull from: patch-1
merge into: zzkt:endless
Conversation 6 Commits 1 Files changed 1 +2 -2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
i-ching.el
View file

@ -675,10 +675,10 @@ see: `i-ching-divination-method' & `i-ching-randomness-source' for details."
(pcase source (pcase source
('quantum (pcase n ('quantum (pcase n
(64 (i-ching-q64)) (64 (i-ching-q64))
(_ (/ (i-ching-q64) (/ 64 n))))) (_ (+ 1 (/ (i-ching-q64) (/ 64 n))))))
('atmospheric (pcase n ('atmospheric (pcase n
(64 (i-ching-r64)) (64 (i-ching-r64))
(_ (/ (i-ching-r64) (/ 64 n))))) (_ (+ 1 (/ (i-ching-r64) (/ 64 n))))))
('pseudo (+ 1 (random n))) ('pseudo (+ 1 (random n)))
(_ (_
(+ 1 (random n))))) (+ 1 (random n)))))