Improved project structure.

2017-06-01 14:50:23 +02:00
parent 5e06b03248
commit 89f0d81598
25 changed files with 2 additions and 0 deletions
--- a/haskell/e020.hs
+++ b/haskell/e020.hs
@@ -0,0 +1,8 @@
+import Data.Char (digitToInt)
+
+factorial :: Integer -> Integer
+factorial 1 = 1
+factorial x = x * factorial (x - 1)
+
+sumDigits :: Integer -> Int
+sumDigits = sum . map digitToInt . show