1. Forum
  2. USENET
  3. comp.lang.lisp

  • Re: binary rep as list? string-to-list?

    From B. Pym@Nobody447095@here-nor-there.org to comp.lang.lisp on Mon Jun 16 12:30:03 2025
    From Newsgroup: comp.lang.lisp

    .. but now stuck on how to convert the "1001" string into a (1 0 0 1) integer list. Any help appreciated --- thanks!

    an iterative solution:

    (loop for digit across (write-to-string 9 :base 2) collect
    (if (char= digit #\1) 1 0))

    or a more functional solution:

    (map 'list
    #'(lambda (x) (if (char= x #\1) 1 0))
    (write-to-string 9 :base 2))

    Scheme:

    (map string->number (map string (string->list "1001")))

    (1 0 0 1)
    --- Synchronet 3.21d-Linux NewsLink 1.2