Anonymous user
Factorial: Difference between revisions
→{{header|Racket}}
(Added Excel implementation) |
|||
Line 5,776:
(fact (- n 1) (* n acc))))
(fact n 1))</lang>
=== Fold ===
We can also define factorial as for/fold (product startvalue) (range) (operation))
<lang Racket>(define (factorial n)
(for/fold ([pro 1]) ([i (in-range 1 (+ n 1))]) (* pro i)))</lang>
Or quite simpler by an for/product
<lang Racket>(define (factorial n)
(for/product ([i (in-range 1 (+ n 1))]) i))</lang>
=={{header|Rapira}}==
| |||