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

Merge commit '9f82c' into relearning

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-09-01 17:55:38 -07:00
commit a71e7120bc
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/talk.hoon
View File

@ -959,7 +959,7 @@
:: ::
++ glyph ++ glyph
|= idx/@ |= idx/@
=< cha.ole =< cha
%+ reel glyphs %+ reel glyphs
|= {all/tape ole/{cha/char num/@}} |= {all/tape ole/{cha/char num/@}}
=+ new=(snag (mod idx (lent all)) all) =+ new=(snag (mod idx (lent all)) all)

2
arvo/behn.hoon
View File

@ -125,7 +125,7 @@
++ gas ++ gas
|= b/(list {k/key n/val}) |= b/(list {k/key n/val})
^+ a ^+ a
q:(roll b |=({{k/key n/val} q/_a} (put(a q) k n))) (roll b |=({{k/key n/val} q/_a} (put(a q) k n)))
:: ::
++ tap ++ tap
^- (list {k/key n/val}) ^- (list {k/key n/val})

6
arvo/hoon.hoon
View File

@ -380,7 +380,7 @@
++ reel :: right fold ++ reel :: right fold
~/ %reel ~/ %reel
|* {a/(list) b/_|=({* *} +<+)} |* {a/(list) b/_|=({* *} +<+)}
|- ^+ +<+.b |- ^+ ,.+<+.b
?~ a ?~ a
+<+.b +<+.b
(b i.a $(a t.a)) (b i.a $(a t.a))
@ -388,7 +388,7 @@
++ roll :: left fold ++ roll :: left fold
~/ %roll ~/ %roll
|* {a/(list) b/_|=({* *} +<+)} |* {a/(list) b/_|=({* *} +<+)}
|- ^+ +<+.b |- ^+ ,.+<+.b
?~ a ?~ a
+<+.b +<+.b
$(a t.a, b b(+<+ (b i.a +<+.b))) $(a t.a, b b(+<+ (b i.a +<+.b)))
@ -8450,7 +8450,7 @@
=- [a (welp - ?~(c d [[[%rock %tas p.c] q.c] d]))] =- [a (welp - ?~(c d [[[%rock %tas p.c] q.c] d]))]
=- (~(tap by -)) =- (~(tap by -))
%. |=(e/(list tank) [%knit ~(ram re %rose [" " `~] e)]) %. |=(e/(list tank) [%knit ~(ram re %rose [" " `~] e)])
=< ~(run by f:(reel b .)) =< ~(run by (reel b .))
|= {e/{p/term q/term} f/(jar twig tank)} |= {e/{p/term q/term} f/(jar twig tank)}
(~(add ja f) [%rock %tas p.e] [%leaf (trip q.e)]) (~(add ja f) [%rock %tas p.e] [%leaf (trip q.e)])
;~ plug ;~ plug