Home Explore Help
Sign In
CNI
/
HaskellCourse
3
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Add an add function which is terminal

DricomDragon 5 years ago
parent
517810289f
commit
a7d1edd356
1 changed files with 4 additions and 0 deletions
Split View Show Diff Stats
  1. 4 0
      peano.hs

+ 4 - 0
peano.hs
View File 

@@ -10,3 +10,7 @@ addition aNat tinyNat = case tinyNat of
 
 	Zero -> aNat
 
 	Succ tinierNat -> Succ (addition aNat tinierNat)
 
 
+additiont aNat tinyNat = case tinyNat of
 
+	Zero -> aNat
 
+	Succ tinierNat -> additiont (Succ aNat) tinierNat
 
+