egg timer done

2019-10-16 11:04:52 +13:00 · 2019-10-16 11:04:52 +13:00 · 40795a9d30
commit 40795a9d30
parent aac01b3ce3
1 changed files with 18 additions and 0 deletions
--- a/201/week4/egg.hoon
+++ b/201/week4/egg.hoon
@ -0,0 +1,18 @@
+|%
+$  effect   (pair bone syscall)
+$  syscall  [%wait path @da]
+--
+|_  [bowl:gall ~]
++  poke-noun
+  |=  t=@da
+  ?:  (lth t now)
+    !!
+  ^+  [*(list effect) +>.$]
+  :_  +>.$  :_  ~
+  [ost %wait /egg-timer t]
++  wake
+  |=  [=wire error=(unit tang)]
+  ^+  [*(list effect) +>.$]
+  ~&  "Timer went off!"
+  [~ +>.$]
+--