clojure - clojure.core/for 与 Cypher ExecutionResult

Question

(defn cypher
  [query]
  (let [result (-> *cypher* (.execute query))]
    (for [row result
          column (.entrySet row)]
      {(keyword (.getKey column))
       (Neo4jVertex. (.getValue column) *g*)})))

repl=> (cypher "start n=node:people('*:*') return n")
{:n #<Neo4jVertex v[1]>}

此查询返回两个结果，但我只能看到一个使用clojure.core/for. 我该怎么办？

Neo4j 文档有这个例子（这是我试图模仿的）：

for ( Map<String, Object> row : result )
{
    for ( Entry<String, Object> column : row.entrySet() )
    {
        rows += column.getKey() + ": " + column.getValue() + "; ";
    }
    rows += "\n";
}

Answer 1

我认为您需要clojure.core/doseq（docs）。

user=> (doseq [row [1 2 3]]
  #_=>        [result [4 5 6]]
  #_=>   (println (str {:row row :result result}))))
{:row 1, :result 4}
{:row 1, :result 5}
{:row 1, :result 6}
{:row 2, :result 4}
{:row 2, :result 5}
{:row 2, :result 6}
{:row 3, :result 4}
{:row 3, :result 5}
{:row 3, :result 6}

因此，根据您的示例进行调整，以下内容可能会起作用：

; ...
(doseq [row result]
       [column (.entrySet row)]
  (println (str {(keyword (.getKey column)) (Neo4jVertex. (.getValue column) *g*)}))))
; ...

请注意，doseq返回nil; 你必须调用一些有副作用的东西，比如 表单println的主体doseq。

它看起来像clojure.core/for列表理解，所以类似下面的内容实际上返回了一个列表：

user=> (for [row [1 2 3]
  #_=>       result [4 5 6]]
  #_=>   {:row row :result result})
({:row 1, :result 4} {:row 1, :result 5} {:row 1, :result 6} {:row 2, :result 4} {:row 2, :result 5} {:row 2, :result 6} {:row 3, :result 4} {:row 3, :result 5} {:row 3, :result 6})