mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
39 lines
569 B
Plaintext
39 lines
569 B
Plaintext
|
!:
|
||
|
|
:: /=main=/bin/app/hoon
|
||
|
|
::
|
||
|
|
=> %= .
|
||
|
|
+
|
||
|
|
=> +
|
||
|
|
|%
|
||
|
|
++ sii !:
|
||
|
|
=| *
|
||
|
|
|%
|
||
|
|
+- $
|
||
|
|
?~ +<
|
||
|
|
+<
|
||
|
|
$(+< +<+)
|
||
|
|
--
|
||
|
|
++ flopp
|
||
|
|
=| *
|
||
|
|
=| *
|
||
|
|
|%
|
||
|
|
+- $
|
||
|
|
?~ +<
|
||
|
|
?~ +>- ~
|
||
|
|
+>-
|
||
|
|
?~ +>-
|
||
|
|
$(+< +<+, +>- [+<- +<+(. ~)])
|
||
|
|
$(+< +<+, +>- [+<- +<+(. +>-)])
|
||
|
|
--
|
||
|
|
--
|
||
|
|
==
|
||
|
|
|= *
|
||
|
|
|= ~
|
||
|
|
^- bowl
|
||
|
|
:_ ~ :_ ~
|
||
|
|
:- %$
|
||
|
|
!>
|
||
|
|
=+ x=[i=1 t=[i=2 t=[i=3 t=[i=4 t=~]]]]
|
||
|
|
=+ y=(limo [1 2 3 4 ~])
|
||
|
|
(flopp x)
|