CS-381/Homework
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix mistake in HW3.

Browse Source
This commit is contained in:
Danila Fedorin 2019-02-01 20:44:12 -08:00
parent 7fd2274873
commit 1b4656a099
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
HW3.fedorind.hs
View File

@ -52,7 +52,7 @@ nixMacro = Define "nix" [ "x", "y", "w", "h" ]
steps :: Int -> Prog steps :: Int -> Prog
steps n = base ++ stepList steps n = base ++ stepList
where 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) ]) stepList = [1..n] >>= (\i -> [ Move (Number (i -1)) (Number i), Move (Number i) (Number i) ])
prettyPrintExpr :: Expr -> String prettyPrintExpr :: Expr -> String