mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +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)
|