RosettaCodeData/Task/Anonymous-recursion/Bracmat/anonymous-recursion-1.bracmat
2023-07-01 13:44:08 -04:00

18 lines
319 B
Text

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