Remove !>.

This commit is contained in:
C. Guy Yarvin 2014-01-20 17:39:34 -08:00
parent a1a3295041
commit 1db95fbe74

View File

@ -4,6 +4,5 @@
|= *
|= [num=@ud ~]
:_ ~ :_ ~
:- %$
!> %. num
|=(x=@ ?:((lth x 2) 1 (add $(x (dec x)) $(x (sub x 2)))))
:+ %la %leaf
(scow %ud %.(num |=(x=@ ?:((lth x 2) 1 (add $(x (dec x)) $(x (sub x 2)))))))