Sha256: 79002d9ffdd8f2fa1d4f8304dcae97af86e77073a25ddc1b0058c57f4cc45ba3
Contents?: true
Size: 383 Bytes
Versions: 396
Compression:
Stored size: 383 Bytes
Contents
module Sublist (Sublist(..), sublist) where
import Data.List (isInfixOf)
data Sublist = Equal
| Sublist
| Superlist
| Unequal
deriving (Eq, Show)
sublist :: Eq a => [a] -> [a] -> Sublist
sublist xs ys
| xs == ys = Equal
| xs `isInfixOf` ys = Sublist
| ys `isInfixOf` xs = Superlist
| otherwise = Unequal
Version data entries
396 entries across 396 versions & 1 rubygems