compute :: T.Text -> Int
compute raw = length $ filter (`elem` rangedTriangleNumbers) valueList
  where
    wordList = read $ "[" ++ T.unpack raw ++ "]"
    valueList = wordValue <$> wordList
    vMax = maximum valueList
    rangedTriangleNumbers = takeWhile (<= vMax) triangleNumbers
compute :: T.Text -> Int
compute raw = length $ filter (`elem` rangedTriangleNumbers) valueList
  where
    wordList = read $ "[" ++ T.unpack raw ++ "]"
    valueList = wordValue <$> wordList
    vMax = maximum valueList
    rangedTriangleNumbers = takeWhile (<= vMax) triangleNumbers
compute raw = length $ filter (`elem` rangedTriangleNumbers) valueList
  where
    wordList = read $ "[" ++ T.unpack raw ++ "]"
    valueList = wordValue <$> wordList
    vMax = maximum valueList
    rangedTriangleNumbers = takeWhile (<= vMax) triangleNumbers