mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 11:51:32 +03:00
Looking a little smoother.
This commit is contained in:
C. Guy Yarvin
parent
b445cf3c88
commit
2bcd15ae1f
@ -2218,6 +2218,8 @@
|
|||||||
++ same |*(* +<) :: identity
|
++ same |*(* +<) :: identity
|
||||||
++ head |*(^ +<-) :: get head
|
++ head |*(^ +<-) :: get head
|
||||||
++ tail |*(^ +<+) :: get head
|
++ tail |*(^ +<+) :: get head
|
||||||
|
++ fore |*(a/$+(* *) |*(b/$+(* *) (pair a b))) :: pair before
|
||||||
|
++ aftr |*(a/$+(* *) |*(b/$+(* *) (pair b a))) :: pair after
|
||||||
++ test |=(^ =(+<- +<+)) :: equality
|
++ test |=(^ =(+<- +<+)) :: equality
|
||||||
++ cork |*({a/_|=(* **) b/gate} (corl b a)) :: compose forward
|
++ cork |*({a/_|=(* **) b/gate} (corl b a)) :: compose forward
|
||||||
++ corl :: compose backwards
|
++ corl :: compose backwards
|
||||||
@ -8008,65 +8010,77 @@
|
|||||||
hag [q.p.dix q.q.dix]
|
hag [q.p.dix q.q.dix]
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ oc
|
++ inca
|
||||||
|* $_ ^| :: structures
|
|
||||||
|%
|
|%
|
||||||
++ borm span :: typestate
|
++ borm span :: typestate
|
||||||
++ burk (pair axis borm) :: leg change
|
|
||||||
++ clow onyx :: type manifest
|
++ clow onyx :: type manifest
|
||||||
++ glub palo :: general response
|
++ rosh |*(* [p=+< q=*(list (pair axis nock))]) :: wrap mint changes
|
||||||
++ dink nock :: mint product
|
++ pord |*(* [p=+< q=*nock]) :: wrap mint formula
|
||||||
++ ract (list (pair axis nock)) :: mint manifest
|
++ stup head :: mint filling
|
||||||
++ resh |*($+(* *) (pair +< ract)) :: wrap mint manifest
|
++ pust tail :: mint wrap
|
||||||
++ prod |*($+(* *) (pair +< dink)) :: wrap mint product
|
++ fleg _(pord *borm) :: leg with formula
|
||||||
++ stup head :: unwrap
|
++ fram _(pord *clow) :: arm with formula
|
||||||
--
|
++ foat _(rosh *borm) :: leg with changes
|
||||||
=> |%
|
++ fult _(rosh *clow) :: arm with changes
|
||||||
++ rath |~(clow `(resh clow)`[+< ~]) :: working clow
|
++ halp |~ a/twig
|
||||||
++ renk (prod borm) :: general result
|
^- fleg
|
||||||
++ rowt |~(borm `(resh borm)`[+< ~]) :: working borm
|
(mint %noun a)
|
||||||
--
|
++ terp |~ {a/borm b/wing c/borm}
|
||||||
|* $_ ^|
|
^- (pair axis borm)
|
||||||
|% :: functions
|
|
||||||
++ halp |~(twig `renk`(mint %noun +<)) :: compile
|
|
||||||
++ terp |~ {a/span b/wing c/span}
|
|
||||||
^- burk
|
|
||||||
(tack(sut a) b c)
|
(tack(sut a) b c)
|
||||||
|
++ toda |~ {a/(pair axis clow) b/fleg c/fult}
|
||||||
|
^+ (rosh *clow)
|
||||||
|
[q.a [[p.a (pust b)] (pust c)]]
|
||||||
|
++ todt |~ {a/(pair axis borm) b/fleg c/foat}
|
||||||
|
^+ (rosh *borm)
|
||||||
|
[q.a [[p.a (pust b)] (pust c)]]
|
||||||
|
++ tusp |~ {a/clow b/wing c/borm}
|
||||||
|
^- (pair axis clow)
|
||||||
|
(toss b c a)
|
||||||
|
++ tyte |~ fult
|
||||||
|
^- foat
|
||||||
|
[(fire +<-) +<+]
|
||||||
--
|
--
|
||||||
|
::
|
||||||
|
++ oc
|
||||||
|
=+ inc=inca
|
||||||
|
|%
|
||||||
|
+- $
|
||||||
|
=> inc
|
||||||
|%
|
|%
|
||||||
++ echo
|
++ echo
|
||||||
|= {rum/borm rig/(list (pair wing twig))}
|
|= {rum/borm rig/(list (pair wing twig))}
|
||||||
|- ^- (resh span)
|
|- ^- foat
|
||||||
?~ rig
|
?~ rig (rosh rum)
|
||||||
[rum ~]
|
|
||||||
=+ mor=$(rig t.rig)
|
=+ mor=$(rig t.rig)
|
||||||
=+ zil=(mint %noun q.i.rig)
|
=+ zil=(halp q.i.rig)
|
||||||
=+ dar=(tack(sut p.mor) p.i.rig p.zil)
|
=+ dar=(terp (stup mor) p.i.rig (stup zil))
|
||||||
[q.dar [[p.dar q.zil] q.mor]]
|
(todt dar zil mor)
|
||||||
::
|
::
|
||||||
++ ecmo
|
++ ecmo
|
||||||
|= {hag/onyx rig/(list (pair wing twig))}
|
|= {hag/clow rig/(list (pair wing twig))}
|
||||||
^- (resh span)
|
^- foat
|
||||||
=- [(fire p.-) q.-]
|
%- tyte
|
||||||
|- ^- (resh onyx)
|
|- ^- fult
|
||||||
?~ rig
|
?~ rig (rosh hag)
|
||||||
[hag ~]
|
|
||||||
=+ mor=$(rig t.rig)
|
=+ mor=$(rig t.rig)
|
||||||
=+ zil=(mint %noun q.i.rig)
|
=+ zil=(halp q.i.rig)
|
||||||
=+ dix=(toss p.i.rig p.zil p.mor)
|
=+ dar=(tusp (stup mor) p.i.rig (stup zil))
|
||||||
[q.dix [[p.dix q.zil] q.mor]]
|
(toda dar zil mor)
|
||||||
|
--
|
||||||
|
--
|
||||||
::
|
::
|
||||||
++ ecto
|
++ etco
|
||||||
|= {lop/glub rig/(list (pair wing twig))}
|
|= {lop/palo rig/(list (pair wing twig))}
|
||||||
^- (pair span nock)
|
^- (pair span nock)
|
||||||
|
=+ cin=(oc inca)
|
||||||
=. rig (flop rig) :: XX this unbreaks, void order in devulc
|
=. rig (flop rig) :: XX this unbreaks, void order in devulc
|
||||||
=+ axe=(tend p.lop)
|
=+ axe=(tend p.lop)
|
||||||
?: ?=($& -.q.lop)
|
?: ?=($& -.q.lop)
|
||||||
=- [p.- (hike axe q.-)]
|
=- [p.- (hike axe q.-)]
|
||||||
(echo p.q.lop rig)
|
(echo:cin p.q.lop rig)
|
||||||
=- [p.- [%9 p.q.lop (hike axe q.-)]]
|
=- [p.- [%9 p.q.lop (hike axe q.-)]]
|
||||||
(ecmo (~(tap in q.q.lop)) rig)
|
(ecmo:cin (~(tap in q.q.lop)) rig)
|
||||||
--
|
|
||||||
::
|
::
|
||||||
++ et
|
++ et
|
||||||
|_ {hyp/wing rig/(list (pair wing twig))}
|
|_ {hyp/wing rig/(list (pair wing twig))}
|
||||||
@ -8082,7 +8096,7 @@
|
|||||||
=+ lug=(seed hyp)
|
=+ lug=(seed hyp)
|
||||||
?: ?=($| -.lug) ~|(%twig ?>(?=($~ rig) p.lug))
|
?: ?=($| -.lug) ~|(%twig ?>(?=($~ rig) p.lug))
|
||||||
=- ?>(?|(!vet (nest(sut gol) & p.-)) -)
|
=- ?>(?|(!vet (nest(sut gol) & p.-)) -)
|
||||||
(ecto:**oc p.lug rig)
|
(etco p.lug rig)
|
||||||
::
|
::
|
||||||
++ mull
|
++ mull
|
||||||
|= {gol/span dox/span}
|
|= {gol/span dox/span}
|
||||||
@ -8398,6 +8412,7 @@
|
|||||||
~/ %mint
|
~/ %mint
|
||||||
|= {gol/span gen/twig}
|
|= {gol/span gen/twig}
|
||||||
^- {p/span q/nock}
|
^- {p/span q/nock}
|
||||||
|
~& %pure-mint
|
||||||
|^ ^- {p/span q/nock}
|
|^ ^- {p/span q/nock}
|
||||||
?: ?&(=(%void sut) !?=({$dbug *} gen))
|
?: ?&(=(%void sut) !?=({$dbug *} gen))
|
||||||
?. |(!vet ?=({$lost *} gen) ?=({$zpzp *} gen))
|
?. |(!vet ?=({$lost *} gen) ?=({$zpzp *} gen))
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user