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

19 lines
319 B
Plaintext

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