— CPSC 312 – 2019 – code for clicker questions
— Copyright D. Poole 2019, released under the GPL.
foo =
do
aaa <- return 5
return (aaa+4)
bar =
do
putStrLn("Test in bar")
v <- foo
putStrLn ("v is " ++ show v)
return ("v^3 is " ++ show (v^3))
{-
bar2 =
do
putStrLn("Test in bar")
v <- foo
w <- v -- (7+v)
putStrLn ("w is " ++ show w)
return ("v^3 is " ++ show (v^3))
-}
bar3 =
do
putStrLn("Test in bar")
v <- foo
w <- return (7+v)
putStrLn ("w is " ++ show w)
return ("v^3 is " ++ show (v^3))