;; Ces programmes sont sous licence CeCILL-B V1. ;; Exécution en ligne de commande avec Bigloo : ;; $ bigloo -i RepertoireFonctions.scm (define nb 0) (define nom (make-vector nb "")) (define tel (make-vector nb "")) (define (initialise) (set! nb 10) (set! nom (make-vector nb "")) (set! tel (make-vector nb "")) (vector-set! nom 0 "Alice") (vector-set! tel 0 "0606060606") (vector-set! nom 1 "Bob") (vector-set! tel 1 "0606060607") (vector-set! nom 2 "Charles") (vector-set! tel 2 "0606060608") (vector-set! nom 3 "Djamel") (vector-set! tel 3 "0606060609") (vector-set! nom 4 "Étienne") (vector-set! tel 4 "0606060610") (vector-set! nom 5 "Frédérique") (vector-set! tel 5 "0606060611") (vector-set! nom 6 "Guillaume") (vector-set! tel 6 "0606060612") (vector-set! nom 7 "Hector") (vector-set! tel 7 "0606060613") (vector-set! nom 8 "Isabelle") (vector-set! tel 8 "0606060614") (vector-set! nom 9 "Jérôme") (vector-set! tel 9 "0606060615") ) (define (recherche s) (do ((i 0 (+ i 1))) ((or (= i nb) (string=? s (vector-ref nom i))) (if (< i nb) (vector-ref tel i) "Inconnu")))) (initialise) (let ((n (read-line))) (display (recherche n)) (newline))