Use guard conditions on '[' and ']' rather than conditional
authorMichael Welch <michaelgwelch@gmail.com>
Mon, 20 Feb 2012 13:44:34 +0000 (07:44 -0600)
committerMichael Welch <michaelgwelch@gmail.com>
Mon, 20 Feb 2012 13:44:34 +0000 (07:44 -0600)
haskell/execute.hs

index 1085c66..7409626 100644 (file)
@@ -10,16 +10,19 @@ execute '>' p t _ _ = return (p, moveF t)
 execute '<' p t _ _ = return (p, moveR t)
 execute '+' p t _ _ = return (p, inc t)
 execute '-' p t _ _ = return (p, dec t)
+
 execute '.' p t _ o = do
-                    o $ chr $ get t
-                    return (p, t)
+                        o $ chr $ get t
+                        return (p, t)
 execute ',' p t i _ = do
-                    c <- i 
-                    let t' = set t $ ord c
-                    return (p, t')
-execute '[' p t _  _= if ((get t) == 0) then return ((jumpF p), t) 
-                  else return (p, t)
-execute ']' p t _ _ = if ((get t) /= 0) then return ((jumpB p), t)
-                  else return (p, t)
+                        c <- i 
+                        let t' = set t $ ord c
+                        return (p, t')
+execute '[' p t _ _ | (get t) == 0 = return ((jumpF p), t)
+                    | otherwise = return (p, t)
+
+execute ']' p t _ _ | (get t) /= 0 = return ((jumpB p), t)
+                    | otherwise = return (p, t)
+
 execute _ p t _ _ = return (p, t)