ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 17:41:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

Flop a little more.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-01-16 11:08:26 -08:00
parent f552051f4c
commit d1b54827b3
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/gall.hoon
View File

@ -992,14 +992,18 @@
:: ::
++ said :: sayz, done wrong ++ said :: sayz, done wrong
|= vud=vase |= vud=vase
=- [p.fob (weld (flop q.fob) mow)] =- [(flop p.fob) (weld (flop q.fob) mow)]
^= fob ^= fob
|- ^- (pair (list toil) (list move)) |- ^- (pair (list toil) (list move))
?: =(~ q.vud) [~ ~] ?: =(~ q.vud) [~ ~]
=+ sud=(sump (slot 2 vud)) =+ sud=(sump (slot 2 vud))
=+ res=$(vud (slot 3 vud)) =+ res=$(vud (slot 3 vud))
:- ?~(-.sud -.res [u.-.sud -.res]) :- ?~ -.sud
?~(+.sud +.res [u.+.sud +.res]) -.res
[u.-.sud -.res]
?~ +.sud
+.res
[u.+.sud +.res]
:: ::
++ sayz :: dissect app moves ++ sayz :: dissect app moves
|= vud=vase |= vud=vase