Fakultas Ilmu Komputer UI

Commit 70baa60a authored by Ari Nugraha's avatar Ari Nugraha
Browse files

implement add operation

parent 568405b0
......@@ -53,6 +53,7 @@ keyword :: String -> Parser ()
keyword = void . lexeme . string
doOperation "" = ""
doOperation (x:'+':y:xs) = ubahKeChurch x ++ ubahKeChurch '+' ++ ubahKeChurch y ++ doOperation xs
doOperation (x:xs) = ubahKeChurch x ++ doOperation xs
ubahKeChurch :: Char -> [Char]
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment