Schéma Factoriel (fait * l) Question

Question

Je suis un débutant à Scheme, alors pardonnez la question: J'ai une fonction qui calcule les factorielles d'une liste de nombres, mais cela me donne une période avant le dernier nombre dans le résultats. Où vais-je mal?

code:

#lang scheme 

(define fact 
    (lambda (n) 
     (cond 
     ((= n 0) 1) 
     ((= n 1) 1) 
     (else (* n (fact (- n 1))))))) 

(define fact* 
    (lambda (l) 
    (cond 
     ((null? (cdr l)) (fact (car l))) 
     (else 
     (cons (fact (car l)) (fact* (cdr l))))))) 

sortie:

> (fact* '(3 6 7 2 4 5)) 
(6 720 5040 2 24 . 120) 

Answer 1

Qu'est-ce que vous avez fait est de créer un improper list. Essayez ceci:

(define fact* 
    (lambda (l) 
    (cond 
     ((null? (cdr l)) (list (fact (car l)))) 
     (else 
     (cons (fact (car l)) (fact* (cdr l))))))) 

L'ajout du list dans la quatrième ligne devrait faire ce travail comme prévu. Mieux pourraient être les suivantes:

(define fact* 
    (lambda (l) 
    (cond 
     (null? l) '()) 
     (else 
     (cons (fact (car l)) (fact* (cdr l))))))) 

Cela permet à votre fonction fact* de travailler sur la liste vide, ainsi que la réduction du nombre d'endroits où vous faites un appel à fact.

Answer 2

Utilisez append au lieu de cons. cons est utilisé pour construire des paires, c'est pourquoi vous avez le "." qui est utilisé pour séparer les éléments d'une paire. Voici un exemple:

(define (factorial n) 
    (if (<= n 1) 
     1 
     (* n (factorial (- n 1))))) 

(define (factorial-list l) 
    (if (null? l) 
     '() 
     (append (list (factorial (car l))) 
       (factorial-list (cdr l))))) 

Answer 3

Les otheranswers ont souligné la raison pour laquelle vous obtenez une liste non conforme à la suite de votre fonction fact*. Je voudrais seulement souligner que vous pouvez utiliser le higher-order functionmap:

(define fact* 
    (lambda (l) 
    (map fact l)) 

(fact* '(3 6 7 2 4 5)) 

map prend une fonction et une liste comme arguments et applique la fonction à chaque élément de la liste, la production d'une nouvelle liste.