3

我正在尝试将 SQL 查询的最大和最小结果提取到 Clojure 中，以便我可以对它们进行数学分析，但我不确定为什么会出现错误。

我在代码中使用了 max 和 min 函数来尝试确定这些结果，尽管我不断收到两个错误，这些错误似乎与我使用:counter关键字的方式有关。

SQL 查询在映射中返回的数据如下所示：

    {:date1 "20131007", :data "object1", :counter 1000}
    {:date1 "20131007", :data "object2", :counter 50}
    {:date1 "20131007", :data "object3", :counter 230}

当我使用此代码时：

    minvalue(min(map(keyword :counter)data2))
    maxvalue(max(map(keyword :counter)data2))
    valrange(- maxvalue minvalue)
    valpc(* (/ valrange 100) 10)
    x(- maxvalue valpc)

我显然希望将minvalue设置为 50 并将maxvalue设置为 1000 尽管我收到此错误：

    java.lang.ClassCastException: clojure.lang.LazySeq cannot be cast to java.lang.Number

如果我从代码中删除 map 函数并再次运行它，我会收到以下错误：

    java.lang.ClassCastException: clojure.lang.Keyword cannot be cast to java.lang.Number

由于我完全被卡住了（而且我是 Clojure 的新手，这可能很明显），因此对此任何帮助表示赞赏！谢谢

4

2 回答 2

6 
user=> data
[{:data "object1", :date1 "20131007", :counter 1000} {:data "object2", :date1 "20131007", :counter 50} {:data "object3", :date1 "20131007", :counter 230}]

user=> (apply max-key :counter data)
{:data "object1", :date1 "20131007", :counter 1000}

user=> (apply min-key :counter data)
{:data "object2", :date1 "20131007", :counter 50}
于 2013-10-07T10:39:04.627 回答
6

您的代码的一些更改：

  • min 和 max 采用可变数量的参数，而不是一个集合。使用 apply to，很好地将集合的内容应用为参数。
  • Clojure 命名约定使用 - 单词之间
  • 有效调用必须采用一种形式（基本上是第一项可调用的列表）
  • 无需使用“关键字”，关键字用于当您有字符串并需要关联关键字时。为了将数据拖出地图，关键字本身充当函数，例如 (:a {:a 1 :b 2}) 返回 1。

  • 排除了前两行的共性

    (def data [{:date1 "20131007", :data "object1", :counter 1000}
           {:date1 "20131007", :data "object2", :counter 50}
           {:date1 "20131007", :data "object3", :counter 230}])

(def counters (map :counter data))      ; => (100 50 230)
(def min-value (apply min counters))    ; => 50
(def max-value (apply max counters))    ; => 1000
(def val-range (- max-value min-value)) ; => 950
(def val-pc (* (/ val-range 100) 10))   ; => 95
(def x (- max-value val-pc))            ; => 905
于 2013-10-07T13:01:06.850 回答