mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-07 07:30:23 +03:00
Still unchecked: tsgl thru zpzp.
This commit is contained in:
parent
e52edd5d49
commit
aeb6ebc036
@ -7229,16 +7229,16 @@
|
|||||||
{?($ktdt $ward) *} [%like [%call p.gen q.gen ~] q.gen]
|
{?($ktdt $ward) *} [%like [%call p.gen q.gen ~] q.gen]
|
||||||
{?($kthp $cast) *} [%like ~(bunt al [%herb p.gen]) q.gen]
|
{?($kthp $cast) *} [%like ~(bunt al [%herb p.gen]) q.gen]
|
||||||
{?($sgbr $fate) *}
|
{?($sgbr $fate) *}
|
||||||
:+ %sggr
|
:+ %hint
|
||||||
:- %mean
|
:- %mean
|
||||||
=+ fek=~(feck ap p.gen)
|
=+ fek=~(feck ap p.gen)
|
||||||
?^ fek [%rock %tas u.fek]
|
?^ fek [%rock %tas u.fek]
|
||||||
[%trap [%call [%limb %cain] [%zpgr [%tsgr [%$ 3] p.gen]] ~]]
|
[%trap [%call [%limb %cain] [%zpgr [%tsgr [%$ 3] p.gen]] ~]]
|
||||||
q.gen
|
q.gen
|
||||||
::
|
::
|
||||||
{?($sgcb $lurk) *} [%sggr [%mean [%trap p.gen]] q.gen]
|
{?($sgcb $lurk) *} [%hint [%mean [%trap p.gen]] q.gen]
|
||||||
{?($sgcn $fast) *}
|
{?($sgcn $fast) *}
|
||||||
:+ %sggl
|
:+ %thin
|
||||||
:- %fast
|
:- %fast
|
||||||
:- %tri
|
:- %tri
|
||||||
:+ [%rock %$ p.gen]
|
:+ [%rock %$ p.gen]
|
||||||
@ -7251,21 +7251,21 @@
|
|||||||
[[[%rock %$ p.i.r.gen] [%zpts q.i.r.gen]] $(r.gen t.r.gen)]
|
[[[%rock %$ p.i.r.gen] [%zpts q.i.r.gen]] $(r.gen t.r.gen)]
|
||||||
s.gen
|
s.gen
|
||||||
::
|
::
|
||||||
{?($sgfs $funk) *} [%sgcn p.gen [%$ 7] ~ q.gen]
|
{?($sgfs $funk) *} [%fast p.gen [%$ 7] ~ q.gen]
|
||||||
{?($sggl $thin) *} [%tsgl [%sggr p.gen [%$ 1]] q.gen]
|
{?($sggl $thin) *} [%tsgl [%hint p.gen [%$ 1]] q.gen]
|
||||||
{?($sgbc $live) *} [%sggr [%live [%rock %$ p.gen]] q.gen]
|
{?($sgbc $live) *} [%hint [%live [%rock %$ p.gen]] q.gen]
|
||||||
{?($sgls $memo) *} [%sggr [%memo %rock %$ p.gen] q.gen]
|
{?($sgls $memo) *} [%hint [%memo %rock %$ p.gen] q.gen]
|
||||||
{?($sgpm $show) *}
|
{?($sgpm $show) *}
|
||||||
:+ %sggr
|
:+ %hint
|
||||||
[%slog [%sand %$ p.gen] [%call [%limb %cain] [%zpgr q.gen] ~]]
|
[%slog [%sand %$ p.gen] [%call [%limb %cain] [%zpgr q.gen] ~]]
|
||||||
r.gen
|
r.gen
|
||||||
::
|
::
|
||||||
{?($sgts $germ) *} [%sggr [%germ p.gen] q.gen]
|
{?($sgts $germ) *} [%hint [%germ p.gen] q.gen]
|
||||||
{?($sgwt $warn) *}
|
{?($sgwt $warn) *}
|
||||||
:+ %tsls [%wtdt q.gen [%bust %null] [[%bust %null] r.gen]]
|
:+ %tsls [%wtdt q.gen [%bust %null] [[%bust %null] r.gen]]
|
||||||
:^ %wtsg [%& 2]~
|
:^ %wtsg [%& 2]~
|
||||||
[%tsgr [%$ 3] s.gen]
|
[%tsgr [%$ 3] s.gen]
|
||||||
[%sgpm p.gen [%$ 5] [%tsgr [%$ 3] s.gen]]
|
[%show p.gen [%$ 5] [%tsgr [%$ 3] s.gen]]
|
||||||
::
|
::
|
||||||
{$smcl *}
|
{$smcl *}
|
||||||
?- q.gen
|
?- q.gen
|
||||||
@ -7329,7 +7329,7 @@
|
|||||||
[%tsls [%name p.gen q.gen] r.gen]
|
[%tsls [%name p.gen q.gen] r.gen]
|
||||||
[%tsls [%cast [%coat p.gen] q.gen] r.gen]
|
[%tsls [%cast [%coat p.gen] q.gen] r.gen]
|
||||||
::
|
::
|
||||||
{?($tsfs $ram) *} [%tssm q.gen p.gen r.gen]
|
{?($tsfs $ram) *} [%var q.gen p.gen r.gen]
|
||||||
{?($tsdt $set) *}
|
{?($tsdt $set) *}
|
||||||
[%tsgr [%keep [[%& 1] ~] [[p.gen q.gen] ~]] r.gen]
|
[%tsgr [%keep [[%& 1] ~] [[p.gen q.gen] ~]] r.gen]
|
||||||
::
|
::
|
||||||
@ -7337,7 +7337,7 @@
|
|||||||
=+ wuy=(weld q.gen `wing`[%v ~]) ::
|
=+ wuy=(weld q.gen `wing`[%v ~]) ::
|
||||||
:+ %tsgr [%name %v %$ 1] :: => v=.
|
:+ %tsgr [%name %v %$ 1] :: => v=.
|
||||||
:+ %tsls [%name %a %tsgr [%limb %v] r.gen] :: =+ a==>(v \r.gen)
|
:+ %tsls [%name %a %tsgr [%limb %v] r.gen] :: =+ a==>(v \r.gen)
|
||||||
:^ %tsdt wuy [%tsgl [%$ 3] [%limb %a]] :: =. \wuy +.a
|
:^ %set wuy [%tsgl [%$ 3] [%limb %a]] :: =. \wuy +.a
|
||||||
:+ %tsgr :- ?@ p.gen ::
|
:+ %tsgr :- ?@ p.gen ::
|
||||||
:+ %name p.gen :: => :- ^= \p.gen
|
:+ %name p.gen :: => :- ^= \p.gen
|
||||||
[%tsgl [%$ 2] [%limb %a]] :: -.a
|
[%tsgl [%$ 2] [%limb %a]] :: -.a
|
||||||
@ -9287,7 +9287,7 @@
|
|||||||
++ phax
|
++ phax
|
||||||
|= ruw/(list (list beer))
|
|= ruw/(list (list beer))
|
||||||
=+ [yun=*(list twig) cah=*(list @)]
|
=+ [yun=*(list twig) cah=*(list @)]
|
||||||
=+ wod=|=({a/tape b/(list twig)} ^+(b ?~(a b [[%smfs %knit (flop a)] b])))
|
=+ wod=|=({a/tape b/(list twig)} ^+(b ?~(a b [[%nub %knit (flop a)] b])))
|
||||||
|- ^+ yun
|
|- ^+ yun
|
||||||
?~ ruw
|
?~ ruw
|
||||||
(flop (wod cah yun))
|
(flop (wod cah yun))
|
||||||
@ -9588,11 +9588,11 @@
|
|||||||
|- ^- (list twig)
|
|- ^- (list twig)
|
||||||
?~ lut [[%rock %n ~] ~]
|
?~ lut [[%rock %n ~] ~]
|
||||||
?- -.i.lut
|
?- -.i.lut
|
||||||
$a [[%smfs p.i.lut] $(lut t.lut)]
|
$a [[%nub p.i.lut] $(lut t.lut)]
|
||||||
$b [p.i.lut $(lut t.lut)]
|
$b [p.i.lut $(lut t.lut)]
|
||||||
$c :_ ~
|
$c :_ ~
|
||||||
:+ %lace `twig`[p.i.lut [%all $(lut t.lut)]]
|
:+ %lace `twig`[p.i.lut [%all $(lut t.lut)]]
|
||||||
:+ %tsbr [%base %cell]
|
:+ %new [%base %cell]
|
||||||
:- %core
|
:- %core
|
||||||
^- (map term foot)
|
^- (map term foot)
|
||||||
:_ [~ ~]
|
:_ [~ ~]
|
||||||
@ -9675,7 +9675,7 @@
|
|||||||
::
|
::
|
||||||
%+ cook
|
%+ cook
|
||||||
|= a/(list (list beer))
|
|= a/(list (list beer))
|
||||||
:- %smfs
|
:- %nub
|
||||||
[%knit |-(^-((list beer) ?~(a ~ (weld i.a $(a t.a)))))]
|
[%knit |-(^-((list beer) ?~(a ~ (weld i.a $(a t.a)))))]
|
||||||
(most dog ;~(pfix lus soil))
|
(most dog ;~(pfix lus soil))
|
||||||
::
|
::
|
||||||
@ -9706,7 +9706,7 @@
|
|||||||
;~ pfix col
|
;~ pfix col
|
||||||
;~ pose
|
;~ pose
|
||||||
(stag %smcl (ifix [pel per] (most ace wide)))
|
(stag %smcl (ifix [pel per] (most ace wide)))
|
||||||
;~(pfix fas (stag %smfs wide))
|
;~(pfix fas (stag %nub wide))
|
||||||
==
|
==
|
||||||
==
|
==
|
||||||
:- '='
|
:- '='
|
||||||
@ -9891,18 +9891,18 @@
|
|||||||
;~ pfix sig
|
;~ pfix sig
|
||||||
%- stew
|
%- stew
|
||||||
^. stet ^. limo
|
^. stet ^. limo
|
||||||
:~ ['|' (rune bar %sgbr expb)]
|
:~ ['|' (rune bar %fate expb)]
|
||||||
['$' (rune buc %sgbc expg)]
|
['$' (rune buc %live expg)]
|
||||||
['_' (rune cab %sgcb expb)]
|
['_' (rune cab %lurk expb)]
|
||||||
['%' (rune cen %sgcn hind)]
|
['%' (rune cen %fast hind)]
|
||||||
['/' (rune fas %sgfs hine)]
|
['/' (rune fas %funk hine)]
|
||||||
['<' (rune gal %sggl hinb)]
|
['<' (rune gal %thin hinb)]
|
||||||
['>' (rune gar %sggr hinb)]
|
['>' (rune gar %hint hinb)]
|
||||||
['+' (rune lus %sgls hinc)]
|
['+' (rune lus %memo hinc)]
|
||||||
['&' (rune pam %sgpm hinf)]
|
['&' (rune pam %show hinf)]
|
||||||
['?' (rune wut %sgwt hing)]
|
['?' (rune wut %warn hing)]
|
||||||
['=' (rune tis %sgts expb)]
|
['=' (rune tis %germ expb)]
|
||||||
['!' (rune zap %sgzp expb)]
|
['!' (rune zap %type expb)]
|
||||||
==
|
==
|
||||||
==
|
==
|
||||||
:- ';'
|
:- ';'
|
||||||
@ -9910,19 +9910,19 @@
|
|||||||
%- stew
|
%- stew
|
||||||
^. stet ^. limo
|
^. stet ^. limo
|
||||||
:~ [':' (rune col %smcl expi)]
|
:~ [':' (rune col %smcl expi)]
|
||||||
['/' (rune fas %smfs expa)]
|
['/' (rune fas %nub expa)]
|
||||||
['~' (rune sig %smsg expi)]
|
['~' (rune sig %dip expi)]
|
||||||
[';' (rune sem %smsm expb)]
|
[';' (rune sem %fry expb)]
|
||||||
==
|
==
|
||||||
==
|
==
|
||||||
:- '='
|
:- '='
|
||||||
;~ pfix tis
|
;~ pfix tis
|
||||||
%- stew
|
%- stew
|
||||||
^. stet ^. limo
|
^. stet ^. limo
|
||||||
:~ ['|' (rune bar %tsbr expb)]
|
:~ ['|' (rune bar %new expb)]
|
||||||
['.' (rune dot %tsdt expq)]
|
['.' (rune dot %set expq)]
|
||||||
['^' (rune ket %tskt expt)]
|
['^' (rune ket %tskt expt)]
|
||||||
[':' (rune col %tscl expp)]
|
[':' (rune col %fly expp)]
|
||||||
['<' (rune gal %tsgl expb)]
|
['<' (rune gal %tsgl expb)]
|
||||||
['>' (rune gar %tsgr expb)]
|
['>' (rune gar %tsgr expb)]
|
||||||
['-' (rune hep %tshp expb)]
|
['-' (rune hep %tshp expb)]
|
||||||
|
@ -59,26 +59,26 @@
|
|||||||
[%burn %burn]
|
[%burn %burn]
|
||||||
[%name %name]
|
[%name %name]
|
||||||
[%lead %lead]
|
[%lead %lead]
|
||||||
[%sgbr %fate]
|
[%fate %fate]
|
||||||
[%sgcb %lurk]
|
[%lurk %lurk]
|
||||||
[%sgcn %fast]
|
[%fast %fast]
|
||||||
[%sgfs %funk]
|
[%funk %funk]
|
||||||
[%sggl %thin]
|
[%thin %thin]
|
||||||
[%sggr %hint]
|
[%hint %hint]
|
||||||
[%sgbc %live]
|
[%live %live]
|
||||||
[%sgls %memo]
|
[%memo %memo]
|
||||||
[%sgpm %show]
|
[%show %show]
|
||||||
[%sgts %germ]
|
[%germ %germ]
|
||||||
[%sgwt %warn]
|
[%warn %warn]
|
||||||
[%sgzp %type]
|
[%type %type]
|
||||||
[%smfs %nub]
|
[%nub %nub]
|
||||||
[%smsg %dip]
|
[%dip %dip]
|
||||||
[%smsm %fry]
|
[%fry %fry]
|
||||||
[%tsbr %new]
|
[%new %new]
|
||||||
[%tscl %fly]
|
[%fly %fly]
|
||||||
[%tssm %var]
|
[%var %var]
|
||||||
[%tsfs %ram]
|
[%ram %ram]
|
||||||
[%tsdt %set]
|
[%set %set]
|
||||||
[%tsgl %rap]
|
[%tsgl %rap]
|
||||||
[%tshp %saw]
|
[%tshp %saw]
|
||||||
[%tsgr %per]
|
[%tsgr %per]
|
||||||
|
Loading…
Reference in New Issue
Block a user