Sha256: 3b363cc10ec03cb52321f4c5c1c2a456f2baadf759709592534ff7a62a3ae974
Contents?: true
Size: 826 Bytes
Versions: 354
Compression:
Stored size: 826 Bytes
Contents
module Triangle
( Triangle(Equilateral, Isosceles, Scalene)
, triangleKind
) where
import Prelude
import Data.Set as Set
import Data.Either (Either(Left, Right))
import Data.Generic (class Generic, gShow)
data Triangle
= Equilateral
| Isosceles
| Scalene
derive instance eqTriangle :: Eq Triangle
derive instance genericTriangle :: Generic Triangle
instance showTriangle :: Show Triangle where
show = gShow
type ErrorMsg = String
triangleKind :: Int -> Int -> Int -> Either ErrorMsg Triangle
triangleKind x y z
| x <= 0 || y <= 0 || z <= 0
= Left "Invalid lengths"
| x + y <= z || x + z <= y || y + z <= x
= Left "Violates inequality"
| otherwise
= case Set.size $ Set.fromFoldable [x, y, z] of
1 -> Right Equilateral
2 -> Right Isosceles
_ -> Right Scalene
Version data entries
354 entries across 354 versions & 1 rubygems