urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

Various fixes and improvements.

Browse Source 
++murn is better.

++zing now works like ++welp.
This commit is contained in:
Jared Hance 2014-07-02 15:44:37 -04:00
parent 38ce666012
commit 06c0b54d1b
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
arvo/hoon.hoon
View File

@ -698,14 +698,15 @@
?: (b i.a) & ?: (b i.a) &
$(a t.a) $(a t.a)
:: ::
++ murn :: maybe transform ++ murn !: :: maybe transform
|* [a=(list) b=$+(* (unit))] |* [a=(list) b=$+(* (unit))]
%+ reel a |-
|* [c=* acc=(list)] ?~ a
=+ i=(b c) ~
?~ i =+ c=(b i.a)
acc ?~ c
[i=u.i t=acc] $(a t.a)
[i=u.c t=$(a t.a)]
:: ::
++ reel :: right fold ++ reel :: right fold
~/ %reel ~/ %reel
@ -824,11 +825,13 @@
[i=i.a $(a t.a)] [i=i.a $(a t.a)]
:: ::
++ zing :: promote ++ zing :: promote
|* a=(list (list)) =| *
^+ ?>(?=(^ a) (homo i.a)) |%
|- +- $
?~ a ~ ?~ +<
(weld i.a $(a t.a)) +<
(welp +<- $(+< +<+))
--
:::::::::::::::::::::::::::::::::::::::::::::::::::::: :: :::::::::::::::::::::::::::::::::::::::::::::::::::::: ::
:::: chapter 2c, simple noun surgery :::: :::: chapter 2c, simple noun surgery ::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::