From 363134792be08af4978cec8f87a48bdead4d6ff6 Mon Sep 17 00:00:00 2001
From: Bertrand BRUN <bertrand0brun@gmail.com>
Date: Sat, 20 Nov 2010 01:31:28 +0100
Subject: [PATCH] Ajout de quelques fonctions utiles (a complete)

---
 scheme/meval-scheme.scm | 35 ++++++++++++++++++++++++++++-------
 1 file changed, 28 insertions(+), 7 deletions(-)

diff --git a/scheme/meval-scheme.scm b/scheme/meval-scheme.scm
index 68255d5..a7d5bd5 100644
--- a/scheme/meval-scheme.scm
+++ b/scheme/meval-scheme.scm
@@ -29,33 +29,34 @@
 
 ;; {{{ Utilitaire generaux
 ;;
-;; Necessaires pour l'auto-amorcage (on pourrait egalement les placer dans l'environnement initial)
+;; Necessaires pour l'auto-amorcage (on pourrait egalement les placer
+;; dans l'environnement initial)
 
 ;; Signaler une erreur et abandonner l'evaluation
 (define (scheme-erreur fn message donnee)
   (erreur 'meval-scheme fn message donnee))
 
-;; cadr: LISTE[alpha]/au moins deux termes/ -> alpha
+;; cadr: LISTE[alpha]/au moins 2 termes/ -> alpha
 ;; (cadr L) rend le second terme de la liste "L"
 (define (cadr L)
   (car (cdr L)))
 
-;; cddr: LISTE[alpha]/au moins deux termes/ ->LISTE[alpha]
+;; cddr: LISTE[alpha]/au moins 2 termes/ ->LISTE[alpha]
 ;; (cddr L) rend la liste "L" privee de ses deux premiers termes
 (define (cddr L)
   (cdr (cdr L)))
 
-;; caddr: LISTE[alpha]/au moins trois termes/ -> alpha
+;; caddr: LISTE[alpha]/au moins 3 termes/ -> alpha
 ;; (caddr L) rend le troisieme terme de la liste "L"
 (define (caddr L)
   (car (cdr (cdr L))))
 
-;; cdddr: LISTE[alpha]/au moins trois termes/ -> LISTE[alpha]
+;; cdddr: LISTE[alpha]/au moins 3 termes/ -> LISTE[alpha]
 ;; (cdddr L) rend la liste "L" privee de ses trois premiers termes
 (define (cdddr L)
   (cdr (cdr (cdr L))))
 
-;; cadddr: LISTE[alpha]/au moins quatre termes/ -> alpha
+;; cadddr: LISTE[alpha]/au moins 4 termes/ -> alpha
 ;; (cadddr L) rend le quatrieme terme de la liste "L"
 (define (cadddr L)
   (car (cdr (cdr (cdr L)))))
@@ -68,9 +69,29 @@
 	  0))
 
 ;; meval-scheme-map: (alpha -> beta) * LISTE[alpha] -> LISTE[beta]
-;; (meval-scheme-map f L) rend la liste des valeurs de "f" appliquee aux termes de la liste "L"
+;; (meval-scheme-map f L) rend la liste des valeurs de "f" appliquee
+;; aux termes de la liste "L"
 (define (meval-scheme-map f L)
   (if (pair? L)
 	  (cons (f (car L)) (meval-scheme-map f (cdr L)))
 	  '()))
 
+;; member: alpha * LISTE[alpha] -> LISTE[alpha] + #f
+;; (member e L) rend le suffixe de "L" debutant par la premiere
+;; occurence de "e" ou #f si "e" n'apparait pas dans "L"
+(define (member e L)
+  (if (pair? L)
+	  (if (equal? e (car L))
+		  L
+		  (member e (cdr L)))
+	  #f))
+
+;; rang: alpha * LISTE[alpha] -> entier
+;; (rang e L) rend le rang de l'element donne dans la liste "L"
+;; (ou on sait que l'element apparait). Le premier element a pour rang 1.
+(define (rang e L)
+  (if (equal? e (car L))
+	  1
+	  (+ 1 (rang e (cdr L)))))
+
+;; }}} Utilitaire generaux