RosettaCodeData/Task/Factorial/Bracmat/factorial-1.bracmat
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

27 lines
673 B
Text

(
=
. !arg:0&1
| !arg
* ( (
= r
. !arg:?r
&
' (
. !arg:0&1
| !arg*(($r)$($r))$(!arg+-1)
)
)
$ (
= r
. !arg:?r
&
' (
. !arg:0&1
| !arg*(($r)$($r))$(!arg+-1)
)
)
)
$ (!arg+-1)
)
$ 10
: 3628800