Poster un nouveau message
En réponse à :
Knuth-Morris-Pratt en style récursif
le mardi 13 mai 2008
le mardi 13 mai 2008
Voici comme promis une version en style récursif du programme Knuth-Morris-Pratt. Ce type d’exercice est plein de pièges : si vous découvrez que je suis tombé dans l’un d’entre eux, je serais content que vous me le signaliez.
(module kmp-table (export (kmp:table Word)))
(define (kmp:table Word) (let* ((WordLength (string-length Word)) (Tpref (make-vector (+ WordLength 1) 0)) ) (vector-set ! Tpref 0 -1) (let loop ((i 0) (j -1) (…)