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

19 lines
319 B
Text
Raw Permalink Normal View History

2013-04-10 16:19:29 -07:00
( (
=
. !arg:#:~<0
& ( (=.!arg$!arg)
$ (
=
.
' (
. !arg:<2
| (($arg)$($arg))$(!arg+-2)
+ (($arg)$($arg))$(!arg+-1)
)
)
)
$ !arg
)
$ 30
)