Code Immersion

Here’s a procedure to turn a symbol into a list of symbols, each made from one character of the original symbol:

(define explode
  (lambda (sym)
    (map string->symbol
         (map (lambda (c) (make-string 1 c))
              (string->list (symbol->string sym))))))

(explode 'boom)

-Lee

This entry was posted on December 10, 2009 at 12:11 pm and is filed under Uncategorized.