Fakultas Ilmu Komputer UI
Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Ari Angga Nugraha
ariangganugraha-funpro2020-lambda
Commits
b3881fba
Commit
b3881fba
authored
Nov 14, 2020
by
Ari Nugraha
Browse files
implement multiplication
parent
70baa60a
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Language/Lambda/Parser.hs
View file @
b3881fba
...
...
@@ -53,20 +53,20 @@ keyword :: String -> Parser ()
keyword
=
void
.
lexeme
.
string
doOperation
""
=
""
doOperation
(
x
:
'
+
'
:
y
:
xs
)
=
ubahKeChurch
x
++
ubahKeChurch
'+'
++
ubahKeChurch
y
++
doOperation
xs
doOperation
(
x
:
'
*
'
:
y
:
xs
)
=
ubahKeChurch
'*'
++
ubahKeChurch
x
++
ubahKeChurch
y
++
doOperation
xs
doOperation
(
x
:
xs
)
=
ubahKeChurch
x
++
doOperation
xs
ubahKeChurch
::
Char
->
[
Char
]
ubahKeChurch
'+'
=
"(
\\
w y x. y (w y x))"
ubahKeChurch
'*'
=
"(
\\
x y z . x (y z))"
ubahKeChurch
'0'
=
"(
\\
s z. z)"
ubahKeChurch
'1'
=
"(
\\
s z. s z)"
ubahKeChurch
'2'
=
"(
\\
s z. s (s z))"
ubahKeChurch
'3'
=
"(
\\
s z. s (s (s z)))"
ubahKeChurch
'4'
=
"(
\\
s z. s (s (s (s z))))"
ubahKeChurch
'5'
=
"(
\\
s z. s (s (s (s (s z)))))"
ubahKeChurch
'6'
=
"(
\\
s z. s (s (s (s (s (s z))))))"
ubahKeChurch
'7'
=
"(
\\
s z. s (s (s (s (s (s (s z)))))))"
ubahKeChurch
'8'
=
"(
\\
s z. s (s (s (s (s (s (s (s z))))))))"
ubahKeChurch
'9'
=
"(
\\
s z. s (s (s (s (s (s (s (s (s z)))))))))"
ubahKeChurch
'0'
=
"(
\\
s z
. z)"
ubahKeChurch
'1'
=
"(
\\
s z
. s z)"
ubahKeChurch
'2'
=
"(
\\
s z
. s (s z))"
ubahKeChurch
'3'
=
"(
\\
s z
. s (s (s z)))"
ubahKeChurch
'4'
=
"(
\\
s z
. s (s (s (s z))))"
ubahKeChurch
'5'
=
"(
\\
s z
. s (s (s (s (s z)))))"
ubahKeChurch
'6'
=
"(
\\
s z
. s (s (s (s (s (s z))))))"
ubahKeChurch
'7'
=
"(
\\
s z
. s (s (s (s (s (s (s z)))))))"
ubahKeChurch
'8'
=
"(
\\
s z
. s (s (s (s (s (s (s (s z))))))))"
ubahKeChurch
'9'
=
"(
\\
s z
. s (s (s (s (s (s (s (s (s z)))))))))"
ubahKeChurch
x
=
[
x
]
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment