瀏覽代碼

egg timer done

master
Thorn Avery 4 年之前
父節點
當前提交
40795a9d30
共有 1 個文件被更改,包括 16 次插入0 次删除
  1. +16
    -0
      201/week4/egg.hoon

+ 16
- 0
201/week4/egg.hoon 查看文件

@@ -0,0 +1,18 @@
|%
+$ effect (pair bone syscall)
+$ syscall [%wait path @da]
--
|_ [bowl:gall ~]
|= t=@da
?: (lth t now)
!!
^+ [*(list effect) +>.$]
:_ +>.$ :_ ~
[ost %wait /egg-timer t]
|= [=wire error=(unit tang)]
^+ [*(list effect) +>.$]
~& "Timer went off!"
[~ +>.$]
--

Loading…
取消
儲存