From 1b4656a09912f718289a6d5d9ee1d68b5d94f922 Mon Sep 17 00:00:00 2001 From: Danila Fedorin Date: Fri, 1 Feb 2019 20:44:12 -0800 Subject: [PATCH] Fix mistake in HW3. --- HW3.fedorind.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/HW3.fedorind.hs b/HW3.fedorind.hs index 8bd3785..d0504ba 100644 --- 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