hoon: add +homo

2024-12-25 14:23:06 +03:00 · 2023-09-04 15:42:43 -06:00 · 2023-09-04 15:42:43 -06:00 · b85f5f5c97
commit b85f5f5c97
parent 85d9c03407
1 changed files with 7 additions and 0 deletions
--- a/hoon/scaffolding/playpen.hoon
+++ b/hoon/scaffolding/playpen.hoon
@ -206,6 +206,13 @@
  ?~  a  b
  $(a t.a, b [i.a b])
 ::
++  homo                                                ::  homogenize
+  |*  a=(list)
+  ^+  =<  $
+    |@  ++  $  ?:(*? ~ [i=(snag 0 a) t=$])
+    --
+  a
+::
 ++  lent                                                ::  length
  ~/  %lent
  |=  a=(list)