как преобразовать список символов и ints в строку

Question

У меня есть список символов и целых чисел, и я пытаюсь преобразовать их в строку.

> (define l (cons #\a (cons #\b (cons 3 null)))) 

Я хочу преобразовать этот список в строку "ab3".

Использование list->string не работает:

> (list->string l) 
list->string: contract violation 
    expected: (listof char?) 
    given: (list #\a #\b 3) 

Когда я пытаюсь что в сочетании с integer->char, он дает это числовое значение:

> (define l (cons #\a (cons #\b (cons (integer->char 3) null)))) 
> (list->string l) 
"ab\u0003" 

Использование number->string не работает либо:

> (define l (cons #\a (cons #\b (cons (number->string 3) null)))) 
> (list->string l) 
list->string: contract violation 
    expected: (listof char?) 
    given: '(#\a #\b "3") 
    context...: 
    C:\Program Files\Racket\collects\racket\private\misc.rkt:87:7 

list->string требует, чтобы al ist символов, он не принимает строки.

Еще попробуйте сначала преобразовать строку в списке:

> (define l (cons #\a (cons #\b (cons (string->list (number->string 123)) null)))) 
> (list->string l) 
list->string: contract violation 
    expected: (listof char?) 
    given: '(#\a #\b (#\3)) 
    context...: 
    C:\Program Files\Racket\collects\racket\private\misc.rkt:87:7 

Он не принимает список суб либо. Как я могу преобразовать это в строку "ab3"?

Answer 1

Вы хотите обработать список символов и целых чисел и объединить все их вместе в одну строку. Попробуйте это:

(define (process lst) 
    (apply string-append     ; append all the strings 
     (map (lambda (e)    ; create a list of strings 
       (if (char? e)   ; if it's a char 
        (string e)   ; convert it to string 
        (number->string e))) ; same if it's a number 
       lst))) 

Например:

(process (list #\a #\b 123 #\c)) 
=> "ab123c" 

Answer 2

полукокса представляет собой тип, который имеет значение. Это значение определено в unicode, так что 65 является верхним регистром A, а 66 - это верхний регистр B. Все символы имеют целочисленное значение, а char->integer преобразует символы в числовое значение unicode и integer->char конвертирует из значения unicode символ.

Числовые символы начинаются в 48 (#x30), который является от нуля до 57 (#x39), который является девять. Таким образом (list->string (list #\a #\b (integer->number #x33))) ; ==> "ab3"

Числовое значение может быть преобразовано в строку с number->string. например. (number->string 123) => "123". Это отображается в базе 10, но если вы, возможно, захотите, чтобы он отображался в шестнадцатеричном виде, вы можете (number->string 123 16) ;==> "7b". Обратите внимание, что list->string принимает только список символов и не может содержать в себе другие элементы, такие как числа.

Вы можете присоединиться много строк вместе с string-append:

(string-append (list->string '(#\a #\b)) 
       (number->string #x7b) 
       "c") 
; ==> "ab123c"