NikolajDanger/2024B1-AP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

🖨️ Half a printing function part 2 (does not work)

Browse Source
This commit is contained in:
Nikolaj Gade
2024-09-26 17:01:06 +02:00
parent b399cbec6e
commit a32fcdf9da
1 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
a3/a3-handout/src/APL/Parser.hs
View File

@ -101,26 +101,33 @@ pLExp =
<$> (lKeyword "if" *> pExp) <$> (lKeyword "if" *> pExp)
<*> (lKeyword "then" *> pExp) <*> (lKeyword "then" *> pExp)
<*> (lKeyword "else" *> pExp), <*> (lKeyword "else" *> pExp),
Print
<$> (lKeyword "print" *> pStringLit)
<*> pExp,
pFExp pFExp
] ]
pPExp :: Parser Exp pExp3 :: Parser Exp
pPExp = pLExp >>= chain pExp3 =
choice
[
Print
<$> (lKeyword "print" *> pStringLit)
<*> pExp,
pLExp
]
pExp2 :: Parser Exp
pExp2 = pExp3 >>= chain
where where
chain x = chain x =
choice choice
[ do [ do
lString "**" lString "**"
y <- pPExp y <- pExp2
chain $ Pow x y, chain $ Pow x y,
pure x pure x
] ]
pExp1 :: Parser Exp pExp1 :: Parser Exp
pExp1 = pPExp >>= chain pExp1 = pExp2 >>= chain
where where
chain x = chain x =
choice choice