Scheme- Moyenne note en lettre

Bonjour tout le monde, j'ai un soucis j'aimerais pouvoir faire la moyenne de notes en lettre (systeme americain) en tapant une requête comme ceci
(gpa '(A B C D))

Le probleme est que je n'arrive pas à transformer mes lettres en chiffres pour ensuite les utiliser pour faire une moyenne.
j'ai mon code qui additionne le total d'une liste et j'ai une autre partie de code qui calcule la longueur de la liste, je joint les deux bouts et j'ai ma moyenne

j'ai du code pour transformer mes lettres en chiffres

mais je n'arrive pas à joindre les deux bouts pour faire marcher mes lettre pour calculer une moyenne.... j'ai tenté beaucoup de choses et je commence à être perdu est-ce que quelqu'un pourrait m'aider s'il vous plait??

Merci d'avance

Avec ton code ceci fonctionne très bien il me semble :

Code:

---

1 2 3 4

(define (gpa L) (avg (map grade L))) (gpa '("A" "B" "C"))

---