Still unchecked: tsgl thru zpzp.

This commit is contained in:
C. Guy Yarvin 2016-02-05 02:05:57 -08:00
parent e52edd5d49
commit aeb6ebc036
2 changed files with 55 additions and 55 deletions

View File

@ -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)]

View File

@ -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]