Question

我刚刚开始使用Scheme进行函数式编程，并试图打印Fibonacci系列。这是我的代码 -

(define (fib n)
    (cond
        ((= n 1) 
            1)      
        ((= n 0) 0)     
        ((= n 5) '())
        (else (append (list(+ (fib (- n 1) ) (fib (- n 2)))) '()))
    )     
)
(fib 5)

理想情况下应该输出 - (0 1 1 2 3)但我输出的所有内容都是`（）。任何人都可以帮助搞清楚这个错误吗？

修改感谢@uselpa指出，（（= n 5）'（））不是必需的。删除后，我收到以下错误 -

ListCC cannot be cast to SEIntread: bad syntax, unexpected )
Mess cannot be cast to SEIntMess cannot be cast to SEInt

Answer 1

您使用n=5调用您的程序，因此条件(= n 5)为真，cond按照指示尽职尽责地返回'()。这就是它停止的地方，没有别的东西被执行。

修改

你想做什么，抛开所有性能考虑，可能就像

(define (fib n) (if (< n 2) n (+ (fib (- n 1)) (fib (- n 2))))) (define (fib-list n) (let loop ((i (- n 1)) (res '())) (if (< i 0) res (loop (- i 1) (cons (fib i) res)))))

然后

> (fib-list 5) '(0 1 1 2 3)

Answer 2

(define (fib-list n)
  (cond ((< n 0) 'error)
        ((= n 0) '(0))
        (else
         (reverse
          (let loop ((i 1) (acc-L (list 1 0)))
           (if (= i n)
               acc-L
               (loop (+ i 1) (cons (+ (car acc-L) (cadr acc-L))
                                   acc-L))))))))

(fib-list 7045) -> Some list that overflows my terminal history. 
(fib-list 100) ->(0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 3524578 5702887 9227465 14930352 24157817 39088169 63245986 102334155 165580141 267914296 433494437 701408733 1134903170 1836311903 2971215073 4807526976 7778742049 12586269025 20365011074 32951280099 53316291173 86267571272 139583862445 225851433717 365435296162 591286729879 956722026041 1548008755920 2504730781961 4052739537881 6557470319842 10610209857723 17167680177565 27777890035288 44945570212853 72723460248141 117669030460994 190392490709135 308061521170129 498454011879264 806515533049393 1304969544928657 2111485077978050 3416454622906707 5527939700884757 8944394323791464 14472334024676221 23416728348467685 37889062373143906 61305790721611591 99194853094755497 160500643816367088 259695496911122585 420196140727489673 679891637638612258 1100087778366101931 1779979416004714189 2880067194370816120 4660046610375530309 7540113804746346429 12200160415121876738 19740274219868223167 31940434634990099905 51680708854858323072 83621143489848422977 135301852344706746049 218922995834555169026 354224848179261915075)

应该在N时间内运行。

在Scheme中使用append

2 个答案: