Códigos de Scheme

Algoritmo para fatorial de um número:

(define (fatorax x z lista)

(cond ( (zero? (remainder x z)) (fatorax (quotient x z) z (cons z lista)))

( (< x z) (reverse lista ))

( (not (zero? (remainder x z))) (fatorax x (+ 1 z) lista) )

)

)

(define (fatora x)

(fatorax x 2 '())

)

(fatora 165)

_____________________________________________________________

Algoritmo para concaternar:

(define (conc lista1 lista2)

(append lista1 lista2)

)

(conc '(1 2 3) '(4 5 6))

___________________