mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-04 10:52:18 +03:00
Trailing whitespace, hoon level, part 2
This commit is contained in:
Steve Dee
parent
135d0c5a31
commit
a6b43c81ad
@ -162,7 +162,7 @@
|
||||
0w0 :: 50, ~het, Curtis Yarvin (sator)
|
||||
0w0 :: 51, ~mev, Curtis Yarvin (sator)
|
||||
0w0 :: 52, ~rut, Curtis Yarvin (sator)
|
||||
0w2L.M6-o5.DDTFL.R4sFL.7Zuay :: 53, ~tyl, Jaan Tallinn (angelus)
|
||||
0w2L.M6-o5.DDTFL.R4sFL.7Zuay :: 53, ~tyl, Jaan Tallinn (angelus)
|
||||
0w0 :: 54, ~wyd, Curtis Yarvin (sator)
|
||||
0w0 :: 55, ~tep, Curtis Yarvin (sator)
|
||||
0w0 :: 56, ~bes, Curtis Yarvin (sator)
|
||||
@ -863,10 +863,10 @@
|
||||
lys.q.n.puq now
|
||||
==
|
||||
::
|
||||
++ left
|
||||
++ left
|
||||
?> ?=(^ puq)
|
||||
^+(. =+(lef=apse(puq l.puq) lef(puq [n.puq puq.lef r.puq])))
|
||||
++ rigt
|
||||
++ rigt
|
||||
?> ?=(^ puq)
|
||||
^+(. =+(rig=apse(puq r.puq) rig(puq [n.puq l.puq puq.rig])))
|
||||
--
|
||||
@ -902,10 +902,10 @@
|
||||
?> ?=(^ puq)
|
||||
?.(liv.q.n.puq . .(nif (dec nif), liv.q.n.puq |))
|
||||
::
|
||||
++ left
|
||||
++ left
|
||||
?> ?=(^ puq)
|
||||
^+(. =+(lef=apse(puq l.puq) lef(puq [n.puq puq.lef r.puq])))
|
||||
++ rigt
|
||||
++ rigt
|
||||
?> ?=(^ puq)
|
||||
^+(. =+(rig=apse(puq r.puq) rig(puq [n.puq l.puq puq.rig])))
|
||||
--
|
||||
@ -1117,7 +1117,7 @@
|
||||
:: ~& %chew-fast
|
||||
=+ [mag=`hand`(end 7 1 msg) bod=(rsh 7 1 msg)]
|
||||
=+ dey=(kuch:diz mag)
|
||||
?~ dey
|
||||
?~ dey
|
||||
~& [%bad-key her mag]
|
||||
+>.$ :: ignore unknown key
|
||||
=. puz (bilk:puz now)
|
||||
|
||||
@ -247,7 +247,7 @@
|
||||
;: weld
|
||||
(trip (rap 3 [hox '/' cwd ~]))
|
||||
?~(loq "=" (scow u.loq))
|
||||
?~(cws "" (spud cws))
|
||||
?~(cws "" (spud cws))
|
||||
"> "
|
||||
==
|
||||
~
|
||||
|
||||
@ -196,7 +196,7 @@
|
||||
::
|
||||
++ eave :: subscribe
|
||||
|= [hen=duct rav=rave]
|
||||
^+ +>
|
||||
^+ +>
|
||||
?- -.rav
|
||||
&
|
||||
=+ ver=(aver p.rav)
|
||||
|
||||
@ -31,7 +31,7 @@
|
||||
++ loco ,[p=? q=(unit ,@tas) r=path] :: logical construct
|
||||
++ pest :: request in progress
|
||||
$| $? %new :: virgin
|
||||
== ::
|
||||
== ::
|
||||
$% [%err p=@ud q=(list tank)] :: error report
|
||||
[%fin p=love] :: ready to send
|
||||
[%raw p=hiss] :: wild url
|
||||
@ -54,7 +54,7 @@
|
||||
^- (unit logo)
|
||||
=+ ^= cok ^- (list ,@t)
|
||||
=+ cok=(~(get by mah) 'cookie')
|
||||
?~(cok ~ u.cok)
|
||||
?~(cok ~ u.cok)
|
||||
|- ^- (unit logo)
|
||||
?~ cok ~
|
||||
~& [%cookie i.cok]
|
||||
@ -80,13 +80,13 @@
|
||||
%mid [200 ~[content-type/(moon p.luv)] [~ q.luv]]
|
||||
%ham [200 ~[content-type/'text/html'] [~ (tact (xmlt p.luv ~))]]
|
||||
%raw p.luv
|
||||
%wan !!
|
||||
%zap :+ p.luv
|
||||
%wan !!
|
||||
%zap :+ p.luv
|
||||
~[content-type/'text/plain']
|
||||
:- ~
|
||||
%- tell
|
||||
|- ^- wall
|
||||
?~ q.luv ~
|
||||
|- ^- wall
|
||||
?~ q.luv ~
|
||||
(weld (~(win re i.q.luv) 0 120) $(q.luv t.q.luv))
|
||||
==
|
||||
::
|
||||
@ -94,7 +94,7 @@
|
||||
|= [ext=@tas vax=vase]
|
||||
^- (unit love)
|
||||
?+ ext ~
|
||||
%html
|
||||
%html
|
||||
?. (~(nest ut [%atom %$]) | p.vax) ~
|
||||
?> ?=(@ q.vax)
|
||||
[~ %mid /text/html (met 3 q.vax) q.vax]
|
||||
@ -102,7 +102,7 @@
|
||||
--
|
||||
|% :: functions
|
||||
++ ye :: per event
|
||||
=| $: $: $: wru=(unit writ) :: event authority
|
||||
=| $: $: $: wru=(unit writ) :: event authority
|
||||
tea=wire :: event place
|
||||
hen=duct :: event floor
|
||||
fav=card :: event data
|
||||
@ -110,7 +110,7 @@
|
||||
$: now=@da :: event date
|
||||
eny=@ :: unique entropy
|
||||
sky=$+(* (unit)) :: system namespace
|
||||
== ::
|
||||
== ::
|
||||
mow=(list move) :: pending actions
|
||||
== ::
|
||||
bolo :: all vane state
|
||||
@ -126,7 +126,7 @@
|
||||
::
|
||||
++ apex
|
||||
|- ^+ +
|
||||
?+ -.fav
|
||||
?+ -.fav
|
||||
~|([%ye-bad -.fav] !!)
|
||||
::
|
||||
%born +(ged hen) :: register external
|
||||
@ -215,7 +215,7 @@
|
||||
sef(pef (cat 3 gub (rsh 3 1 (scot %p u.oar))))
|
||||
=+ ^= saw ^- [p=logo q=cyst]
|
||||
=+ lig=(coss pef.sef q.moh)
|
||||
?^ lig
|
||||
?^ lig
|
||||
=+ cyz=(need (~(get by wup.sef) u.lig))
|
||||
[u.lig cyz(cug ~)]
|
||||
=+ ses=(rsh 6 1 (scot %p (end 6 1 ney)))
|
||||
@ -224,7 +224,7 @@
|
||||
:* ^- cred
|
||||
:* sec
|
||||
hut
|
||||
~
|
||||
~
|
||||
r.p.pul
|
||||
?.(sec %$ (rsh 3 1 (scot %p (end 6 1 (shaf %oryx ses)))))
|
||||
==
|
||||
@ -266,7 +266,7 @@
|
||||
++ loud :: locations by file
|
||||
|= [ext=@tas pre=path mid=path]
|
||||
^- (list ,[p=path q=path r=loco])
|
||||
=| suf=path
|
||||
=| suf=path
|
||||
|- ^- (list ,[p=path q=path r=loco])
|
||||
=+ pax=(weld pre (flop mid))
|
||||
=+ lot=(loot pax)
|
||||
@ -300,10 +300,10 @@
|
||||
?~ luc [~ ~ ~ ~]
|
||||
=+ mor=$(luc t.luc)
|
||||
?- -.r.i.luc
|
||||
& ?~ q.r.i.luc
|
||||
& ?~ q.r.i.luc
|
||||
[[[p.i.luc q.i.luc r.r.i.luc] p.mor] q.mor r.mor s.mor]
|
||||
[p.mor q.mor [[p.i.luc q.i.luc u.q.r.i.luc r.r.i.luc] r.mor] s.mor]
|
||||
| ?~ q.r.i.luc
|
||||
| ?~ q.r.i.luc
|
||||
[p.mor [[p.i.luc q.i.luc r.r.i.luc] q.mor] r.mor s.mor]
|
||||
[p.mor q.mor r.mor [[p.i.luc q.i.luc u.q.r.i.luc r.r.i.luc] s.mor]]
|
||||
==
|
||||
@ -314,7 +314,7 @@
|
||||
=+ src=(need (sky %cx r.i.q.waz))
|
||||
=+ sam=!>([ext pre p.i.q.waz q.i.q.waz])
|
||||
[~ `gank`(musk r.i.q.waz src sam)]
|
||||
~
|
||||
~
|
||||
::
|
||||
++ muff :: return card
|
||||
|= fav=card
|
||||
@ -335,10 +335,10 @@
|
||||
++ funk :: functional request
|
||||
|= [imp=? uxt=(unit term) paw=(list ,@t) quy=quay]
|
||||
^- (unit seam)
|
||||
?~ paw
|
||||
?~ paw
|
||||
~& %no-funk
|
||||
~
|
||||
?. ((sane %tas) i.paw)
|
||||
?. ((sane %tas) i.paw)
|
||||
~& %mad-desk
|
||||
~
|
||||
=^ cuz t.paw
|
||||
@ -350,11 +350,11 @@
|
||||
=+ zac=(slay i.t.paw)
|
||||
?. ?=([~ %$ ?(%ud %da %tas) *] zac) [~ ~]
|
||||
[[~ i.t.paw] t.t.paw]
|
||||
?~ cuz
|
||||
?~ cuz
|
||||
~& %funk-case
|
||||
~
|
||||
?. (levy t.paw (sane %ta))
|
||||
~& %funk-path
|
||||
?. (levy t.paw (sane %ta))
|
||||
~& %funk-path
|
||||
~
|
||||
:+ ~ %fun
|
||||
:- ?~(uxt %html u.uxt)
|
||||
@ -370,10 +370,10 @@
|
||||
:~ %many
|
||||
[%blob ced]
|
||||
:- %many
|
||||
%+ turn quy
|
||||
%+ turn quy
|
||||
|= [a=@t b=@t]
|
||||
`coin`[%many [%$ %t a] [%$ %t b] ~]
|
||||
==
|
||||
==
|
||||
==
|
||||
::
|
||||
++ holy :: structured request
|
||||
@ -423,7 +423,7 @@
|
||||
|- ^- [(list ,[p=@ud q=pimp]) _+.^$]
|
||||
?~ yub [~ +.^$]
|
||||
=^ sin +.^$ $(yub l.yub)
|
||||
=^ dex +.^$ $(yub r.yub)
|
||||
=^ dex +.^$ $(yub r.yub)
|
||||
=^ top +.^$ (wink q.n.yub)
|
||||
=+ pot=`(list ,[p=@ud q=pimp])`?~(top ~ [[p.n.yub u.top] ~])
|
||||
[:(weld pot dex sin) +.^$]
|
||||
@ -479,7 +479,7 @@
|
||||
$(+ sez)
|
||||
::
|
||||
++ into
|
||||
|= [pul=purl moh=moth]
|
||||
|= [pul=purl moh=moth]
|
||||
^+ +>
|
||||
=+ num=p.rey
|
||||
%= +>.$
|
||||
@ -509,7 +509,7 @@
|
||||
[[[wru [/d hen] %flog fav] ~] ..^$]
|
||||
^- [p=(list move) q=vane]
|
||||
=. gub ?.(=(0 gub) gub (cat 3 (scot %p (end 6 1 eny)) '-'))
|
||||
=^ mos bol
|
||||
=^ mos bol
|
||||
abet:apex:~(adit ye [[wru tea hen fav] [now eny sky] ~] bol)
|
||||
[mos ..^$]
|
||||
::
|
||||
@ -526,7 +526,7 @@
|
||||
++ load
|
||||
|= new=vase
|
||||
^- vane
|
||||
?. (~(nest ut -:!>(`bolo`+>-.^$)) | p.new)
|
||||
?. (~(nest ut -:!>(`bolo`+>-.^$)) | p.new)
|
||||
~& %eyre-reset
|
||||
..^$
|
||||
..^$(+>- (bolo q.new))
|
||||
|
||||
104
arvo/hoon.hoon
104
arvo/hoon.hoon
@ -1839,9 +1839,9 @@
|
||||
::
|
||||
++ stet
|
||||
|* leh=(list ,[?(@ [@ @]) _rule])
|
||||
|-
|
||||
?~ leh
|
||||
~
|
||||
|-
|
||||
?~ leh
|
||||
~
|
||||
[i=[p=-.i.leh q=+.i.leh] t=$(leh t.leh)]
|
||||
::
|
||||
++ stew
|
||||
@ -2366,7 +2366,7 @@
|
||||
=('-' c)
|
||||
==
|
||||
[c d]
|
||||
?+ c
|
||||
?+ c
|
||||
:- '~'
|
||||
=+ e=(met 2 c)
|
||||
|- ^- tape
|
||||
@ -2526,7 +2526,7 @@
|
||||
++ til (boss 256 (stun [3 3] low))
|
||||
++ urs %+ cook
|
||||
|=(a=tape (rap 3 ^-((list ,@) a)))
|
||||
(star ;~(pose nud low hep dot sig cab))
|
||||
(star ;~(pose nud low hep dot sig cab))
|
||||
++ voy ;~(pfix bas ;~(pose bas soq bix))
|
||||
++ vym (bass 256 ;~(plug low (star ;~(pose low nud))))
|
||||
++ vyn (bass 256 ;~(plug hep vym (easy ~)))
|
||||
@ -2831,7 +2831,7 @@
|
||||
==
|
||||
++ nuck
|
||||
%+ knee *coin |. ~+
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ :- ['a' 'z'] (cook |=(a=@ta [~ %tas a]) sym)
|
||||
:- ['0' '9'] (stag ~ bisk)
|
||||
@ -4173,7 +4173,7 @@
|
||||
++ ah
|
||||
|_ tig=tiki
|
||||
++ blue
|
||||
|= gen=twig
|
||||
|= gen=twig
|
||||
^- twig
|
||||
?. &(?=(| -.tig) ?=(~ p.tig)) gen
|
||||
[%tsgr [~ 3] gen]
|
||||
@ -4486,13 +4486,13 @@
|
||||
::
|
||||
[%ktdt *] [%ktls [%cnhp p.gen q.gen ~] q.gen]
|
||||
[%kthp *] [%ktls ~(bunt al p.gen) q.gen]
|
||||
[%sgbr *]
|
||||
[%sgbr *]
|
||||
:+ %sggr
|
||||
:- %mean
|
||||
=+ fek=~(feck ap p.gen)
|
||||
?^ fek [%dtzz %tas u.fek]
|
||||
[%brdt [%cnhp [%cnzy %cain] [%zpgr p.gen] ~]]
|
||||
q.gen
|
||||
q.gen
|
||||
::
|
||||
[%sgcb *] [%sggr [%mean [%brdt p.gen]] q.gen]
|
||||
[%sgcn *]
|
||||
@ -4671,7 +4671,7 @@
|
||||
[%wtsg *] [%wtcl [%wtts [%axil %null] p.gen] q.gen r.gen]
|
||||
[%wtzp *] [%wtcl p.gen [%dtzz %f 1] [%dtzz %f 0]]
|
||||
::
|
||||
[%wthz *]
|
||||
[%wthz *]
|
||||
=+ vaw=~(. ah p.gen)
|
||||
%- gray:vaw
|
||||
[%wthp puce:vaw (turn q.gen |=([a=tile b=twig] [a (blue:vaw b)]))]
|
||||
@ -4680,7 +4680,7 @@
|
||||
=+ vaw=~(. ah p.gen)
|
||||
%- gray:vaw
|
||||
^- twig
|
||||
:+ %wtls puce:vaw
|
||||
:+ %wtls puce:vaw
|
||||
[(blue:vaw q.gen) (turn r.gen |=([a=tile b=twig] [a (blue:vaw b)]))]
|
||||
::
|
||||
[%wtsz *]
|
||||
@ -4699,14 +4699,14 @@
|
||||
[%wtpt puce:vaw (blue:vaw q.gen) (blue:vaw r.gen)]
|
||||
::
|
||||
[%zpcb *] q.gen
|
||||
[%zpgr *]
|
||||
[%zpgr *]
|
||||
[%cnhp [%cnzy %onan] [%zpsm [%bctr [%herb [%cnzy %abel]]] p.gen] ~]
|
||||
::
|
||||
[%zpwt *]
|
||||
?: ?: ?=(@ p.gen)
|
||||
(lte stub p.gen)
|
||||
&((lte stub p.p.gen) (gte stub q.p.gen))
|
||||
q.gen
|
||||
q.gen
|
||||
~|([%stub-fail stub p.gen] !!)
|
||||
::
|
||||
* gen
|
||||
@ -4810,7 +4810,7 @@
|
||||
1 [%face p.got $(got q.got)]
|
||||
2 ?> |(!vet (nest(sut [%cell %noun %noun]) & sut))
|
||||
:+ %cell
|
||||
$(got p.got, sut (peek %both 2))
|
||||
$(got p.got, sut (peek %both 2))
|
||||
$(got q.got, sut (peek %both 3))
|
||||
==
|
||||
::
|
||||
@ -4906,8 +4906,8 @@
|
||||
| (face q.i.peh ^$(peh t.peh, sut p.q.poz))
|
||||
==
|
||||
1 ^$(peh t.peh)
|
||||
2 %+ bull
|
||||
[p.p.q.poz q.p.q.poz r.p.q.poz ^$(peh t.peh, sut s.p.q.poz)]
|
||||
2 %+ bull
|
||||
[p.p.q.poz q.p.q.poz r.p.q.poz ^$(peh t.peh, sut s.p.q.poz)]
|
||||
q.q.poz
|
||||
==
|
||||
=+ [now=(cap p.poz) lat=(mas p.poz)]
|
||||
@ -5055,8 +5055,8 @@
|
||||
?. ?=(@ lum)
|
||||
~
|
||||
:+ ~
|
||||
%leaf
|
||||
?: =(%$ p.q.ham) ~(rend co [~ %ud lum])
|
||||
%leaf
|
||||
?: =(%$ p.q.ham) ~(rend co [~ %ud lum])
|
||||
?: =(%t p.q.ham) ['\'' (weld (rip 3 lum) `tape`['\'' ~])]
|
||||
?: =(%tas p.q.ham) ['%' ?.(=(0 lum) (rip 3 lum) ['$' ~])]
|
||||
~(rend co [~ p.q.ham lum])
|
||||
@ -5384,7 +5384,7 @@
|
||||
[~ p.u.q.hax %0 (fork p.q.u.q.hax p.q.u.q.yor)]
|
||||
1 ?> &(?=(1 -.q.u.q.yor) =(p.q.u.q.yor p.q.u.q.hax))
|
||||
[~ p.u.q.hax %1 p.q.u.q.hax (weld q.q.u.q.hax q.q.u.q.yor)]
|
||||
2 ?> ?& ?=(2 -.q.u.q.yor)
|
||||
2 ?> ?& ?=(2 -.q.u.q.yor)
|
||||
=(p.p.q.u.q.hax p.p.q.u.q.yor)
|
||||
=(q.p.q.u.q.hax q.p.q.u.q.yor)
|
||||
=(r.p.q.u.q.hax r.p.q.u.q.yor)
|
||||
@ -5392,9 +5392,9 @@
|
||||
:* ~
|
||||
p.u.q.hax
|
||||
%2
|
||||
:* p.p.q.u.q.hax
|
||||
q.p.q.u.q.hax
|
||||
r.p.q.u.q.hax
|
||||
:* p.p.q.u.q.hax
|
||||
q.p.q.u.q.hax
|
||||
r.p.q.u.q.hax
|
||||
(fork s.p.q.u.q.hax s.p.q.u.q.yor)
|
||||
==
|
||||
(fork q.q.u.q.hax q.q.u.q.yor)
|
||||
@ -5752,7 +5752,7 @@
|
||||
::
|
||||
[%wtts *]
|
||||
:- (nice bean)
|
||||
%- fish(sut (play ~(bunt al p.gen)))
|
||||
%- fish(sut (play ~(bunt al p.gen)))
|
||||
(cove q:$(gen [%cnzz q.gen], gol %noun))
|
||||
::
|
||||
[%zpcb *]
|
||||
@ -6103,8 +6103,8 @@
|
||||
=(p.sut p.ref)
|
||||
sint
|
||||
::
|
||||
[%bull *]
|
||||
?& dext(sut q.sut)
|
||||
[%bull *]
|
||||
?& dext(sut q.sut)
|
||||
dext(sut s.p.sut, ref (peek(sut ref) %free r.p.sut))
|
||||
==
|
||||
[%face *] dext(sut q.sut)
|
||||
@ -6491,7 +6491,7 @@
|
||||
==
|
||||
++ scat
|
||||
%+ knee *twig |. ~+
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~
|
||||
:- '!'
|
||||
@ -6688,7 +6688,7 @@
|
||||
++ noil
|
||||
|= tol=?
|
||||
=< ;~ pfix buc
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~
|
||||
['|' (rung bar %reed exqb)]
|
||||
@ -6716,7 +6716,7 @@
|
||||
(toad exqc)
|
||||
==
|
||||
:- ':'
|
||||
;~ pfix col
|
||||
;~ pfix col
|
||||
%+ cook
|
||||
|=(a=(list tile) ?~(a !! ?~(t.a i.a [i.a $(a t.a)])))
|
||||
(toad exqc)
|
||||
@ -6750,7 +6750,7 @@
|
||||
^. stet ^. limo
|
||||
:~ :- '|'
|
||||
;~ pfix bar
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ ['_' (rune cab %brcb expu)]
|
||||
['%' (rune cen %brcn expe)]
|
||||
@ -6766,7 +6766,7 @@
|
||||
==
|
||||
:- '%'
|
||||
;~ pfix cen
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ ['_' (rune cab %cncb exph)]
|
||||
[':' (rune col %cncl expb)]
|
||||
@ -6787,7 +6787,7 @@
|
||||
==
|
||||
:- ':'
|
||||
;~ pfix col
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ ['_' (rune cab %clcb expb)]
|
||||
['~' (rune cen %clcn exps)]
|
||||
@ -6801,7 +6801,7 @@
|
||||
==
|
||||
:- '.'
|
||||
;~ pfix dot
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ ['+' (rune lus %dtls expa)]
|
||||
['*' (rune tar %dttr expb)]
|
||||
@ -6812,7 +6812,7 @@
|
||||
==
|
||||
:- '^'
|
||||
;~ pfix ket
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ ['|' (rune bar %ktbr expa)]
|
||||
['.' (rune dot %ktdt expb)]
|
||||
@ -6826,7 +6826,7 @@
|
||||
==
|
||||
:- '~'
|
||||
;~ pfix sig
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ ['|' (rune bar %sgbr expb)]
|
||||
['$' (rune buc %sgbc expg)]
|
||||
@ -6844,7 +6844,7 @@
|
||||
==
|
||||
:- ';'
|
||||
;~ pfix sem
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ [':' (rune col %smcl expi)]
|
||||
['.' (rune dot %smdt expi)]
|
||||
@ -6854,7 +6854,7 @@
|
||||
==
|
||||
:- '='
|
||||
;~ pfix tis
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ ['|' (rune bar %tsbr expo)]
|
||||
['.' (rune dot %tsdt expq)]
|
||||
@ -6870,7 +6870,7 @@
|
||||
==
|
||||
:- '?'
|
||||
;~ pfix wut
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ ['|' (rune bar %wtbr exps)]
|
||||
[':' (rune col %wtcl expc)]
|
||||
@ -6889,7 +6889,7 @@
|
||||
==
|
||||
:- '!'
|
||||
;~ pfix zap
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~ [':' ;~(pfix col (toad expz))]
|
||||
[',' (rune com %zpcm expb)]
|
||||
@ -6962,9 +6962,9 @@
|
||||
^- tiki
|
||||
?-(-.b %& [%& [~ a] p.b], %| [%| [~ a] p.b])
|
||||
=+ ^= wyp
|
||||
;~ pose
|
||||
;~ pose
|
||||
%+ cook gub
|
||||
;~ plug
|
||||
;~ plug
|
||||
sym
|
||||
;~(pfix tis ;~(pose (stag %& rope) (stag %| wide)))
|
||||
==
|
||||
@ -6979,7 +6979,7 @@
|
||||
;~ pfix
|
||||
;~(plug ket tis gap)
|
||||
%+ cook gub
|
||||
;~ plug
|
||||
;~ plug
|
||||
sym
|
||||
;~(pfix gap ;~(pose (stag %& rope) (stag %| tall)))
|
||||
==
|
||||
@ -7040,15 +7040,15 @@
|
||||
==
|
||||
==
|
||||
++ hinh |.
|
||||
;~ gunk
|
||||
;~ pose
|
||||
dem
|
||||
;~ gunk
|
||||
;~ pose
|
||||
dem
|
||||
(ifix [sel ser] ;~(plug dem ;~(pfix ace dem)))
|
||||
==
|
||||
loaf
|
||||
==
|
||||
++ bont ;~ (bend)
|
||||
;~(pfix cen sym)
|
||||
++ bont ;~ (bend)
|
||||
;~(pfix cen sym)
|
||||
;~(pfix dot ;~(pose wide ;~(pfix muck loaf)))
|
||||
==
|
||||
++ bony (cook |=(a=(list) (lent a)) (plus tis))
|
||||
@ -7136,7 +7136,7 @@
|
||||
++ howl (knee *tile |.(~+(;~(pose (noil &) toil))))
|
||||
++ toil
|
||||
%+ knee *tile |. ~+
|
||||
%- stew
|
||||
%- stew
|
||||
^. stet ^. limo
|
||||
:~
|
||||
:- '%'
|
||||
@ -7177,14 +7177,14 @@
|
||||
==
|
||||
:- '('
|
||||
(stag %herb wide)
|
||||
:- '.'
|
||||
:- '.'
|
||||
(stag %herb (stag %cnzz rope))
|
||||
:- '['
|
||||
%+ ifix [sel ser]
|
||||
%+ cook
|
||||
|= a=(list tile)
|
||||
?~(a !! ?~(t.a i.a [i.a $(a t.a)]))
|
||||
(most ace toil)
|
||||
(most ace toil)
|
||||
:- '_'
|
||||
(stag %weed ;~(pfix cab wide))
|
||||
:- ['0' '9']
|
||||
@ -7203,7 +7203,7 @@
|
||||
(stag %leaf (stag %f (cold | bar)))
|
||||
:- '~'
|
||||
(stag %leaf (stag %n (cold ~ sig)))
|
||||
==
|
||||
==
|
||||
++ wart
|
||||
|* zor=_rule
|
||||
%+ here
|
||||
@ -7482,7 +7482,7 @@
|
||||
=+ vil=(vial p.bud) ::
|
||||
=| eny=@ :: entropy
|
||||
=| fan=(list ,[p=@tas q=vase]) ::
|
||||
=| hom=path :: source path
|
||||
=| hom=path :: source path
|
||||
=| haz=@uw :: hash
|
||||
=< |%
|
||||
++ come |= [@ (list ovum) pone] :: 11
|
||||
@ -7557,7 +7557,7 @@
|
||||
~& [%vega-start hap]
|
||||
=+ src=((hard ,@t) (need (peek now cx/pax)))
|
||||
=+ saz=(shax src)
|
||||
=+ gen=(rain hap src)
|
||||
=+ gen=(rain hap src)
|
||||
~& %vega-parsed
|
||||
=+ ken=.*(0 q:(~(mint ut %noun) %noun gen))
|
||||
=+ ^= nex
|
||||
|
||||
@ -1073,7 +1073,7 @@
|
||||
?: =(2 wid) %king
|
||||
?: (lte wid 4) %duke
|
||||
?: (lte wid 8) %earl
|
||||
?> (lte wid 16) %pawn
|
||||
?> (lte wid 16) %pawn
|
||||
::
|
||||
++ deft :: import url path
|
||||
|= rax=(list ,@t)
|
||||
@ -1136,7 +1136,7 @@
|
||||
tar lus com sem tis
|
||||
==
|
||||
++ ptok ;~ pose :: 2616 token
|
||||
aln zap hax buc cen pam soq tar lus
|
||||
aln zap hax buc cen pam soq tar lus
|
||||
hep dot ket cab tec bar sig tis
|
||||
==
|
||||
++ scem :: 2396 scheme
|
||||
|
||||
@ -194,7 +194,7 @@
|
||||
?+ -.pax +>
|
||||
%oy ?>(?=(%lq -.nut) (said p.nut ((hard (list zong)) r.nut)))
|
||||
%re ?>(?=(%ow -.nut) (nice ~ p.nut))
|
||||
%ra ?> &(?=(%ow -.nut) ?=(^ t.pax))
|
||||
%ra ?> &(?=(%ow -.nut) ?=(^ t.pax))
|
||||
(nice [~ (need (slaw %p i.t.pax))] p.nut)
|
||||
%up ?>(?=(%up -.nut) (toke p.nut))
|
||||
%wa ?>(?=(%wa -.nut) take)
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
|= files=(list path)
|
||||
^- bowl
|
||||
::::
|
||||
:_ ~
|
||||
:_ ~
|
||||
=+ cag=(turn files fray)
|
||||
?~ cag ~
|
||||
:_ ~
|
||||
|
||||
@ -48,11 +48,11 @@
|
||||
:+ %&
|
||||
~
|
||||
:- *cart
|
||||
=+ tol=:(weld sup.folder pax `path`/http)
|
||||
=+ tol=:(weld sup.folder pax `path`/http)
|
||||
:~ :- tol
|
||||
%+ feel
|
||||
(weld `path`[mih.folder dez.folder caz.folder ~] tol)
|
||||
q.u.r.p.not
|
||||
==
|
||||
==
|
||||
==
|
||||
--
|
||||
|
||||
@ -2,6 +2,6 @@
|
||||
|= [a=* ~] ::
|
||||
:_ ~ :_ ~ :: Preserve this mysterious boilerplate square
|
||||
:- %$ ::
|
||||
!> != ::
|
||||
!> != ::
|
||||
::::::::::::::::: Replace this with your code
|
||||
|=(b=@ |=(c=@ [b c]]))
|
||||
|
||||
@ -2,6 +2,6 @@
|
||||
|= [a=* ~] ::
|
||||
:_ ~ :_ ~ :: Preserve this mysterious boilerplate square
|
||||
:+ %$ %noun ::
|
||||
.* . ::
|
||||
.* . ::
|
||||
::::::::::::::::: Replace this with your Nock
|
||||
[8 [1 0] [1 8 [1 0 0] [1 [[[1 24.940] 8 [9 97.964 0 4.095] 9 2 [0 4] [7 [0 3] [1 1.853.189.998] 2 [0 12] 1 1 0] 0 11] 1 0] 1 0] 0 1] 0 1]
|
||||
|
||||
@ -5,7 +5,7 @@
|
||||
=> .(- [woh=(scot %p who) -])
|
||||
=> .(+ =>(+ ^/=main=/lib/pony))
|
||||
::::
|
||||
|= [est=time eny=@]
|
||||
|= [est=time eny=@]
|
||||
|= [loc=[mih=span dez=span caz=span sup=path] ~]
|
||||
::::
|
||||
?. =(woh mih.loc)
|
||||
@ -32,9 +32,9 @@
|
||||
[[%del q.u.cur] [%ins den] ~]
|
||||
[[%mut ((diff %c) q.u.cur (cat 3 q.u.cur den))] ~]
|
||||
::
|
||||
++ work
|
||||
++ work
|
||||
|- ^- bowl
|
||||
%+ (polo %text "> " ~ ~)
|
||||
%+ (polo %text "> " ~ ~)
|
||||
(plus alp)
|
||||
|= [now=@da txt=tape]
|
||||
^- bowl
|
||||
|
||||
Loading…
Reference in New Issue
Block a user