manuth/zhaw-fup
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Solve last task

Browse source
This commit is contained in:
Manuel Thalmann 2024-03-14 18:34:27 +01:00
parent 7676005844
commit 4503171ec3
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Exercises/exercise-1/Code/D_Control.hs
View file

@ -114,7 +114,7 @@ circumference shape = case shape of
{- Exercise
Define a function
'area :: Shape -> Float'
to compute the area of any given shape. Use spearate
to compute the area of any given shape. Use separate
cases such as in 'Case 1' above.
-}
area :: Shape -> Float
@ -151,7 +151,7 @@ myFunc x =
x + 1
{- Where
Where is the same as let, but it does not preceed but
Where is the same as let, but it does not precede but
follow a "main" declaration.
-}
six :: Integer

14
Exercises/exercise-1/Code/D_ControlTodo.hs
View file

@ -62,8 +62,10 @@ fIfElse n =
fGuard :: Integer -> String
fGuard = error "fixme"
fGuard x
| (x `mod` 2 == 0) = "Even"
| (x `mod` 3 == 0) = "Odd"
| otherwise = "Oddity"
-----------------------------------------------------------
-- Cases and pattern matching
@ -113,12 +115,12 @@ circumference shape = case shape of
{- Exercise
Define a function
'area :: Shape -> Float'
to compute the area of any given shape. Use spearate
to compute the area of any given shape. Use separate
cases such as in 'Case 1' above.
-}
area :: Shape -> Float
area = error "fixme"
area (Rectangle length width) = width * length
area (Circle radius) = (radius ^ 2) * pi
-----------------------------------------------------------
-- Let and where
@ -149,7 +151,7 @@ myFunc x =
x + 1
{- Where
Where is the same as let, but it does not preceed but
Where is the same as let, but it does not precede but
follow a "main" declaration.
-}
six :: Integer