Remove duplicates from a list in SML

Question

I just started learning functional programming in SML and I want to know how I can combine the following two functions into a single function. The function isolate deletes the duplicates of a list of any type ('a) using the helper function 'removes'.

fun isolate [] = []
  | isolate (l as x::xs) = x::isolate(remove(x,xs))

fun remove (x,[]) = []
  | remove (x,l as y::ys) = if x = y then remove(x,ys) else y::remove(x,ys)

So, for the purpose of better understanding the constructs in the SML, how would you include the function remove within isolate? This may seem trivial, but I have thinking about it and can't figure it out. Thank you for your help!

qaphla · Accepted Answer · 2016-12-10T18:52:23.840

10

One method would be to just define remove inside isolate.

fun isolate [] = []
  | isolate (l as x::xs) =
      let fun remove (x,[]) = []
            | remove (x,l as y::ys) = if x = y
                                      then remove(x,ys)
                                      else y::remove(x,ys)
      in
        x::isolate(remove(x,xs))
      end

Alternately, to make deduplication one function, though all this really does is use the library function List.filter to do the same thing that remove does.

fun isolate [] = []
  | isolate (x::xs) = x::isolate(List.filter (fn y => y <> x) xs)

edited Dec 10 '16 at 18:52

answered Jan 12 '14 at 18:34

qaphla

4,707
3
20
31

Hey @qaphla, when I compile your code I'm getting an operator and operand don't agree error, I can't find the error. – macalaca Jan 14 '14 at 16:58
never mind. I found it when you call the remove method in the 'in' part of the let. You are not passing the correct arguments. – macalaca Jan 14 '14 at 17:01

score 1 · Answer 2 · answered Jul 18 '17 at 14:13

My idea: define a nested function to check if there are duplicated elements in the list:

fun set(nums:int list)=
  let fun duplicate(x:int, l:int list)=
    if null l
    then false
    else hd l=x orelse duplicate(x,tl l)
  in
      if null nums
      then []
      else
      let val s=set(tl nums)
      in if duplicate(hd nums,s)
         then s
         else hd nums::s
      end
  end

But it will give a list that only remains the last one for every duplicated elements.

score 0 · Answer 3 · answered Oct 14 '14 at 09:05

I want to propound the following solutions of this problem:

fun remove_duplicates(xs: int list) = 
    let
        fun check(xs: int list, item: int) =
            if null xs
            then false
            else if hd xs = item
            then true
            else check (tl xs, item)
        fun go_through_list(xs: int list) =
            if null xs
            then []
            else if check(tl xs, hd xs)
                 then go_through_list(tl xs)
                 else hd xs :: go_through_list(tl xs)
    in
        go_through_list(xs)
    end

It's more lines of code than in the solution propounded by @qaphla

score 0 · Answer 4 · answered Feb 01 '18 at 13:09

My idea is to first sort the list, then recursively return a new list without duplicates:

fun remove_duplicates(l: int list) =
if null(l)
then []
else if null(tl l)
then l
else
    let
        fun compare(x: int, y: int) = x > y
        fun sort(l: int list) = ListMergeSort.sort(compare) l
        val l_sorted = sort(l)
    in
        if (hd l_sorted) = (hd (tl l_sorted))
        then remove_duplicates(tl l_sorted)
        else (hd l_sorted)::remove_duplicates(tl l_sorted)
    end

Remove duplicates from a list in SML

4 Answers4