remembered to filter even numbers

2019-07-23 12:40:19 +12:00 · 2019-07-23 12:40:19 +12:00 · 088ff88052
commit 088ff88052
parent b071c13cf8
1 changed files with 5 additions and 2 deletions
--- a/spiral.hs
+++ b/spiral.hs
@ -54,5 +54,8 @@ main = do
            (words args)

 aura :: String -> Bool
-aura s = foldr (&&) True
-         (map (`elem` ['0'..'9']) s)
+aura s = if (foldr (&&) True (map (`elem` ['0'..'9']) s))
+         then ((mod rs 2) == 1)
+         else False
+   where
+      rs = (read s)::Int