Data.Listモジュール リストから重複する要素を取り除いた長さ import Data.List numUniques :: (Eq a) => [a] -> Int numUniques = length . nub*Main> numUniques [1,1,2,2,3,1] 3 *Main> nub [1,1,2,2,3,1] [1,2,3]Data.Listモジュールのインポート Prelu…

collatz_chain :: Integer -> [Integer] collatz_chain 1 = [1] collatz_chain n | even n = n : collatz_chain (div n 2) | odd n = n : collatz_chain (n * 3 + 1)*Main> collatz_chain 1 [1] *Main> collatz_chain 2 [2,1] *Main> collatz_chain 3 [3,10,…