Схема факториала (факт * l) Вопрос

Question

Я новичок на Схеме, поэтому простите вопрос: у меня есть функция, которая вычисляет факториалы списка чисел, но это дает мне период до последнего числа в Результаты. Где я иду не так?

код:

#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))))))) 

выход:

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

Answer 1

То, что вы сделали это создать improper list. Попробуйте это:

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

Добавление list в четвертой строке должны сделать эту работу, как вы ожидаете. Лучше может быть следующим:

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

Это позволяет вашей fact* функции работать на пустом список, а также сокращение количества мест, где вы делаете вызов fact.

Answer 2

Использовать append вместо cons. cons используется для построения пар, поэтому у вас есть «.». который используется для разделения элементов пары. Вот пример:

(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

otheranswers указал причину, почему вы получаете ненадлежащей список в результате вашей fact* функции. Я хотел бы только отметить, что вы могли бы использовать higher-order functionmap:

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

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

map принимает функцию и список в качестве аргументов и применяет функцию к каждому элементу в списке, создавая новый список.