Multifactorial: Difference between revisions

m
→‎{{header|AppleScript}}: Modified to observe the !0 = 1 convention.
(Add Cowgol)
m (→‎{{header|AppleScript}}: Modified to observe the !0 = 1 convention.)
Line 286:
=={{header|AppleScript}}==
<syntaxhighlight lang="applescript">on multifactorial(n, d)
set f to n1
repeat with n from (n - d) to 2 by -d
set f to f * n
end repeat
557

edits