6 lines
106 B
Text
6 lines
106 B
Text
let factorial n =
|
|
let result = ref 1 in
|
|
for i = 1 to n do
|
|
result := !result * i
|
|
done;
|
|
!result
|