Haskell stuff

gistfile1.txt

import Data.List
import Data.List.Split

isEven x = rem x 2 == 0

isLong x = length x > 2

ftext xs = filter isLong . concat . map tails $ splitOn " " xs

doubleChars cs = concat $ map (\c->[c,c]) cs

-- map (*2) [1..10]

contains wordList text = or $ map (flip isInfixOf text) wordList

-- let (passed, failed) = partition (>60) [49, 58, 76, 82, 88, 90]