LaTeX-examples/documents/Programmierparadigmen/scripts/haskell/fakultaet-akkumulator.hs

fakAcc :: (Eq a, Num a) => a -> a -> a
fakAcc n acc = if (n==0) 
               then acc 
               else fakAcc (n-1) (n*acc)

fak :: (Eq a, Num a) => a -> a
fak n = fakAcc n 1
Viel zu Haskell ergänzt; Funktionen höherer Ordnung beschrieben 2014-02-04 14:07:24 +01:00			`fakAcc :: (Eq a, Num a) => a -> a -> a`
SW 2014-02-02 13:49:19 +01:00			`fakAcc n acc = if (n==0)`
			`then acc`
			`else fakAcc (n-1) (n*acc)`
Viel zu Haskell ergänzt; Funktionen höherer Ordnung beschrieben 2014-02-04 14:07:24 +01:00
			`fak :: (Eq a, Num a) => a -> a`
Haskell angefangen 2014-02-01 15:32:13 +01:00			`fak n = fakAcc n 1`