Add a more elegant while implementation.

2020-10-26 19:16:17 -07:00 · 2020-10-26 19:16:17 -07:00 · e567872503
parent b2e7ccfeda
commit e567872503
1 changed files with 1 additions and 1 deletions
--- a/HW4Part1.hs
+++ b/HW4Part1.hs
@ -32,7 +32,7 @@ program =
    ]

 while :: Expr -> Prog -> Stmt
-while cond body = Loop $ If cond [] [ Break ] : body
+while cond body = Loop [ If cond body [ Break ] ]

 sumFromTo :: Int -> Int -> Prog
 sumFromTo f t =