2

我正在尝试将从映射操作返回的（惰性）序列传递给另一个映射操作，以便我可以查找第一个序列中的元素。该代码正在从文本文件（行/列格式）中解析一些足球赛程，对其进行清理，然后返回一张地图。

这是代码：

(ns fixtures.test.lazytest
  (:require [clojure.string :as str])
  (:use [clojure.test]))

(defn- column-map
  "Produce map with column labels given raw data, return nil if not enough columns"
  [cols]
  (let [trimmed-cols (map str/trim cols)
        column-names {0 :fixture-type, 1 :division, 2 :home-team, 4 :away-team}]
    (if (> (count cols) (apply max (keys column-names)))
      (zipmap (vals column-names) (map trimmed-cols (keys column-names)))
      nil)))

(deftest test-mapping
  (let [cols '["L" "   Premier " "  Chelsea  " "v" "\tArsenal  "]
        fixture (column-map cols)]
    (is (= "Arsenal" (fixture :away-team)))
    (is (= "Chelsea" (fixture :home-team)))
    (is (= "Premier" (fixture :division)))
    (is (= "L" (fixture :fixture-type)))
  )
)

(run-tests 'fixtures.test.lazytest)

我正在采取的方法是：

  1. 清理列数据的向量（删除前导/尾随空格）
  2. 使用 zipmap，将列名关键字与其对应的列数据中的元素组合起来（注意，并非所有列都被使用）

问题是，在 zipmap 中使用trimmed -cols会导致

java.lang.ClassCastException：clojure.lang.LazySeq 无法转换为 clojure.lang.IFn

我想我知道为什么会这样……因为trimmed -cols是一个 LazySeq，所以从 zipmap 调用的映射反对接收一个非函数作为它的第一个参数。

为了解决这个问题，我可以将let更改为：

trimmed-cols (vec (map str/trim cols))

但这感觉不是“最佳”选择。

所以：

  1. 将映射操作的结果用作另一个映射的“函数”参数是否有一个很好的通用解决方案？
  2. 是否有更好的方法可以从原始值数据向量中导出 {: value} 对的映射，而不使用所有向量元素？

（我不愿要求一个惯用的解决方案，但想象在某个地方必须有一种普遍接受的方式来做到这一点。）

4

1 回答 1

3

我不完全确定你在追求什么，但我可以看到你的代码为什么会失败——就像你说的那样，trimmed-cols它不是一个函数。这不是简单的工作吗？

我正在:_dummy为应该跳过的列使用键。您可以在column-names向量中使用任意数量的：zipmap将它们合并为一个，由 . 删除dissoc。

(defn- column-map
  "Produce map with column labels given raw data, return nil if not enough columns"
  [cols]
  (let [trimmed-cols (map str/trim cols)
        column-names [:fixture-type :division :home-team :_dummy :away-team]]
    (if (>= (count cols) (count column-names))
      (dissoc (zipmap column-names trimmed-cols) :_dummy)
      nil)))

(column-map ["L" "   Premier " "  Chelsea  " "v" "\tArsenal  "])
; => {:away-team "Arsenal", :home-team "Chelsea", :division "Premier", :fixture-type "L"}
于 2012-01-07T11:39:38.443 回答