omoikani #4736(2007/12/10 19:35 GMT) [ StandardML ] Rating0/0=0.00
#4465も対処済み。
1 2 3 4 5 6 7 8
fun ls x y = let fun uniq l = foldr (fn (b, a) => b :: List.filter (fn x => x <> b) a) [] l val p = y ^ (if String.isSuffix "/" y then "" else "/") in (uniq o map (subst "/.*" "/" o subst p "") o List.filter (String.isPrefix p)) x end
Rating0/0=0.00-0+
[ reply ]
omoikani
#4736()
[
StandardML
]
Rating0/0=0.00
#4465も対処済み。
Rating0/0=0.00-0+
[ reply ]