Clojure:带有递归的nullpointerexception

kfr*_*bie 1 recursion clojure nullpointerexception

我正在创建一个重载函数,它将一个数字列表作为参数(以及一个数字列表和重载签名中的单个数字).从此列表中,必须找到并返回最高值.我知道可用的"排序"方法,它自动为您排序列表,但我试图使用递归发现最高值.以下是我正在使用的代码.

32    (defn my-max
33      ([list]
34        (if (empty? list)
35          -1
36          (my-max (pop list) (first list))) ; recursive call
37        )
38      ([list high]
39        (if (empty? list) ; base case
40          high)
41        (if (> (first list) high)
42          (my-max (pop list) (first list)))
43        (my-max (pop list) high))
44      )
45    
46    (println (my-max '(1 2 3)))
Run Code Online (Sandbox Code Playgroud)

如您所见,我对包含1,2和3的列表进行了硬编码,其中应返回3个.运行代码时收到错误:

Exception in thread "main" java.lang.NullPointerException
    at clojure.lang.Numbers.ops(Numbers.java:942)
    at clojure.lang.Numbers.gt(Numbers.java:227)
    at user$my_max.invoke(HelloWorld.clj:41)
    at user$my_max.invoke(HelloWorld.clj:42)
    at user$my_max.invoke(HelloWorld.clj:42)
    at user$my_max.invoke(HelloWorld.clj:36)
    at user$eval2.invoke(HelloWorld.clj:46)
    at clojure.lang.Compiler.eval(Compiler.java:6619)
    at clojure.lang.Compiler.load(Compiler.java:7064)
    at clojure.lang.Compiler.loadFile(Compiler.java:7020)
    at clojure.main$load_script.invoke(main.clj:294)
    at clojure.main$script_opt.invoke(main.clj:356)
    at clojure.main$main.doInvoke(main.clj:440)
    at clojure.lang.RestFn.invoke(RestFn.java:408)
    at clojure.lang.Var.invoke(Var.java:415)
    at clojure.lang.AFn.applyToHelper(AFn.java:161)
    at clojure.lang.Var.applyTo(Var.java:532)
    at clojure.main.main(main.java:37)
    at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)
    at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:62)
    at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:43)
    at java.lang.reflect.Method.invoke(Method.java:483)
    at com.intellij.rt.execution.application.AppMain.main(AppMain.java:134)
Run Code Online (Sandbox Code Playgroud)

在最终的递归调用中发生此错误,其中3已从列表中"弹出"并被传递回my-max,因为"高"列表为空并且:

(if (empty? list) ; line 39, base case
Run Code Online (Sandbox Code Playgroud)

应评估为true,而是评估为false.你对这个问题有什么想法/解决方案吗?

Die*_*sch 6

该声明(第39-40行)没有任何作用.不管是什么它的计算结果(无论是highnil),未使用的值.然后第41行计算,(first list)如果列表为空则为nil,因此空指针异常.