Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
Download

📚 The CoCalc Library - books, templates and other resources

132937 views
License: OTHER
Tweet
Share
Share
1
fakAcc :: (Eq a, Num a) => a -> a -> a

2
fakAcc n acc = if (n==0) 

3
               then acc 

4
               else fakAcc (n-1) (n*acc)

5


6
fak :: (Eq a, Num a) => a -> a

7
fak n = fakAcc n 1

8


9