-- Exercise 5.4
-- George C. Privon
-- 2024-07-20

repeatInt :: Int -> [Int]
repeatInt n = n:n:n:[]

-- `repeatInt` takes an input integer and returns a list of three copies of
-- that integer.

tripleString :: String -> [String]
tripleString stng = stng:stng:stng:[]

-- `tripleString` takes an input string and returns a list of three copies of
-- that string.