found and fixed a bug in ++shan

This commit is contained in:
johncburnham 2014-04-29 21:35:21 -07:00
parent 7aeebc2862
commit 54da18639a

View File

@ -4250,7 +4250,7 @@
=+ i=0
|-
?: =(i lex)
hax
(rep 5 (flop (rip 5 hax)))
=+ ^= wox
=+ dux=(cut 9 [i 1] ful)
=+ wox=(rep 5 (turn (rip 5 dux) net))
@ -4278,11 +4278,11 @@
i +(i)
hax %+ rep 5
:~
(sum e (wac 4 hax))
(sum d (wac 3 hax))
(sum c (wac 2 hax))
(sum b (wac 1 hax))
(sum a (wac 0 hax))
(sum b (wac 1 hax))
(sum c (wac 2 hax))
(sum d (wac 3 hax))
(sum e (wac 4 hax))
==
==
=+ fx=(con (dis b c) (dis (not 5 1 b) d))