10 minutes ago, Grant Rettke wrote:
> Using this to help out with a task at work
>
> #lang racket
>
> (define (fix str)
> (define tmp str)
> (set! tmp (regexp-replace* " / " tmp "_"))
> (set! tmp (regexp-replace* " " tmp "_"))
> (set! tmp (regexp-replace* "%" tmp ""))
> (set! tmp (regexp-replace* "-" tmp "_"))
> (string-upcase tmp))
>
> Is there a better way?
(define (fix str)
(string-upcase
(regexp-replace* #rx"%" (regexp-replace* #rx" / |[ -]" str "_") "")))
?
--
((lambda (x) (x x)) (lambda (x) (x x))) Eli Barzilay:
http://barzilay.org/ Maze is Life!
____________________
Racket Users list:
http://lists.racket-lang.org/users
