Fix mistake in HW3.

2019-02-01 20:44:12 -08:00 · 2019-02-01 20:44:12 -08:00 · 1b4656a099
parent 7fd2274873
commit 1b4656a099
1 changed files with 1 additions and 1 deletions
--- a/HW3.fedorind.hs
+++ b/HW3.fedorind.hs
@ -52,7 +52,7 @@ nixMacro = Define "nix" [ "x", "y", "w", "h" ]
 steps :: Int -> Prog
 steps n = base ++ stepList
    where
-        base = [ Pen Up, Move (Number 0) (Number 0) ]
+        base = [ Pen Up, Move (Number 0) (Number 0), Pen Down ]
        stepList = [1..n] >>= (\i -> [ Move (Number (i -1)) (Number i), Move (Number i) (Number i) ])

 prettyPrintExpr :: Expr -> String