ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 15:38:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

About to remove cnbc and cnhx.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-01-04 19:18:06 -08:00
parent 8c1eb9bace
commit 298384b3a9
1 changed files with 112 additions and 106 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

218
arvo/hoon.hoon
View File

@ -176,14 +176,16 @@
[%clls p=twig q=twig r=twig] :: [%clls p=twig q=twig r=twig] ::
[%clsg p=tusk] :: [%clsg p=tusk] ::
[%cltr p=tusk] :: [%cltr p=tusk] ::
[%clzp p=tusk] :: [%clzz p=tusk] ::
:: :: :: ::
[%cnbc p=term] :: [%cnbc p=term] ::
[%cnzy p=term] ::
[%cncb p=wing q=tray] :: [%cncb p=wing q=tray] ::
[%cncl p=twig q=twig] :: [%cncl p=twig q=twig] ::
[%cndt p=twig q=twig] :: [%cndt p=twig q=twig] ::
[%cnhp p=twig q=tusk] :: [%cnhp p=twig q=tusk] ::
[%cnhx p=wing] :: [%cnhx p=wing] ::
[%cnzz p=wing] ::
[%cntr p=wing q=twig r=tray] :: [%cntr p=wing q=twig r=tray] ::
[%cnkt p=twig q=twig r=twig s=twig] :: [%cnkt p=twig q=twig r=twig s=twig] ::
[%cnls p=twig q=twig r=twig] :: [%cnls p=twig q=twig r=twig] ::
@ -4127,7 +4129,7 @@
[%wtcl [%bczp %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)] [%wtcl [%bczp %bean] ^$(sec i.p.sec) $(p.sec t.p.sec)]
:: ::
[%herb *] [%herb *]
(home [%tsgl [%cnbc %$] p.sec]) (home [%tsgl [%cnzy %$] p.sec])
:: ::
[%kelp *] [%kelp *]
|- ^- twig |- ^- twig
@ -4290,7 +4292,9 @@
?- gen ?- gen
[^ *] [%2 $(gen p.gen) $(gen q.gen)] [^ *] [%2 $(gen p.gen) $(gen q.gen)]
[%cnbc @] p.gen [%cnbc @] p.gen
[%cnzy @] p.gen
[%cnhx [@ ~]] i.p.gen [%cnhx [@ ~]] i.p.gen
[%cnzz [@ ~]] i.p.gen
[%cnts [@ ~] ~] i.p.gen [%cnts [@ ~] ~] i.p.gen
[%zpcb *] $(gen q.gen) [%zpcb *] $(gen q.gen)
* =+(neg=open ?:(=(gen neg) [%0 ~] $(gen neg))) * =+(neg=open ?:(=(gen neg) [%0 ~] $(gen neg)))
@ -4298,9 +4302,9 @@
:: ::
++ jone ++ jone
^- (list twig) ^- (list twig)
?: ?=([%clzp *] gen) ?: ?=([%clzz *] gen)
p.gen p.gen
?: ?=([%zpcb * [%clzp *]] gen) ?: ?=([%zpcb * [%clzz *]] gen)
p.q.gen p.q.gen
[gen ~] [gen ~]
:: ::
@ -4334,9 +4338,9 @@
:+ %cnts ~ :+ %cnts ~
:~ [[[%& 6] ~] [%ktts p.lyg [~ 6]]] :~ [[[%& 6] ~] [%ktts p.lyg [~ 6]]]
== ==
[%brkt *] [%tsgr [%brcn (~(put by q.gen) %$ [%ash p.gen])] [%cnbc %$]] [%brkt *] [%tsgr [%brcn (~(put by q.gen) %$ [%ash p.gen])] [%cnzy %$]]
[%brls *] [%ktbr [%brts p.gen q.gen]] [%brls *] [%ktbr [%brts p.gen q.gen]]
[%brhp *] [%tsgr [%brdt p.gen] [%cnbc %$]] [%brhp *] [%tsgr [%brdt p.gen] [%cnzy %$]]
[%brts *] [%brcb p.gen (~(put by *(map term foot)) %$ [%ash q.gen])] [%brts *] [%brcb p.gen (~(put by *(map term foot)) %$ [%ash q.gen])]
[%brwt *] [%ktwt %brdt p.gen] [%brwt *] [%ktwt %brdt p.gen]
[%clkt *] [p.gen q.gen r.gen s.gen] [%clkt *] [p.gen q.gen r.gen s.gen]
@ -4365,17 +4369,19 @@
[i.p.gen $(p.gen t.p.gen)] [i.p.gen $(p.gen t.p.gen)]
$(p.gen (weld mow t.p.gen)) $(p.gen (weld mow t.p.gen))
:: ::
[%clzp *] open(gen [%clsg p.gen]) [%clzz *] open(gen [%clsg p.gen])
[%cnbc *] [%cnts [p.gen ~] ~] [%cnbc *] [%cnts [p.gen ~] ~]
[%cncb *] [%ktls [%cnhx p.gen] %cnts p.gen q.gen] [%cnzy *] [%cnts [p.gen ~] ~]
[%cncb *] [%ktls [%cnzz p.gen] %cnts p.gen q.gen]
[%cncl *] [%cnsg [%$ ~] p.gen q.gen] [%cncl *] [%cnsg [%$ ~] p.gen q.gen]
[%cndt *] [%cnhp q.gen [p.gen ~]] [%cndt *] [%cnhp q.gen [p.gen ~]]
[%cnkt *] [%cnhp p.gen q.gen r.gen s.gen ~] [%cnkt *] [%cnhp p.gen q.gen r.gen s.gen ~]
[%cnls *] [%cnhp p.gen q.gen r.gen ~] [%cnls *] [%cnhp p.gen q.gen r.gen ~]
[%cnhp *] [%cnhp *]
?@(q.gen [%tsgr p.gen [%cnbc %$]] [%cncl p.gen [%cltr q.gen]]) ?@(q.gen [%tsgr p.gen [%cnzy %$]] [%cncl p.gen [%cltr q.gen]])
:: ::
[%cnhx *] [%cnts p.gen ~] [%cnhx *] [%cnts p.gen ~]
[%cnzz *] [%cnts p.gen ~]
[%cnsg *] [%cntr p.gen q.gen [[[[%& 6] ~] r.gen] ~]] [%cnsg *] [%cntr p.gen q.gen [[[[%& 6] ~] r.gen] ~]]
[%cntr *] [%cntr *]
:+ %tsls :+ %tsls
@ -4384,8 +4390,8 @@
(weld p.gen `wing`[[~ 2] ~]) (weld p.gen `wing`[[~ 2] ~])
(turn r.gen |=([p=wing q=twig] [p [%tsgr [~ 3] q]])) (turn r.gen |=([p=wing q=twig] [p [%tsgr [~ 3] q]]))
:: ::
[%hxgl *] [%cnhp [%cnbc %noah] [%zpgr [%cltr p.gen]] ~] [%hxgl *] [%cnhp [%cnzy %noah] [%zpgr [%cltr p.gen]] ~]
[%hxgr *] [%cnhp [%cnbc %cain] [%zpgr [%cltr p.gen]] ~] [%hxgr *] [%cnhp [%cnzy %cain] [%zpgr [%cltr p.gen]] ~]
:: ::
[%ktdt *] [%ktls [%cnhp p.gen q.gen ~] q.gen] [%ktdt *] [%ktls [%cnhp p.gen q.gen ~] q.gen]
[%kthp *] [%ktls ~(bunt al p.gen) q.gen] [%kthp *] [%ktls ~(bunt al p.gen) q.gen]
@ -4394,7 +4400,7 @@
:- %mean :- %mean
=+ fek=~(feck ap p.gen) =+ fek=~(feck ap p.gen)
?^ fek [%dtsg %tas u.fek] ?^ fek [%dtsg %tas u.fek]
[%brdt [%cnhp [%cnbc %cain] [%zpgr p.gen] ~]] [%brdt [%cnhp [%cnzy %cain] [%zpgr p.gen] ~]]
q.gen q.gen
:: ::
[%sgcb *] [%sggr [%mean [%brdt p.gen]] q.gen] [%sgcb *] [%sggr [%mean [%brdt p.gen]] q.gen]
@ -4422,13 +4428,13 @@
:- %mean :- %mean
=+ fek=~(feck ap p.gen) =+ fek=~(feck ap p.gen)
?^ fek [%dtsg %tas u.fek] ?^ fek [%dtsg %tas u.fek]
[%brdt [%cnhp [%cnbc %cain] [%zpgr p.gen] ~]] [%brdt [%cnhp [%cnzy %cain] [%zpgr p.gen] ~]]
q.gen q.gen
:: ::
[%sgls *] [%sggr [%memo %dtsg %$ p.gen] q.gen] [%sgls *] [%sggr [%memo %dtsg %$ p.gen] q.gen]
[%sgpm *] [%sgpm *]
:+ %sggr :+ %sggr
[%slog [%dtpt %$ p.gen] [%cnhp [%cnbc %cain] [%zpgr q.gen] ~]] [%slog [%dtpt %$ p.gen] [%cnhp [%cnzy %cain] [%zpgr q.gen] ~]]
r.gen r.gen
:: ::
[%sgts *] [%sggr [%germ p.gen] q.gen] [%sgts *] [%sggr [%germ p.gen] q.gen]
@ -4452,21 +4458,21 @@
:: ::
[%smcb *] :: ;_ [%smcb *] :: ;_
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] p.gen]] :: =+ a==>(v {p.gen}) :+ %tsls [%ktts %a [%tsgr [%cnzy %v] p.gen]] :: =+ a==>(v {p.gen})
:^ %wtsg [%a ~] :: ?~ a :^ %wtsg [%a ~] :: ?~ a
[%zpzp ~] :: !! [%zpzp ~] :: !!
:+ %tsgr :: => :+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 3] [%cnbc %a]]] :: [v +.a] [[%cnzy %v] [%tsgl [~ 3] [%cnzy %a]]] :: [v +.a]
q.gen :: q.gen ::
:: ::
[%smcm *] :: ;, [%smcm *] :: ;,
=+ nem=etch(gen p.gen) :: =+ nem=etch(gen p.gen) ::
|- ^- twig :: |- ^- twig ::
?~ q.gen :: ?~ q.gen ::
[%tsgl [%cnbc nem] p.gen] :: =< [{nem} {p.gen}] [%tsgl [%cnzy nem] p.gen] :: =< [{nem} {p.gen}]
:+ %tsls [%ktts %a i.q.gen] :: =+ a={i.q.gen} :+ %tsls [%ktts %a i.q.gen] :: =+ a={i.q.gen}
:^ %wtkt [%a ~] :: ?^ a :^ %wtkt [%a ~] :: ?^ a
[%tsgl [%cnbc nem] [%cnbc %a]] :: =< [{nem} a] [%tsgl [%cnzy nem] [%cnzy %a]] :: =< [{nem} a]
$(q.gen t.q.gen) :: $(q.gen t.q.gen) ::
:: ::
[%smcn *] :: ;% [%smcn *] :: ;%
@ -4475,7 +4481,7 @@
[%bczp %null] :: ~ [%bczp %null] :: ~
:+ %tsls [%ktts %a i.p.gen] :: =+ a={i.p.gen} :+ %tsls [%ktts %a i.p.gen] :: =+ a={i.p.gen}
:^ %wtkt [%a ~] :: ?^ a :^ %wtkt [%a ~] :: ?^ a
[%cnbc %a] :: a [%cnzy %a] :: a
$(p.gen t.p.gen) :: $(p.gen t.p.gen) ::
:: ::
[%smdq *] :: ;" [%smdq *] :: ;"
@ -4487,7 +4493,7 @@
[%bczp %bean] :: ? [%bczp %bean] :: ?
[%bczp %null] :: ~ [%bczp %null] :: ~
:- [%ktts %i [%dtpt 'tD' _@]] :: :- i=~~ :- [%ktts %i [%dtpt 'tD' _@]] :: :- i=~~
[%ktts %t [%cnbc %$]] :: t=$ [%ktts %t [%cnzy %$]] :: t=$
|- ^- twig :: |- ^- twig ::
?~ p.gen :: ?~ p.gen ::
[%bczp %null] :: ~ [%bczp %null] :: ~
@ -4499,32 +4505,32 @@
:- :+ %ktts :: ^= :- :+ %ktts :: ^=
%a :: a %a :: a
:+ %ktls :: ^+ :+ %ktls :: ^+
[%cnbc %$] :: $ [%cnzy %$] :: $
[%tsgr [%cnbc %v] p.i.p.gen] :: =>(v {p.i.p.gen}) [%tsgr [%cnzy %v] p.i.p.gen] :: =>(v {p.i.p.gen})
[%ktts %b res] :: b={res} [%ktts %b res] :: b={res}
^- twig :: ^- twig ::
:- %brhp :: |- :- %brhp :: |-
:^ %wtpt :: ?@ :^ %wtpt :: ?@
[%a ~] :: a [%a ~] :: a
[%cnbc %b] :: b [%cnzy %b] :: b
:- [%tsgl [~ 2] [%cnbc %a]] :: :- -.a :- [%tsgl [~ 2] [%cnzy %a]] :: :- -.a
:+ %cnts :: %= :+ %cnts :: %=
[%$ ~] :: $ [%$ ~] :: $
[[[%a ~] [%tsgl [~ 3] [%cnbc %a]]] ~] :: a +.a [[[%a ~] [%tsgl [~ 3] [%cnzy %a]]] ~] :: a +.a
:: ::
[%smdt *] :: ;. [%smdt *] :: ;.
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] p.gen]] :: =+ a==>(v {p.gen}) :+ %tsls [%ktts %a [%tsgr [%cnzy %v] p.gen]] :: =+ a==>(v {p.gen})
|- ^- twig :: |- ^- twig ::
?~ q.gen :: ?~ q.gen ::
[%cnbc %a] :: a [%cnzy %a] :: a
:^ %wtsg [%a ~] :: ?~ a :^ %wtsg [%a ~] :: ?~ a
[%bczp %null] :: ~ [%bczp %null] :: ~
:+ %tsgr :: => :+ %tsgr :: =>
:+ %cnts [[~ 1] ~] :: %= . :+ %cnts [[~ 1] ~] :: %= .
:~ :- [%a ~] :: a :~ :- [%a ~] :: a
:+ %tsgr :: => :+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 3] [%cnbc %a]]] :: [v +.a] [[%cnzy %v] [%tsgl [~ 3] [%cnzy %a]]] :: [v +.a]
i.q.gen :: i.q.gen ::
== :: == == :: ==
$(q.gen t.q.gen) :: $(q.gen t.q.gen) ::
@ -4557,24 +4563,24 @@
?: =(~ t.q.gen) :: ?: =(~ t.q.gen) ::
i.q.gen :: i.q.gen ::
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] i.q.gen]] :: =+ a==>(v {iqgen}) :+ %tsls [%ktts %a [%tsgr [%cnzy %v] i.q.gen]] :: =+ a==>(v {iqgen})
:+ %tsgr [%ktts %w ~ 1] :: => w=. :+ %tsgr [%ktts %w ~ 1] :: => w=.
|- ^- twig :: |- ^- twig ::
?~ t.q.gen :: ?~ t.q.gen ::
[%cnbc %a] :: a [%cnzy %a] :: a
:+ %tsls :+ %ktts %b :: =+ ^= b :+ %tsls :+ %ktts %b :: =+ ^= b
[%tsgr [%cnhx %v %w ~] i.t.q.gen] :: => v.w [%tsgr [%cnzz %v %w ~] i.t.q.gen] :: => v.w
:+ %tsgr :: {i.t.q.gen} :+ %tsgr :: {i.t.q.gen}
:+ %cnts [%w ~] :: => :+ %cnts [%w ~] :: =>
:~ :- [%a ~] :: %= w :~ :- [%a ~] :: %= w
:^ %wtsg [%a ~] :: a :^ %wtsg [%a ~] :: a
[%cnbc %b] :: ?~ a b [%cnzy %b] :: ?~ a b
:^ %wtsg [%b ~] :: ?~ b :^ %wtsg [%b ~] :: ?~ b
[%cnbc %a] :: a [%cnzy %a] :: a
:+ %tsgr :: => :+ %tsgr :: =>
:- [%cnbc %v] :: :- v :- [%cnzy %v] :: :- v
:- [%tsgl [~ 3] [%cnbc %a]] :: :- +.a :- [%tsgl [~ 3] [%cnzy %a]] :: :- +.a
[%tsgl [~ 3] [%cnbc %b]] :: +.b [%tsgl [~ 3] [%cnzy %b]] :: +.b
i.t.q.gen :: {i.t.t.q.gen} i.t.q.gen :: {i.t.t.q.gen}
== :: == == :: ==
$(t.q.gen t.t.q.gen) :: $(t.q.gen t.t.q.gen) ::
@ -4582,71 +4588,71 @@
[%smgl *] :: ;< [%smgl *] :: ;<
=+ nem=etch(gen p.gen) :: =+ nem=etch(gen p.gen) ::
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] r.gen] :: =+ a==>(v {r.gen}) :+ %tsls [%ktts %a %tsgr [%cnzy %v] r.gen] :: =+ a==>(v {r.gen})
:+ %tsls [%tsgr [%cnbc %v] p.gen] :: =+ =>(v {p.gen}) :+ %tsls [%tsgr [%cnzy %v] p.gen] :: =+ =>(v {p.gen})
:- %brhp :+ %ktls [%cnbc nem] :: |- ^- {nem} :- %brhp :+ %ktls [%cnzy nem] :: |- ^- {nem}
:+ %tsls :: =+ ^= b :+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a [%ktts %b %tsgl [%cnzy %$] [%cnzy %a]] :: $:a
:^ %wtsg [%b ~] :: ?~ b :^ %wtsg [%b ~] :: ?~ b
[%cnbc nem] :: {nem} [%cnzy nem] :: {nem}
:+ %tsgr :: => :- :- v :+ %tsgr :: => :- :- v
:- :- [%cnbc %v] :: ^= {nem} :- :- [%cnzy %v] :: ^= {nem}
:+ %ktts nem :: $(a +.b) :+ %ktts nem :: $(a +.b)
:+ %cnts [%$ ~] :: -.b :+ %cnts [%$ ~] :: -.b
:~ [[%a ~] [%tsgl [~ 3] [%cnbc %b]]] :: :~ [[%a ~] [%tsgl [~ 3] [%cnzy %b]]] ::
== :: == ::
[%tsgl [~ 2] [%cnbc %b]] :: [%tsgl [~ 2] [%cnzy %b]] ::
q.gen :: q.gen ::
:: ::
[%smgr *] :: ;> [%smgr *] :: ;>
=+ nem=etch(gen p.gen) :: =+ nem=etch(gen p.gen) ::
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] r.gen] :: =+ a==>(v {r.gen}) :+ %tsls [%ktts %a %tsgr [%cnzy %v] r.gen] :: =+ a==>(v {r.gen})
:+ %tsls [%tsgr [%cnbc %v] p.gen] :: =+ =>(v {p.gen}) :+ %tsls [%tsgr [%cnzy %v] p.gen] :: =+ =>(v {p.gen})
:- %brhp :+ %ktls [%cnbc nem] :: |- ^- {nem} :- %brhp :+ %ktls [%cnzy nem] :: |- ^- {nem}
:+ %tsls :: =+ ^= b :+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a [%ktts %b %tsgl [%cnzy %$] [%cnzy %a]] :: $:a
:^ %wtsg [%b ~] :: ?~ b :^ %wtsg [%b ~] :: ?~ b
[%cnbc nem] :: {nem} [%cnzy nem] :: {nem}
:+ %cnts [%$ ~] :: %= $ :+ %cnts [%$ ~] :: %= $
:~ [[%a ~] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b :~ [[%a ~] [%tsgl [~ 3] [%cnzy %b]]] :: a +.b
:- [nem ~] :: {nem} :- [nem ~] :: {nem}
:+ %tsgr :: => :- :+ %tsgr :: => :-
:- [[%cnbc %v] [%ktts nem [%cnbc nem]]] :: [v {nem}] :- [[%cnzy %v] [%ktts nem [%cnzy nem]]] :: [v {nem}]
[%tsgl [~ 2] [%cnbc %b]] :: -.b [%tsgl [~ 2] [%cnzy %b]] :: -.b
q.gen :: \q.gen q.gen :: \q.gen
== :: == == :: ==
:: ::
[%smhp *] [%smls [%wtzp p.gen] q.gen] :: [%smhp *] [%smls [%wtzp p.gen] q.gen] ::
[%smkt *] :: ;^ [%smkt *] :: ;^
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] p.gen]] :: =+ a==>(v {p.gen}) :+ %tsls [%ktts %a [%tsgr [%cnzy %v] p.gen]] :: =+ a==>(v {p.gen})
:^ %wtsg [%a ~] :: ?~ a :^ %wtsg [%a ~] :: ?~ a
[%bczp %null] :: ~ [%bczp %null] :: ~
:- [%bczp %null] :: :- ~ :- [%bczp %null] :: :- ~
:+ %tsgr :: => :+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 3] [%cnbc %a]]] :: [v +.a] [[%cnzy %v] [%tsgl [~ 3] [%cnzy %a]]] :: [v +.a]
q.gen :: \q.gen q.gen :: \q.gen
:: ::
[%smls *] :: ;+ [%smls *] :: ;+
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] q.gen] :: =+ a==>(v {q.gen}) :+ %tsls [%ktts %a %tsgr [%cnzy %v] q.gen] :: =+ a==>(v {q.gen})
:- %brwt :: |? :- %brwt :: |?
:+ %tsls :: =+ ^= b :+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a [%ktts %b %tsgl [%cnzy %$] [%cnzy %a]] :: $:a
:+ %ktls [%cnbc %b] :: ^+ b :+ %ktls [%cnzy %b] :: ^+ b
:^ %wtsg [%b ~] :: ?~ b :^ %wtsg [%b ~] :: ?~ b
[%bczp %null] :: ~ [%bczp %null] :: ~
:^ %wtcl :: ?: :^ %wtcl :: ?:
:+ %tsgr :: => :+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 2] [%cnbc %b]]] :: [v -.b] [[%cnzy %v] [%tsgl [~ 2] [%cnzy %b]]] :: [v -.b]
p.gen :: \p.gen p.gen :: \p.gen
:- [%tsgl [~ 2] [%cnbc %b]] :: :- -.b :- [%tsgl [~ 2] [%cnzy %b]] :: :- -.b
:+ %cnts [[~ 1] %$ ~] :: %= ..$ :+ %cnts [[~ 1] %$ ~] :: %= ..$
:~ [[%a ~] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b :~ [[%a ~] [%tsgl [~ 3] [%cnzy %b]]] :: a +.b
== :: == == :: ==
:+ %cnts [%$ ~] :: %= $ :+ %cnts [%$ ~] :: %= $
:~ [[%a ~] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b :~ [[%a ~] [%tsgl [~ 3] [%cnzy %b]]] :: a +.b
== :: == == :: ==
:: ::
[%smsg *] :: ;~ [%smsg *] :: ;~
@ -4657,73 +4663,73 @@
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
|- ^- twig :: |- ^- twig ::
?: ?=(~ t.q.gen) :: ?: ?=(~ t.q.gen) ::
[%tsgr [%cnbc %v] i.q.gen] :: =>(v {i.q.gen}) [%tsgr [%cnzy %v] i.q.gen] :: =>(v {i.q.gen})
:+ %tsls [%ktts %a $(q.gen t.q.gen)] :: =+ ^= a :+ %tsls [%ktts %a $(q.gen t.q.gen)] :: =+ ^= a
:+ %tsls :: {$(q.gen t.q.gen)} :+ %tsls :: {$(q.gen t.q.gen)}
[%ktts %b [%tsgr [%cnbc %v] i.q.gen]] :: =+ ^= b [%ktts %b [%tsgr [%cnzy %v] i.q.gen]] :: =+ ^= b
:+ %tsls :: =>(v {i.q.gen}) :+ %tsls :: =>(v {i.q.gen})
[%ktts %c [%tsgl [~ 6] [%cnbc %b]]] :: =+ c=+6.b [%ktts %c [%tsgl [~ 6] [%cnzy %b]]] :: =+ c=+6.b
:- %brdt :: |. :- %brdt :: |.
:^ %cnls :: %+ :^ %cnls :: %+
[%tsgr [%cnbc %v] p.gen] :: =>(v {p.gen}) [%tsgr [%cnzy %v] p.gen] :: =>(v {p.gen})
[%cnhp [%cnbc %b] [%cnbc %c] ~] :: (b c) [%cnhp [%cnzy %b] [%cnzy %c] ~] :: (b c)
[%cnts [%a ~] [[[[%& 6] ~] [%cnbc %c]] ~]] :: a(+6 c) [%cnts [%a ~] [[[[%& 6] ~] [%cnzy %c]] ~]] :: a(+6 c)
== ==
:: ::
[%smsm *] :: ;; [%smsm *] :: ;;
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a [%tsgr [%cnbc %v] p.gen]] :: =+ a==>(v {p.gen}) :+ %tsls [%ktts %a [%tsgr [%cnzy %v] p.gen]] :: =+ a==>(v {p.gen})
:+ %tsls [%ktts %b [%tsgr [%cnbc %v] q.gen]] :: =+ b==>(v {q.gen}) :+ %tsls [%ktts %b [%tsgr [%cnzy %v] q.gen]] :: =+ b==>(v {q.gen})
:+ %tsls :: =+ c=(a b) :+ %tsls :: =+ c=(a b)
[%ktts %c [%cnhp [%cnbc %a] [%cnbc %b] ~]] :: [%ktts %c [%cnhp [%cnzy %a] [%cnzy %b] ~]] ::
[%wtgr [%dtts [%cnbc %c] [%cnbc %b]] [%cnbc %c]] :: ?>(=(c b) c) [%wtgr [%dtts [%cnzy %c] [%cnzy %b]] [%cnzy %c]] :: ?>(=(c b) c)
:: ::
[%smtr *] :: ;* [%smtr *] :: ;*
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] q.gen] :: =+ a==>(v \q.gen) :+ %tsls [%ktts %a %tsgr [%cnzy %v] q.gen] :: =+ a==>(v \q.gen)
:- %brhp :+ %kthp [%axil %bean] :: |- ^- ? :- %brhp :+ %kthp [%axil %bean] :: |- ^- ?
:+ %tsls :: =+ ^= b :+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a [%ktts %b %tsgl [%cnzy %$] [%cnzy %a]] :: $:a
:^ %wtsg [%b ~] :: ?~ b :^ %wtsg [%b ~] :: ?~ b
[%dtpt %f &] :: & [%dtpt %f &] :: &
:~ %wtpm :: ?& :~ %wtpm :: ?&
:+ %tsgr :: => :+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 2] [%cnbc %b]]] :: [v -.b] [[%cnzy %v] [%tsgl [~ 2] [%cnzy %b]]] :: [v -.b]
p.gen :: \p.gen p.gen :: \p.gen
:+ %cnts [%$ ~] :: %= $ :+ %cnts [%$ ~] :: %= $
:~ [[%a ~] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b :~ [[%a ~] [%tsgl [~ 3] [%cnzy %b]]] :: a +.b
== :: == == :: ==
== :: == == :: ==
:: :: :: ::
[%smts *] :: ;= [%smts *] :: ;=
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] q.gen] :: =+ a==>(v {q.gen}) :+ %tsls [%ktts %a %tsgr [%cnzy %v] q.gen] :: =+ a==>(v {q.gen})
:- %brwt :: |? :- %brwt :: |?
:+ %tsls :: =+ ^= b :+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a [%ktts %b %tsgl [%cnzy %$] [%cnzy %a]] :: $:a
:^ %wtsg [%b ~] :: ?~ b :^ %wtsg [%b ~] :: ?~ b
[%bczp %null] :: ~ [%bczp %null] :: ~
:- :+ %tsgr :: => :- v :- :+ %tsgr :: => :- v
[[%cnbc %v] [%tsgl [~ 2] [%cnbc %b]]] :: -.b [[%cnzy %v] [%tsgl [~ 2] [%cnzy %b]]] :: -.b
p.gen :: \p.gen p.gen :: \p.gen
:+ %cnts [[~ 1] %$ ~] :: %= ..$ :+ %cnts [[~ 1] %$ ~] :: %= ..$
:~ [[%a ~] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b :~ [[%a ~] [%tsgl [~ 3] [%cnzy %b]]] :: a +.b
== :: == == :: ==
:: :: :: ::
[%smwt *] :: ;? [%smwt *] :: ;?
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] q.gen] :: =+ a==>(v \q.gen) :+ %tsls [%ktts %a %tsgr [%cnzy %v] q.gen] :: =+ a==>(v \q.gen)
:- %brhp :+ %kthp [%axil %bean] :: |- ^- ? :- %brhp :+ %kthp [%axil %bean] :: |- ^- ?
:+ %tsls :: =+ ^= b :+ %tsls :: =+ ^= b
[%ktts %b %tsgl [%cnbc %$] [%cnbc %a]] :: $:a [%ktts %b %tsgl [%cnzy %$] [%cnzy %a]] :: $:a
:^ %wtsg [%b ~] :: ?~ b :^ %wtsg [%b ~] :: ?~ b
[%dtpt %f |] :: | [%dtpt %f |] :: |
:~ %wtbr :: ?| :~ %wtbr :: ?|
:+ %tsgr :: => :+ %tsgr :: =>
[[%cnbc %v] [%tsgl [~ 2] [%cnbc %b]]] :: [v -.b] [[%cnzy %v] [%tsgl [~ 2] [%cnzy %b]]] :: [v -.b]
p.gen :: \p.gen p.gen :: \p.gen
:+ %cnts [%$ ~] :: %= $ :+ %cnts [%$ ~] :: %= $
:~ [[%a ~] [%tsgl [~ 3] [%cnbc %b]]] :: a +.b :~ [[%a ~] [%tsgl [~ 3] [%cnzy %b]]] :: a +.b
== :: == == :: ==
== :: == == :: ==
:: ::
@ -4740,11 +4746,11 @@
=+ cog=rusk(gen p.gen) :: =+ cog=rusk(gen p.gen) ::
=+ wuy=(weld rake(gen q.gen) `wing`[%v ~]) :: =+ wuy=(weld rake(gen q.gen) `wing`[%v ~]) ::
:+ %tsgr [%ktts %v ~ 1] :: => v=. :+ %tsgr [%ktts %v ~ 1] :: => v=.
:+ %tsls [%ktts %a %tsgr [%cnbc %v] r.gen] :: =+ a==>(v \r.gen) :+ %tsls [%ktts %a %tsgr [%cnzy %v] r.gen] :: =+ a==>(v \r.gen)
:^ %tsdt wuy [%tsgl [~ 3] [%cnbc %a]] :: =. \wuy +.a :^ %tsdt wuy [%tsgl [~ 3] [%cnzy %a]] :: =. \wuy +.a
:+ %tsgr :- :+ %ktts cog :: => :- ^= \cog :+ %tsgr :- :+ %ktts cog :: => :- ^= \cog
[%tsgl [~ 2] [%cnbc %a]] :: -.a [%tsgl [~ 2] [%cnzy %a]] :: -.a
[%cnbc %v] :: v [%cnzy %v] :: v
s.gen :: s.gen s.gen :: s.gen
:: ::
[%tsgl *] [%tsgr q.gen p.gen] [%tsgl *] [%tsgr q.gen p.gen]
@ -4766,7 +4772,7 @@
[%wthp *] [%wthp *]
|- |-
?@ q.gen ?@ q.gen
[%zpfs [%cnhx p.gen]] [%zpfs [%cnzz p.gen]]
:^ %wtcl :^ %wtcl
[%wtts p.i.q.gen p.gen] [%wtts p.i.q.gen p.gen]
q.i.q.gen q.i.q.gen
@ -4810,7 +4816,7 @@
:: ::
[%zpcb *] q.gen [%zpcb *] q.gen
[%zpgr *] [%zpgr *]
[%cnhp [%cnbc %onan] [%zpsm [%bctr [%herb [%cnbc %abel]]] p.gen] ~] [%cnhp [%cnzy %onan] [%zpsm [%bctr [%herb [%cnzy %abel]]] p.gen] ~]
:: ::
[%zpwt *] [%zpwt *]
?: ?: ?=(@ p.gen) ?: ?: ?=(@ p.gen)
@ -4827,7 +4833,9 @@
?- gen ?- gen
[~ *] [gen ~] [~ *] [gen ~]
[%cnbc *] [p.gen ~] [%cnbc *] [p.gen ~]
[%cnzy *] [p.gen ~]
[%cnhx *] p.gen [%cnhx *] p.gen
[%cnzz *] p.gen
[%cnts * ~] p.gen [%cnts * ~] p.gen
[%zpcb *] rake(gen q.gen) [%zpcb *] rake(gen q.gen)
* ~|(%rake-twig !!) * ~|(%rake-twig !!)
@ -5858,7 +5866,7 @@
[%wtts *] [%wtts *]
:- (nice bean) :- (nice bean)
%- fish(sut (play ~(bunt al p.gen))) %- fish(sut (play ~(bunt al p.gen)))
(cove q:$(gen [%cnhx q.gen], gol %noun)) (cove q:$(gen [%cnzz q.gen], gol %noun))
:: ::
[%zpcb *] [%zpcb *]
~_ (show %o p.gen) ~_ (show %o p.gen)
@ -6024,8 +6032,8 @@
[%wtts *] [%wtts *]
=+ nob=~(bunt al p.gen) =+ nob=~(bunt al p.gen)
=+ waz=[p=(play nob) q=(play(sut dox) nob)] =+ waz=[p=(play nob) q=(play(sut dox) nob)]
=+ ^= syx :- p=(cove q:(mint %noun [%cnhx q.gen])) =+ ^= syx :- p=(cove q:(mint %noun [%cnzz q.gen]))
q=(cove q:(mint(sut dox) %noun [%cnhx q.gen])) q=(cove q:(mint(sut dox) %noun [%cnzz q.gen]))
=+ pov=[p=(fish(sut p.waz) p.syx) q=(fish(sut q.waz) q.syx)] =+ pov=[p=(fish(sut p.waz) p.syx) q=(fish(sut q.waz) q.syx)]
?. &(=(p.syx q.syx) =(p.pov q.pov)) ?. &(=(p.syx q.syx) =(p.pov q.pov))
~|(%mull-bonk-a !!) ~|(%mull-bonk-a !!)
@ -6422,9 +6430,7 @@
++ sift ++ sift
|= ref=type |= ref=type
^- type ^- type
=+ ^= oat ^- type ~|(%sift-lose ?>((nest(sut ref) & -:!>(*typo)) ref))
~+ -:!>(*typo)
~|(%sift-lose ?>((nest(sut ref) & oat) ref))
:: ::
++ snub ++ snub
~/ %snub ~/ %snub
@ -6644,7 +6650,7 @@
:: ::
%+ cook %+ cook
|= a=(list (list beer)) |= a=(list (list beer))
[%clzp (phax a)] [%clzz (phax a)]
:: [%smhx |-(?~(a ~ (weld i.a $(a t.a))))] :: [%smhx |-(?~(a ~ (weld i.a $(a t.a))))]
(most dog ;~(pfix hep soil)) (most dog ;~(pfix hep soil))
:: ::
@ -6709,7 +6715,7 @@
(cook prey (most ket rood)) (cook prey (most ket rood))
== ==
== ==
(stag %cnhx rope) (stag %cnzz rope)
(stag %bczp (cold %cell ket)) (stag %bczp (cold %cell ket))
== ==
:- '_' :- '_'
@ -6732,7 +6738,7 @@
:- ['a' 'z'] :- ['a' 'z']
%+ sear %+ sear
|= [a=wing b=(unit twig)] ^- (unit twig) |= [a=wing b=(unit twig)] ^- (unit twig)
?~(b [~ %cnhx a] ?.(?=([@ ~] a) ~ [~ [%dtsg %tas i.a] u.b])) ?~(b [~ %cnzz a] ?.(?=([@ ~] a) ~ [~ [%dtsg %tas i.a] u.b]))
;~(plug rope ;~(pose (stag ~ ;~(pfix fas wide)) (easy ~))) ;~(plug rope ;~(pose (stag ~ ;~(pfix fas wide)) (easy ~)))
:- '|' :- '|'
;~ pose ;~ pose
@ -7285,7 +7291,7 @@
;~(pfix pat (stag %axil (stag %atom mota))) ;~(pfix pat (stag %axil (stag %atom mota)))
:- '^' :- '^'
;~ pose ;~ pose
(stag %herb (stag %cnhx rope)) (stag %herb (stag %cnzz rope))
(cold [%axil %cell] ket) (cold [%axil %cell] ket)
== ==
:- ',' :- ','
@ -7426,8 +7432,8 @@
=+ rig=(slam ves arg) =+ rig=(slam ves arg)
=+ rev=(slam (slap bud (rain pax txt)) `vase`[viz.vil bud]) =+ rev=(slam (slap bud (rain pax txt)) `vase`[viz.vil bud])
=+ syg=(slam rev arg) =+ syg=(slam rev arg)
=+ ole=(slap rig [%cnbc %stay]) =+ ole=(slap rig [%cnzy %stay])
+>.$(ves (slam (slap syg [%cnbc %load]) ole)) +>.$(ves (slam (slap syg [%cnzy %load]) ole))
:: ::
++ wink :: deploy ++ wink :: deploy
|= [now=@da eny=@ sky=$+(* (unit))] |= [now=@da eny=@ sky=$+(* (unit))]
@ -7441,9 +7447,9 @@
fav=curd fav=curd
== ==
^- [p=(list move) q=_+>.^$] ^- [p=(list move) q=_+>.^$]
=+ pro=(slam (slap rig [%cnbc %beat]) [bet.vil +<]) =+ pro=(slam (slap rig [%cnzy %beat]) [bet.vil +<])
:- ((hard (list move)) q:(slap pro [%cnbc %p])) :- ((hard (list move)) q:(slap pro [%cnzy %p]))
=+ sev=(slap pro [%cnbc %q]) =+ sev=(slap pro [%cnzy %q])
%= +>.^$ %= +>.^$
ves ves
?: &(=(-.q.ves -.q.sev) =(+>.q.ves +>.q.sev)) ?: &(=(-.q.ves -.q.sev) =(+>.q.ves +>.q.sev))
@ -7454,7 +7460,7 @@
++ doze ++ doze
|= [now=@da hen=duct] |= [now=@da hen=duct]
^- (unit ,@da) ^- (unit ,@da)
((hard (unit ,@da)) q:(slam (slap rig [%cnbc %doze]) [hoz.vil +<])) ((hard (unit ,@da)) q:(slam (slap rig [%cnzy %doze]) [hoz.vil +<]))
:: ::
++ scry ++ scry
|= $: our=ship |= $: our=ship
@ -7464,7 +7470,7 @@
lot=coin lot=coin
tyl=path tyl=path
== ==
=+ pro=(slam (slap rig [%cnbc %scry]) [nim.vil +<]) =+ pro=(slam (slap rig [%cnzy %scry]) [nim.vil +<])
((hard (unit)) q.pro) ((hard (unit)) q.pro)
-- --
-- --