Comment puis-je obtenir le premier caractère de chaque élément dans un schéma de liste?

Question

Je veux qu'il extrait tous les premiers mots de la liste. Exemple:

(premier « bonjour monde asd fdas qwerty)

retour:

h w a f q.

Answer 1

Essayez ceci:

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

Par exemple:

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