urbit/ares
1
1
Fork 0
mirror of https://github.com/urbit/ares.git synced 2024-11-23 00:25:49 +03:00
Code Issues Packages Projects Releases Wiki Activity

hoon: add +turn

Browse Source
This commit is contained in:
Alex Shelkovnykov 2023-09-04 15:44:11 -06:00
parent 2833fe1878
commit c6d5a2656d
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hoon/scaffolding/playpen.hoon
View File

@ -247,6 +247,15 @@
?: =(0 a) i.b ?: =(0 a) i.b
$(b t.b, a (dec a)) $(b t.b, a (dec a))
:: ::
++ turn :: transform
~/ %turn
|* [a=(list) b=gate]
=> .(a (homo a))
^- (list _?>(?=(^ a) (b i.a)))
|-
?~ a ~
[i=(b i.a) t=$(a t.a)]
::
++ weld :: concatenate ++ weld :: concatenate
~/ %weld ~/ %weld
|* [a=(list) b=(list)] |* [a=(list) b=(list)]