urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

found and fixed a bug in ++shan

Browse Source
This commit is contained in:
johncburnham 2014-04-29 21:35:21 -07:00
parent 7aeebc2862
commit 54da18639a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/hoon.hoon
View File

@ -4250,7 +4250,7 @@
=+ i=0 =+ i=0
|- |-
?: =(i lex) ?: =(i lex)
hax (rep 5 (flop (rip 5 hax)))
=+ ^= wox =+ ^= wox
=+ dux=(cut 9 [i 1] ful) =+ dux=(cut 9 [i 1] ful)
=+ wox=(rep 5 (turn (rip 5 dux) net)) =+ wox=(rep 5 (turn (rip 5 dux) net))
@ -4278,11 +4278,11 @@
i +(i) i +(i)
hax %+ rep 5 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 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)) =+ fx=(con (dis b c) (dis (not 5 1 b) d))