From 088ff88052a20fa86c675181bf7c7c18dafa3369 Mon Sep 17 00:00:00 2001
From: tA <s@p7.co.nz>
Date: Tue, 23 Jul 2019 12:40:19 +1200
Subject: [PATCH] remembered to filter even numbers

---
 spiral.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/spiral.hs b/spiral.hs
index 89a75cd..41208f0 100644
--- 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