hoon: add +mure

This commit is contained in:
Alex Shelkovnykov 2023-09-04 15:55:11 -06:00
parent 475143b4d4
commit b5532abe92

View File

@ -892,4 +892,11 @@
%3 `[-.target u.mutant]
==
--
::
++ mure :: untyped unitary virtual
|= tap=(trap)
^- (unit)
=/ ton (mink [tap %9 2 %0 1] |=(a=^ ``.*(a [%12 [%0 2] %0 3])))
?.(?=(%0 -.ton) ~ `product.ton)
--