Here is the code:
Code: Select all
(define (facs2 L L2)
(cond
((>= (length L) 1 )(facs2Help (cdr L) (car L) L2))
(true(facs2 (cdr L) L2))
)
)
(define (facs2Help L n L2)
(cons(factorial n) L2)
)
Code: Select all
(define (facs2 L L2)
(cond
((>= (length L) 1 )(facs2Help (cdr L) (car L) L2))
(true(facs2 (cdr L) L2))
)
)
(define (facs2Help L n L2)
(cons(factorial n) L2)
)
Code: Select all
(define (facs2 L L2)
(cond
((>= (length L) 1 ) (facs2-help (cdr L) (car L) L2))
(true (facs2 (cdr L) L2))))
(define (facs2-help L n L2)
(cons (factorial n) L2))