urbit/try/bin/fib.hoon

10 lines
158 B
Plaintext
Raw Normal View History

2013-09-29 00:21:18 +04:00
!:
:: /=try=/bin/fib/hoon
2013-09-29 00:21:18 +04:00
::
|= *
|= [num=@ud ~]
:_ ~ :_ ~
2014-01-21 05:39:34 +04:00
:+ %la %leaf
(scow %ud %.(num |=(x=@ ?:((lth x 2) 1 (add $(x (dec x)) $(x (sub x 2)))))))
2014-01-27 22:49:26 +04:00