Bonjour
J'ai écrit une fonction permettant d'extraire le nom du repertoire d'un chemin absolu vers un fichier. Seulement ma fonction ne renvoie rien et je ne comprends pas pkoi. Qq'un peut m'éclairer?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 (define dirname (lambda (path) (let ((len (string-length path))) (let loop ((index (- len 1))) (cond ((< index 0) ".") ((char=? (string-ref path index) #\/) (substring path 0 index) (else (loop (- index 1)))))))))
Partager