Scheme Factorial (사실 * l) Question

Question

저는 Scheme의 초보자입니다. 질문을 용서하십시오. 숫자 목록의 계승을 계산하는 함수가 있지만, 그 숫자의 마지막 숫자 앞에 마침표가 나타납니다. 결과. 내가 어디로 잘못 가고 있니?

코드 :

#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

cons 대신 append을 사용하십시오. cons은 쌍을 구성하는 데 사용되므로 "." 한 쌍의 요소를 분리하는 데 사용됩니다. 다음은 그 예이다 : 당신이 당신의 fact* 기능의 결과로 부적절한 목록을 왜

(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는 이유를 지적했다. 난 단지 당신이 사용할 수 있음을 지적하고자하는 higher-order functionmap :

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

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

map 함수와 인수로 목록을 소요하고 새 목록을 생성, 목록에있는 모든 요소에 기능을 적용한다.