omoikani #4879(2007/12/19 01:04 GMT) [ StandardML ] Rating0/0=0.00
まぁ、効率は良くない.。
1 2 3 4 5 6 7 8
val xs = [3, 1, 4, 1, 5, 9, 2, 6, 5] fun uniq [] = [] | uniq (x::xs) = if List.exists (fn y => y = x) xs then uniq (List.filter (fn z => z <> x) xs) else x :: uniq xs val _ = uniq xs
Rating0/0=0.00-0+
[ reply ]
omoikani
#4879()
[
StandardML
]
Rating0/0=0.00
まぁ、効率は良くない.。
Rating0/0=0.00-0+
[ reply ]