我如何獲得列表方案中每個項目的第一個字符？

Question

我想要它提取列表中的所有第一個單詞。 實施例：

（第一「世界你好ASD FDAS QWERTY）

返回：

ħ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)