Add weird flopp that doesn't work.

2024-11-11 16:09:31 +03:00 · 2014-07-03 12:11:52 -04:00 · 2014-07-03 12:11:52 -04:00 · 9cb36493b7
commit 9cb36493b7
parent af077d1c23
1 changed files with 38 additions and 0 deletions
--- a/try/bin/flopp.hoon
+++ b/try/bin/flopp.hoon
@ -0,0 +1,38 @@
+!:
+::  /=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)