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

more tweaks

Browse Source
This commit is contained in:
Anton Dyudin 2016-10-06 15:03:14 -07:00
parent 9e36618365
commit f9dfd400e5
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
arvo/jael.hoon
View File

@ -918,15 +918,17 @@
[~(uni ry ryt n.pig) l.pig r.pig] [~(uni ry ryt n.pig) l.pig r.pig]
?: (gor -.ryt -.n.pig) ?: (gor -.ryt -.n.pig)
=+ nex=$(pig l.pig) =+ nex=$(pig l.pig)
?> ?=(^ nex) =. l.pig nex
?: (vor -.n.pig -.n.nex) ?> ?=(^ l.pig)
[n.pig nex r.pig] ?: (vor -.n.pig -.n.l.pig)
[n.nex l.nex [n.pig r.nex r.pig]] [n.pig l.pig r.pig]
[n.l.pig l.l.pig [n.pig r.l.pig r.pig]]
=+ nex=$(pig r.pig) =+ nex=$(pig r.pig)
?> ?=(^ nex) =. r.pig nex
?: (vor -.n.pig -.n.nex) ?> ?=(^ r.pig)
[n.pig l.pig nex] ?: (vor -.n.pig -.n.r.pig)
[n.nex [n.pig l.pig l.nex] r.nex] [n.pig l.pig r.pig]
[n.r.pig [n.pig l.pig l.r.pig] r.r.pig]
:: :: ++intern:up :: :: ++intern:up
++ intern :: insert list ++ intern :: insert list
|= lin/(list rite) |= lin/(list rite)
@ -961,7 +963,7 @@
:- %pword :- %pword
%- ~(run by p.rys) %- ~(run by p.rys)
|= (map @ta @t) |= (map @ta @t)
(~(run by +<) |=(@t (crip (runt [(met 3 +<) '*'] ~)))) (~(run by +<) |=(@t (fil 3 (met 3 +<) '*')))
:: ::
$jewel $jewel
[%jewel (~(run by p.rys) |=(@ (mug +<)))] [%jewel (~(run by p.rys) |=(@ (mug +<)))]