Notes

module Opdracht1 where
import Data.List

data Kleur = Rood | Blauw | Geel
deriving Show

data Geofig = Vierkant Double Kleur--datatype Vierkant met lengte Double
| Rechthoek Double Double Kleur--datatype Vierkant met riblengte Double en Double
| Driehoek Double Kleur--datatype Driehoek met riblengte Double
| Cirkel Double Kleur--datatype Cirkel met straal Double
deriving Show

roodVierkant = Vierkant 2.0 Rood
blauwCirkel = Cirkel 3.0 Blauw
geelRechthoek = Rechthoek 3.0 5.0 Geel
roodRechthoek = Rechthoek 3.0 6.0 Rood
blauwDriehoek = Driehoek 5.5 Blauw

figlist = [roodVierkant , blauwCirkel , geelRechthoek, roodRechthoek, blauwDriehoek, blauwCirkel]

--geoOppervlakte:: Geofig -> Float
geoOppervlakte (Vierkant riblengte _) = riblengte * riblengte
geoOppervlakte (Rechthoek riblengteA riblengteB _) = riblengteA * riblengteB
geoOppervlakte (Driehoek riblengte _) = (riblengte^2) * ((sqrt 3.0) / 4.0)
geoOppervlakte (Cirkel straal _) = pi * straal^2

geoOmtrek (Vierkant riblengte _) = riblengte * 4
geoOmtrek (Rechthoek riblengteA riblengteB _) = riblengteA * 2 + 2 * riblengteB
geoOmtrek (Driehoek riblengte _) = riblengte * 3
geoOmtrek (Cirkel straal _) = pi*2 * straal

geoIsVierkant::Geofig -> Bool
geoIsVierkant (Vierkant _ _) = True
geoIsVierkant _ = False

geoIsCirkel::Geofig -> Bool
geoIsCirkel (Cirkel _ _) = True
geoIsCirkel _ = False

geoIsRechthoek::Geofig -> Bool
geoIsRechthoek (Rechthoek _ _ _) = True
geoIsRechthoek _ = False

geoIsDriehoek::Geofig -> Bool
geoIsDriehoek (Driehoek _ _) = True
geoIsDriehoek _ = False

geefVierkanten::[Geofig] -> [Geofig]
geefVierkanten a = filter geoIsVierkant a

geoKleur::Geofig -> Kleur
geoKleur (Rechthoek _ _ a) = a
geoKleur (Driehoek _ a) = a
geoKleur (Cirkel _ a) = a
geoKleur (Vierkant _ a) = a

kleurName::Kleur -> String
kleurName Rood = "Rood"
kleurName Blauw = "Blauw"
kleurName Geel = "Geel"

isGeofigKleur::Kleur -> Geofig -> Bool
isGeofigKleur b a = kleurName (geoKleur a) == kleurName b

geefGeofig::[Geofig]->String->[Geofig]
geefGeofig a b
| b == "Vierkant" = filter geoIsVierkant a
| b == "Driehoek" = filter geoIsDriehoek a
| b == "Cirkel" = filter geoIsCirkel a
| b == "Rechthoek" = filter geoIsRechthoek a

geefGeofigMetKleur::Kleur->[Geofig]->[Geofig]
geefGeofigMetKleur b a = filter (isGeofigKleur b) a

geoGrootsteOpp::Geofig->Geofig->Geofig
geoGrootsteOpp a b
| geoOppervlakte a < geoOppervlakte b = b
| otherwise = a

geoGrootsteOmt::Geofig->Geofig->Geofig
geoGrootsteOmt a b
| geoOmtrek a < geoOmtrek b = b
| otherwise = a

rmdups :: (Ord a) => [a] -> [a]
rmdups = map head . group . sort

geefGeofigGrootsteOpp::[Geofig]->[Geofig]
geefGeofigGrootsteOpp [] = []
geefGeofigGrootsteOpp [x] = [x]
geefGeofigGrootsteOpp (x:xs)
| geoOppervlakte x < geoOppervlakte (head xs) = geefGeofigGrootsteOpp xs
| geoOppervlakte x > geoOppervlakte (head xs) = geefGeofigGrootsteOpp (xs ++ [x])
| length (rmdups (map geoOppervlakte (x:xs))) == 1 = (x:xs)
| otherwise = geefGeofigGrootsteOpp (xs ++ [x])

geefGeofigGrootsteOmtr::[Geofig]->[Geofig]
geefGeofigGrootsteOmtr [] = []
geefGeofigGrootsteOmtr [x] = [x]
geefGeofigGrootsteOmtr (x:xs)
| geoOmtrek x < geoOmtrek (head xs) = geefGeofigGrootsteOmtr xs
| geoOmtrek x > geoOmtrek (head xs) = geefGeofigGrootsteOmtr (xs ++ [x])
| length (rmdups (map geoOmtrek (x:xs))) == 1 = (x:xs)
| otherwise = geefGeofigGrootsteOmtr (xs ++ [x])