mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 12:43:31 +03:00
27 lines
429 B
Plaintext
27 lines
429 B
Plaintext
|
!:
|
||
|
|
:: /=try=/bin/reverse/hoon
|
||
|
|
::
|
||
|
|
|= *
|
||
|
|
|= ~
|
||
|
|
:- ~ :- ~
|
||
|
|
:- ^- (list slip)
|
||
|
|
:~ [~ %$ %atom %t]
|
||
|
|
==
|
||
|
|
|= [now=@da pax=path nut=note]
|
||
|
|
^- bowl
|
||
|
|
?+ -.nut !!
|
||
|
|
%$
|
||
|
|
?~ p.nut
|
||
|
|
[~ ~]
|
||
|
|
=+ liz=((hard (list ,@t)) q.u.p.nut)
|
||
|
|
:- ^- (list gift)
|
||
|
|
:~ :+ %mu [%atom %t]
|
||
|
|
(turn liz |=(a=@t (rap 3 (flop (trip a)))))
|
||
|
|
==
|
||
|
|
:- ~
|
||
|
|
:- ^- (list slip)
|
||
|
|
:~ [~ %$ %atom %t]
|
||
|
|
==
|
||
|
|
..$
|
||
|
|
==
|