;; Ces programmes sont sous licence CeCILL-B V1.
;; Exécution en ligne de commande avec Bigloo :
;; $ bigloo -i Temperature-do.scm

(define (Moyenne observations)
  (let ((nbJours (vector-length observations)))
    (do ((jour 0 (+ jour 1))
	 (somme 0 (+ somme (vector-ref observations jour))))
	((= jour nbJours)
	 (/ somme nbJours)) )))

(define (Temperature)
  (display "Entrez les valeurs, F à la fin : ")
  (let boucle ((L '())
	       (val (read)))
    (if (number? val)
	(boucle (cons val L) (read))
	(print (Moyenne (list->vector L))))))

(Temperature)