Skip to content

Instantly share code, notes, and snippets.

@offby1

offby1/uniq.ss

Created October 31, 2009 05:09
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save offby1/222918 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save offby1/222918 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
uniq.ss
(define (uniq seq)
(cond
((null? seq)
seq)
((null? (cdr seq))
seq)
((equal? (car seq)
(cadr seq))
(uniq (cdr seq)))
(else
(cons (car seq)
(uniq (cdr seq))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment