urbit/try/bin/fib.hoon
2014-01-27 10:49:26 -08:00

10 lines
158 B
Plaintext

!:
:: /=try=/bin/fib/hoon
::
|= *
|= [num=@ud ~]
:_ ~ :_ ~
:+ %la %leaf
(scow %ud %.(num |=(x=@ ?:((lth x 2) 1 (add $(x (dec x)) $(x (sub x 2)))))))