baco
/
l-c2019
mirror of https://gitlab.com/baco/l-c2019.git
1
0
Fork 0
Code Issues Releases Wiki Activity

feat(coding-style): Correct coding style to examples

This commit is contained in:
Dionisio E Alonso 2023-04-19 23:03:20 -03:00
parent 380c9bdabb
commit 3a893cdb62
1 changed files with 59 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
Lab5/examples.hs
View File

@ -11,9 +11,11 @@ od
@
-}
eg1 :: Expr Ω
eg1 = While (Lt (Var "x") (Const 10)) $
Seq (EMark $ Var "x")
(Assign "x" (Plus (Var "x") (Const 1)))
eg1 =
While (Lt (Var "x") (Const 10)) $
Seq
(EMark $ Var "x")
(Assign "x" (Plus (Var "x") (Const 1)))
eval_eg1 :: IO ()
eval_eg1 = eval eg1 (\_ -> 0)
@ -28,13 +30,17 @@ od
@
-}
eg2 :: Expr Ω
eg2 = While (Lt (Var "y") (Const 10)) $
Seq (Seq (Seq (QMark "x")
(EMark $ Var "x")
)
(EMark $ Var "y")
eg2 =
While (Lt (Var "y") (Const 10)) $
Seq
( Seq
( Seq
(QMark "x")
(EMark $ Var "x")
)
(Assign "y" (Plus (Var "y") (Const 1)))
(EMark $ Var "y")
)
(Assign "y" (Plus (Var "y") (Const 1)))
eval_eg2 :: IO ()
eval_eg2 = eval eg2 (\_ -> 0)
@ -46,19 +52,24 @@ newvar x := 10 in !x end ;
@
-}
eg3 :: Expr Ω
eg3 = Seq (Seq (QMark "x")
(NewVar "x" (Const 10)
(EMark $ Var "x")
)
)
(EMark $ Var "x")
eg3 =
Seq
( Seq
(QMark "x")
( NewVar
"x"
(Const 10)
(EMark $ Var "x")
)
)
(EMark $ Var "x")
eval_eg3 :: IO ()
eval_eg3 = eval eg3 (\_ -> 0)
{- | Usage
@
```console
$ ghci Lab5.hs
\$ ghci Lab5.hs
```
@
@
@ -92,10 +103,14 @@ else
fi
@ -}
eg5 :: Expr Ω
eg5 = Seq (QMark "x")
(If (Lt (Var "x") (Const 10))
(EMark (Plus (Var "y") (Const 8)))
(EMark (Plus (Var "x") (Var "x"))))
eg5 =
Seq
(QMark "x")
( If
(Lt (Var "x") (Const 10))
(EMark (Plus (Var "y") (Const 8)))
(EMark (Plus (Var "x") (Var "x")))
)
-- > *Main> eval eg5 (\_ -> 7)
{- @
@ -107,10 +122,16 @@ with
!(y + 8)
@ -}
eg6 :: Expr Ω
eg6 = Seq (Catch Fail
(Seq (QMark "x")
(Assign "y" (Plus (Var "y") (Var "x")))))
(EMark (Plus (Var "y") (Const 8)))
eg6 =
Seq
( Catch
Fail
( Seq
(QMark "x")
(Assign "y" (Plus (Var "y") (Var "x")))
)
)
(EMark (Plus (Var "y") (Const 8)))
-- > *Main> eval eg6 (\_ -> 7)
{- @
@ -125,10 +146,18 @@ with
!(y + 8)
@ -}
eg7 :: Expr Ω
eg7 = Seq (Catch (Seq (QMark "x")
(If (Lt (Const 8) (Var "x"))
Fail
(Assign "y" (Const 13))))
(Assign "y" (Plus (Var "y") (Var "x"))))
(EMark (Plus (Var "y") (Const 8)))
eg7 =
Seq
( Catch
( Seq
(QMark "x")
( If
(Lt (Const 8) (Var "x"))
Fail
(Assign "y" (Const 13))
)
)
(Assign "y" (Plus (Var "y") (Var "x")))
)
(EMark (Plus (Var "y") (Const 8)))
-- > *Main> eval eg7 (\_ -> 7)