| |

Site WWW de Laurent Bloch

Slogan du site

ISSN 2271-3905
Cliquez ici si vous voulez visiter mon autre site, orienté vers des sujets moins techniques.

Conformité de l’infolettre au RGPD

reverse sans append

Article mis en ligne le 18 novembre 2005

dernière modification le 13 juillet 2012

par Laurent Bloch

Comme promis voici une réalisation de la procédure reverse qui ne fait pas appel à la procédure append. En outre elle est itérative.

(define (mon-reverse L)
  (define (epuise L dest)
    (if (null? L)
        dest
        (epuise (cdr L) (cons (car L) dest))))
  (epuise L '()))

Ou encore :

(define (reverseb L)
   (let iter ((RL '())
	      (L L))
      (if (null? L)
	  RL
	  (iter (cons (car L) RL)
		(cdr L)))))

Ou bien encore :

(define (mon-reverse L)
  (letrec ((epuise 
	    (lambda (L dest)
	       (if (null? L)
		   dest
		   (epuise (cdr L) (cons (car L) dest))))
	    ))
     (epuise L '())))

Dans la même rubrique

Sources utiles pour débuter en Scheme

le 25 octobre 2022
par Laurent Bloch

Jour, mois, année : quel jour tombe cette date ?

le 21 février 2018
par Laurent Bloch

Les programmes du manuel ISN traduits en Scheme

le 17 décembre 2014
par Laurent Bloch

Programmer en Scheme

le 20 juin 2011
par Laurent Bloch

Nombres de taille arbitraire avec Bigloo

le 7 novembre 2009
par Laurent Bloch

Votre inscription a été enregistrée avec succès !

Au menu

Dans la même rubrique