在计划中使用追加

我刚刚开始使用Scheme进行函数式编程，并试图打印斐波那契数列。这里是我的代码 -在计划中使用追加

(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

来源

2015-12-02 Noober

你得到'（）因为你告诉你的程序在n是5时返回'（）。试着重写你的程序if if else if伪代码 –

你叫你的程序与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)

来源

2015-12-02 16:23:29 uselpa

噢。实际上并不需要这种条件。不过，我得到这个错误 - “ListCC不能转换为SEIntread：坏语法，意外）混乱不能转换为SEIntMess在删除该转换后无法转换为SEInt' – Noober

没有看到你如何改变你的代码我忍不住。另外，如果你创建一个递归的Fibonacci过程，你将很难用一个过程创建你想要的列表。也许最好创建一个新问题来描述你真正想做什么，更具体地说你的约束。 – uselpa

我已更新我的答案，向您展示可能的实施。 – uselpa

(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次运行。

来源

2015-12-04 06:13:31 WorBlux

在计划中使用追加

回答

相关问题