AA
Size: a a a
AA
AA
AF
MK
к
YR
MK
MK
AA
AA
AA
AA
longdist' :: [a] -> Maybe a
longdist' l@(_:_) = case l of x:_ -> Just x
longdist' [] = Nothing
longdist :: [a] -> Maybe a
longdist [] = Nothing
longdist l = case l of x:_ -> Just x
Pattern match(es) are non-exhaustive
In a case alternative: Patterns not matched: []
|
12 | longdist l = case l of x:_ -> Just x
| ^^^^^^^^^^^^^^^^^^^^^^^
AA
AA
JS
longdist' :: [a] -> Maybe a
longdist' l@(_:_) = case l of x:_ -> Just x
longdist' [] = Nothing
longdist :: [a] -> Maybe a
longdist [] = Nothing
longdist l = case l of x:_ -> Just x
Pattern match(es) are non-exhaustive
In a case alternative: Patterns not matched: []
|
12 | longdist l = case l of x:_ -> Just x
| ^^^^^^^^^^^^^^^^^^^^^^^
AA