アレイのuniqです。 ar = [3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5, 8, 9, 7, 9] main = print $ uniq ar uniq :: [Int] -> [Int] uniq [] = [] uniq (x:xs) = x : (uniq $ filter (/= x) xs) 先頭から一つ取り出して、取り出したものと同じ数字を外すというやりか…