我如何获得列表方案中每个项目的第一个字符？

Question

我想要它提取列表中的所有第一个单词。 例如：

（首先'hello world asd fdas qwerty）

返回：

h w a f q。

Answer 1

试试这个：

(define (first-char lst)
  (map (lambda (w)
         (string->symbol
          (string
           (string-ref
            (symbol->string w) 0))))
       lst))

例如：

(first-char '(hello world asd fdas qwerty))
=> '(h w a f q)