mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 10:29:01 +03:00
Various fixes and improvements.
++murn is better. ++zing now works like ++welp.
This commit is contained in:
parent
38ce666012
commit
06c0b54d1b
@ -698,14 +698,15 @@
|
||||
?: (b i.a) &
|
||||
$(a t.a)
|
||||
::
|
||||
++ murn :: maybe transform
|
||||
++ murn !: :: maybe transform
|
||||
|* [a=(list) b=$+(* (unit))]
|
||||
%+ reel a
|
||||
|* [c=* acc=(list)]
|
||||
=+ i=(b c)
|
||||
?~ i
|
||||
acc
|
||||
[i=u.i t=acc]
|
||||
|-
|
||||
?~ a
|
||||
~
|
||||
=+ c=(b i.a)
|
||||
?~ c
|
||||
$(a t.a)
|
||||
[i=u.c t=$(a t.a)]
|
||||
::
|
||||
++ reel :: right fold
|
||||
~/ %reel
|
||||
@ -824,11 +825,13 @@
|
||||
[i=i.a $(a t.a)]
|
||||
::
|
||||
++ zing :: promote
|
||||
|* a=(list (list))
|
||||
^+ ?>(?=(^ a) (homo i.a))
|
||||
|-
|
||||
?~ a ~
|
||||
(weld i.a $(a t.a))
|
||||
=| *
|
||||
|%
|
||||
+- $
|
||||
?~ +<
|
||||
+<
|
||||
(welp +<- $(+< +<+))
|
||||
--
|
||||
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::
|
||||
:::: chapter 2c, simple noun surgery ::::
|
||||
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
|
||||
|
Loading…
Reference in New Issue
Block a user