LaTeX-examples/documents/Programmierparadigmen/scripts/haskell/binomialkoeffizient.hs

mirror of https://github.com/MartinThoma/LaTeX-examples.git synced 2025-04-26 06:48:04 +02:00
binom :: (Eq a, Num a, Num a1) => a -> a -> a1
binom n k =
    if (k==0) || (k==n)
    then 1
    else binom (n-1) (k-1) + binom (n-1) k
Viel zu Haskell ergänzt; Funktionen höherer Ordnung beschrieben 2014-02-04 14:07:24 +01:00			`binom :: (Eq a, Num a, Num a1) => a -> a -> a1`
Haskell angefangen 2014-02-01 15:32:13 +01:00			`binom n k =`
			`if (k==0) \|\| (k==n)`
			`then 1`
			`else binom (n-1) (k-1) + binom (n-1) k`