2010-01-25 2 views
9

새 소개를하고 SICP를 통해 학습함으로써 새로운 것을 알게되었습니다.Clojure-이 코드 조각이 클로저에서 작동하지 않는 이유는 무엇입니까? 누락 된 일부 게으른 평가가 있습니까?

SCIP 1.3.1에서이 코드를 가져올 수 없습니다.

무엇이 누락 되었습니까?

java.lang.Integer cannot be cast to clojure.lang.IFn 
    [Thrown class java.lang.ClassCastException] 

Restarts: 
0: [ABORT] Return to SLIME's top level. 

Backtrace: 
    0: user$sum_cubes_new__2868.invoke(summation.clj:33) 
    1: user$eval__2874.invoke(NO_SOURCE_FILE:1) 
    2: clojure.lang.Compiler.eval(Compiler.java:4642) 
    3: clojure.core$eval__5236.invoke(core.clj:2017) 
    4: swank.commands.basic$eval_region__910.invoke(basic.clj:40) 
    5: swank.commands.basic$eval_region__910.invoke(basic.clj:31) 
    6: swank.commands.basic$eval__930$listener_eval__932.invoke(basic.clj:54) 
    7: clojure.lang.Var.invoke(Var.java:359) 
    8: user$eval__2871.invoke(NO_SOURCE_FILE) 
    9: clojure.lang.Compiler.eval(Compiler.java:4642) 
10: clojure.core$eval__5236.invoke(core.clj:2017) 
11: swank.core$eval_in_emacs_package__458.invoke(core.clj:58) 
12: swank.core$eval_for_emacs__536.invoke(core.clj:126) 
13: clojure.lang.Var.invoke(Var.java:367) 
14: clojure.lang.AFn.applyToHelper(AFn.java:179) 
15: clojure.lang.Var.applyTo(Var.java:476) 
16: clojure.core$apply__4370.invoke(core.clj:436) 
17: swank.core$eval_from_control__461.invoke(core.clj:65) 
18: swank.core$eval_loop__464.invoke(core.clj:70) 
19: swank.core$spawn_repl_thread__598$fn__630$fn__632.invoke(core.clj:179) 
20: clojure.lang.AFn.applyToHelper(AFn.java:171) 
21: clojure.lang.AFn.applyTo(AFn.java:164) 
22: clojure.core$apply__4370.invoke(core.clj:436) 
23: swank.core$spawn_repl_thread__598$fn__630.doInvoke(core.clj:176) 
24: clojure.lang.RestFn.invoke(RestFn.java:402) 
25: clojure.lang.AFn.run(AFn.java:37) 
26: java.lang.Thread.run(Thread.java:637) 
+1

'sum-cubes-new'에서 오류가 발생하기 때문에 표준 들여 쓰기를 사용하도록 코드를 변경했습니다. –

답변

19

(defn이 합 입방체 새로운 [AB]
( (합계 큐브의 Inc b) ))

: HERE

(defn sum [term a next b] 
    (if (> a b) 
     0 
     (+ (term a) (sum term (next a) next b)))) 

(defn sum-cubes-new [a b] 
    ((sum cube a inc b))) 

오류 메시지 인 sum에 대한 호출 주변의 여분의 괄호로 인해 결과 숫자를 함수로 평가하려고합니다.

+0

예. 이것은 그 것이다. 감사. – lordOfChaos

관련 문제