hoon: add +scag

2024-11-23 00:25:49 +03:00 · 2023-09-05 22:21:45 -06:00 · 2023-09-05 22:21:45 -06:00 · 7b3bb4e05a
commit 7b3bb4e05a
parent f185d34313
1 changed files with 7 additions and 0 deletions
--- a/hoon/scaffolding/playpen.hoon
+++ b/hoon/scaffolding/playpen.hoon
@ -237,6 +237,13 @@
    +<+.b
  $(a t.a, b b(+<+ (b i.a +<+.b)))
 ::
++  scag                                                ::  prefix
+  ~/  %scag
+  |*  [a=@ b=(list)]
+  |-  ^+  b
+  ?:  |(?=(~ b) =(0 a))  ~
+  [i.b $(b t.b, a (dec a))]
+::
 ++  slag                                                ::  suffix
  ~/  %slag
  |*  [a=@ b=(list)]