Spotlight archive

Guess the language.

Three lines, six guesses.

MODESpotlight0/6
Spotlight · ?.??
1data Shape = Circle Double | Square Double deriving (Show, Eq)
2area :: Shape -> Double
3area s = case s of Circle r -> pi * r * r; Square x -> x * x
Keep going