Supprimer les doublons, fonction en scheme

[invited223ccd7]

Bonjour , j'ai un DM a faire en info et je n'arrive pas a faire une fonction qui doit supprimer les doublons dans une chaine de caractère;
Par exemple : (supprDoublons "beurrier") doit retourner "beuri"
Pour l'instant j'ai fait cela mais ça ne marche pas :

(define (supprDoublons ch)
  ; renvoie la chaine ch en suppriment ses doublons
  ; chaine de caracteres-> chaine de caracteres
  (cond((or(string=? ch "")(=(string-length ch )1))ch)
       (not(char=? (string-ref ch 0)(string-ref ch 1))
       (supprDoublons(substring  ch 2)))
       (else( supprDoublons (substring ch 2)))))

Merci pour votre aide. Et bonne fin de journée.
-----