comboy · August 29, 2015 14:11 · Dec 23, 2014 · Dec 22, 2014 · Dec 22, 2014 · Dec 22, 2014
diff --git a/8.xmas b/8.xmas
@@ -0,0 +1,18 @@
+:: draw a christmas tree
+!:
+|_  [hid=hide ~]
+++  poke-xmas-args
+  |=  [ost=bone sip=ship *]
+  :_  +>
+  =+  w=11
+  =+  a=w
+  |-
+  ?:  (lth a 1)  ~
+  :_  $(a (dec a))
+  =-  [ost %pass / %d %flog %text -]
+  ?:  =(a w)  (weld (reap (dec w) ' ') "| |")
+  %+  weld
+  %+  reap  +((sub w a))  ' '
+  ?:  =(a 1)  "*"
+  %+  reap  (dec (mul a 2))  '^'
+--
diff --git a/7.bomb b/7.bomb
@@ -0,0 +1,34 @@
+:: display some texts with time intervals between them
+:: :bomb
+|%
+++  axle
+  $%  [%0 tic=@ud wait=@dr]
+  ==
+--
+::
+!:
+|_  [hid=hide vat=axle]
+++  poke-bomb-args
+  |=  [ost=bone sip=ship *]
+  =.  tic.vat  10
+  =.  wait.vat  ~s5
+  :_  +>.$
+  :-  [ost %give %nice ~]
+  :-  [ost %pass / %d %flog %text "[suspicious box appears out of nowhere]"]
+  :-  [0 %pass /time %t %wait (add wait.vat lat.hid)]
+  ~
+::
+++  pour
+  |=  [ost=bone pax=path x=*]
+  =.  tic.vat  (dec tic.vat)
+  =.  wait.vat  ^-(@dr (div `@ud`wait.vat 2))
+  :_  +>.$
+  ?:  (lte tic.vat 1)
+    :-  [ost %pass / %d %flog %text "How did you do that Nock?!"]
+    :-  [ost %pass / %g %cide %$]  ~
+  :-  [ost %pass / %d %flog %text ?:(=((mod tic.vat 2) 1) "tik" "tok")]
+  :-  [0 %pass /time %t %wait (add wait.vat lat.hid)]  ~
+::
+++  peer
+  |=  *  `+>
+--
diff --git a/6.fibo b/6.fibo
@@ -1,5 +1,6 @@
 :: failed attempt at fib sequence where new numbers would be displayed as soon
 :: as they are computed :-( I know I could just use ~& but that's cheating
+:: :fibo 25
 |%
 ++  sign
   $%  $:  %g

diff --git a/6.fibo b/6.fibo
@@ -36,8 +36,11 @@
   (add $(a (sub a 1)) $(a (sub a 2)))
 ::
 ++  pour
-  |=  *  `+>
+  |=  [ost=bone *]
+  :_  +>.$
+  :-  [ost %pass / %g %cide %$]
+  ~
 ::
 ++  peer
   |=  *  `+>
---
+--
diff --git a/6.fibo b/6.fibo
@@ -1,5 +1,5 @@
 :: failed attempt at fib sequence where new numbers would be displayed as soon
-:: as they are computed :-(
+:: as they are computed :-( I know I could just use ~& but that's cheating
 |%
 ++  sign
   $%  $:  %g

diff --git a/6.fibo b/6.fibo
@@ -0,0 +1,43 @@
+:: failed attempt at fib sequence where new numbers would be displayed as soon
+:: as they are computed :-(
+|%
+++  sign
+  $%  $:  %g
+  $%  [%nice ~]
+      [%mean p=ares]
+      [%mean p=@ud]
+  ==  ==  ==
+--
+::
+!:
+|_  [hid=hide ~]
+++  poke-fibo-args
+  |=  [ost=bone sip=ship upto=@ud *]
+  :_  +>.$
+  :-  [ost %give %nice ~]
+  ::  XX couldnt flop it, probably type issue, tried (list move) but without luck
+  =+  a=upto
+  |-
+  ?:  (lte a 0)  ~
+  :_  $(a (dec a))
+  [ost %pass / %g %mess [sip /fibo] sip %foo !>(a)]
+::
+++  poke-foo
+  |=  [ost=bone sip=ship a=@ud]
+  :_  +>.$
+  :-  [ost %pass / %d %flog %text (scow %ud (fib a))]
+  :-  [ost %give %nice ~]
+  ~
+::
+++  fib
+  |=  a=@ud
+  |-
+  ?:  (lte a 2)  1
+  (add $(a (sub a 1)) $(a (sub a 2)))
+::
+++  pour
+  |=  *  `+>
+::
+++  peer
+  |=  *  `+>
+--
diff --git a/5.hell b/5.hell
@@ -1,6 +1,5 @@
 :: lazy hello mars, is it bad? if so then why?
 |_  [hid=hide ~]
-!:
 ++  poke-hell-args
   |=  [ost=bone *]
   :_  +>.$  

diff --git a/5.hell b/5.hell
@@ -0,0 +1,10 @@
+:: lazy hello mars, is it bad? if so then why?
+|_  [hid=hide ~]
+!:
+++  poke-hell-args
+  |=  [ost=bone *]
+  :_  +>.$  
+  :-  [ost %pass / %g %cide %$]
+  :-  [ost %pass / %d %flog %text "mars is weird sometimes"]
+  ~
+--
diff --git a/4.fib b/4.fib
@@ -0,0 +1,28 @@
+:: display fib sequence up to arg with steps
+:: painfully suboptimal but that's irrelevant
+:: :fib 10
+!:
+|_  [hid=hide ~]
+++  poke-fib-args
+  |=  [ost=bone you=ship upto=@ud *]
+  :_  +>.$
+  :-  [ost %pass ~ %g %cide ~]
+  :*  [ost %give %nice ~]
+      %+  turn  (~(tap by sup.hid))
+      |=  [ost=bone *]
+      =-  [ost %give %rush %tang -]
+      %-  flop  ^-  (list tank)  %-  limo
+      =+  a=1
+      |-  
+      ?:  (gth a upto)  ~
+      :_  $(a +(a))
+      leaf/(scow %ud (fib a))
+   ==
+++  fib
+  |=  a=@ud
+  |-
+  ?:  (lte a 2)  1
+  (add $(a (sub a 1)) $(a (sub a 2)))
+++  peer
+  |=(* `+>)
+--
diff --git a/mars → 1.mars b/mars → 1.mars
diff --git a/planet → 2.planet b/planet → 2.planet
diff --git a/boom → 3.boom b/boom → 3.boom
diff --git a/gistfile1.txt → boom b/gistfile1.txt → boom
@@ -1,19 +1,22 @@
+:: counts douwn and boom!
 !:
 |_  [hid=hide ~]
-++  poke-foo-args
+++  poke-boom-args
   |=  [ost=bone you=ship *]
   :_  +>.$
   :-  [ost %pass / %g %cide %$]
   :*  [ost %give %nice ~]
       %+  turn  (~(tap by sup.hid))
       |=  [ost=bone *]
       =-  [ost %give %rush %tang -]
-      =+  a=0
+      %-  flop  ^-  (list tank)  %-  limo
+      =+  a=10
       |-
-      ?:  =(a 10)
-        ~[leaf/"BOOM! {(scow %ud a)}"]
-      :_  $(a +(a))
-      leaf/"bam #{(scow %ud a)}"
+      ?:  =(a 0)
+        ~[leaf/"BOOM!!!"]
+      :_  $(a (dec a))
+      leaf/"{(trip ?:(=((mod a 2) 0) 'tick' 'tock'))} - {(scow %ud a)}"
    ==
 ++  peer
   |=(* `+>)
+--
diff --git a/gistfile1.txt b/gistfile1.txt
@@ -0,0 +1,19 @@
+!:
+|_  [hid=hide ~]
+++  poke-foo-args
+  |=  [ost=bone you=ship *]
+  :_  +>.$
+  :-  [ost %pass / %g %cide %$]
+  :*  [ost %give %nice ~]
+      %+  turn  (~(tap by sup.hid))
+      |=  [ost=bone *]
+      =-  [ost %give %rush %tang -]
+      =+  a=0
+      |-
+      ?:  =(a 10)
+        ~[leaf/"BOOM! {(scow %ud a)}"]
+      :_  $(a +(a))
+      leaf/"bam #{(scow %ud a)}"
+   ==
+++  peer
+  |=(* `+>)
diff --git a/planet b/planet
@@ -0,0 +1,17 @@
+:: display "hello $ARG!"
+:: :planet "foo"
+!:
+|_  [hid=hide ~]
+++  poke-planet-args
+  |=  [ost=bone you=ship planet=tape *]
+  :_  +>.$
+  :-  [ost %pass / %g %cide %$]
+  :-  [ost %give %nice ~]
+  %+  turn  (~(tap by sup.hid))
+  |=  [ost=bone *]
+  =-  [ost %give %rush %tang -]
+  ~[leaf/"hello {planet}!"]
+++  peer
+  |=(* `+>)
+--
+~                 
diff --git a/mars b/mars
@@ -0,0 +1,14 @@
+!:
+|_  [hid=hide ~]
+++  poke-mars-args
+  |=  [ost=bone you=ship *]
+  :_  +>.$
+  :-  [ost %pass / %g %cide %$]
+  :-  [ost %give %nice ~]
+  %+  turn  (~(tap by sup.hid))
+  |=  [ost=bone *]
+  =-  [ost %give %rush %tang -]
+  ~[leaf/"hello mars!"]
+++  peer
+  |=(* `+>)
+--