2
0
Fork 0
mirror of https://github.com/MartinThoma/LaTeX-examples.git synced 2025-04-26 06:48:04 +02:00
LaTeX-examples/documents/Programmierparadigmen/scripts/haskell/fakultaet.hs

3 lines
75 B
Haskell
Raw Normal View History

fak :: (Eq a, Num a) => a -> a
2014-02-01 15:32:13 +01:00
fak n = if (n==0) then 1 else n * fak (n-1)