Created

Embed URL

HTTPS clone URL

SSH clone URL

You can clone with HTTPS or SSH.

Download Gist

Programming Praxis 19 Aug 2011 (first non-repeating char) solution in PLT Racket

View Praxis19Aug2011.rkt
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#lang racket
 
(define (first-uniq chars)
(when (empty? chars)
(raise "There are no unique letters"))
(let ([c (first chars)])
(if (memq c (rest chars)) ; MEMQ is like MEMBER with EQ?
(first-uniq (remq* (list c) chars)) ; N.B the tail-recursion here
c)))
 
(require rackunit)
(check-equal? (first-uniq (string->list "aabcbcdeef"))
#\d)
(check-equal? (first-uniq (string->list "faabcbcdeef"))
#\d)
(check-equal? (first-uniq (string->list "aabcbcdeefd"))
#\f)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.