Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/dsl_arithmetic_1_prn.hs

Created January 16, 2017 20:00
Show Gist options
  • Save deque-blog/870fb247e302baf99b3548179898bbb3 to your computer and use it in GitHub Desktop.
Save deque-blog/870fb247e302baf99b3548179898bbb3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dsl_arithmetic_1_prn.hs
prn :: Expr -> String
prn (Cst n) = show n
prn (Var v) = v
prn (Op Add xs) = "(+ " ++ unwords (map prn xs) ++ ")"
prn (Op Mul xs) = "(* " ++ unwords (map prn xs) ++ ")"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment