remembered to filter even numbers

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