I find it more appropriate in a dictionary: (define (fix2 str) (for/fold ([str (string-upcase str)]) ([(k v) (in-dict '((" / " . "_") (" " . "_") ("%" . "") ("-" . "_")))]) (regexp-replace* k str v))) Laurent <div class="gmail_quote">On Thu, May 10, 2012 at 11:07 PM, Vincent St-Amour <<a href="mailto:stamourv@ccs.neu.edu" target="_blank">stamourv@ccs.neu.edu</a>> wrote: <blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Using list comprehensions: (define (fix str) (for/fold ([str str]) ([old '(" / " " " "%" "-")] [new '("_" "_" "" "_")]) (regexp-replace* old str new))) Vincent At Thu, 10 May 2012 15:49:26 -0500, <div class="HOEnZb"><div class="h5">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? > ____________________ > Racket Users list: > <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a> ____________________ Racket Users list: <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a> </div></div></blockquote></div>