🐛 fix negative

kowainik · Jan 25, 2024 · c57a80e · c57a80e
1 parent 286780e
commit c57a80e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/Chapter1.hs b/src/Chapter1.hs
@@ -492,7 +492,7 @@ Implement a function that returns the last digit of a given number.
 -}
 -- DON'T FORGET TO SPECIFY THE TYPE IN HERE
 lastDigit :: Int -> Int
-lastDigit n = n `mod` 10
+lastDigit = (`mod` 10) . abs
 
 
 {- |
@@ -641,8 +641,9 @@ specifying complex expressions.
 
 sumLast2 :: Int -> Int
 sumLast2 x =
-  let last = x `mod` 10
-      secondlast = x `mod` 100 `div` 10
+  let ax = abs x 
+      last = ax `mod` 10
+      secondlast = ax `mod` 100 `div` 10
   in last + secondlast