RosettaCodeData/Task/Anonymous-recursion/Bracmat/anonymous-recursion-1.bracmat
Ingy döt Net 518da4a923 B
2013-04-10 16:19:29 -07:00

18 lines
319 B
Text

( (
=
. !arg:#:~<0
& ( (=.!arg$!arg)
$ (
=
.
' (
. !arg:<2
| (($arg)$($arg))$(!arg+-2)
+ (($arg)$($arg))$(!arg+-1)
)
)
)
$ !arg
)
$ 30
)