RosettaCodeData/Task/Anonymous-recursion/Bracmat/anonymous-recursion-2.bracmat

22 lines
396 B
Text
Raw Permalink Normal View History

2013-04-10 16:19:29 -07:00
( /(
' ( x
. $x:#:~<0
& ( /('(f.($f)$($f)))
$ /(
' ( r
. /(
' ( n
. $n:<2
| (($r)$($r))$($n+-2)
+ (($r)$($r))$($n+-1)
)
)
)
)
)
$ ($x)
)
)
$ 30
)