mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-25 06:18:05 +02:00
4 lines
111 B
Haskell
4 lines
111 B
Haskell
fakAcc n acc = if (n==0)
|
|
then acc
|
|
else fakAcc (n-1) (n*acc)
|
|
fak n = fakAcc n 1
|