主页 / coding / 问题

问题[clojure](coding)

Martin Hope
user1785730
Asked: 2025-04-30 02:36:30 +0800 CST
  • 5

我一直在尝试遵循这个教程。这是我的回调：

(def cb (proxy [java.lang.Object GLFWKeyCallbackI] []
          (invoke [window keycode _ action _]
            (when (and (= keycode GLFW/GLFW_KEY_ESCAPE)
                       (= action GLFW/GLFW_PRESS))
              (GLFW/glfwSetWindowShouldClose window true)))))

在这里我注册它：

(GLFW/glfwSetKeyCallback window cb)

这给了我这个错误：

Execution error (UnsupportedOperationException) at lwjgl_intro.core.proxy$java.lang.Object$GLFWKeyCallbackI$84f3fd50/address (REPL:-1).
address

我的完整代码在这里。

为什么我会收到这个错误？

编辑：这是上面链接的教程中的代码片段：

    glfwSetKeyCallback(window, (window, key, scancode, action, mods) -> {
        if ( key == GLFW_KEY_ESCAPE && action == GLFW_RELEASE )
            glfwSetWindowShouldClose(window, true); // We will detect this in the rendering loop
    });
clojure
Martin Hope
user1785730
Asked: 2025-02-12 03:53:44 +0800 CST
  • 5

考虑以下代码片段：

(defn foo []
  (let [line (apply str (repeat 2 \.))
        lines (into [] (repeat 2 line))]
    (for [x lines] (println x)) ; this doesn't print
    (loop [remaining [[1 2] [3 4]]]
      (if (empty? remaining)
        (for [y lines] (println y)) ; but this does print
        (recur (rest remaining))))))

运行的输出foo是：

..
..
(nil nil)

因此，注释了此内容的行不会打印任何输出。事实上，我可以删除该行并获得相同的输出。

我期望得到的输出是：

..
..
..
..
(nil nil)

当我删除整个循环/重复业务时，该行按预期工作：

(defn foo []
  (let [line (apply str (repeat 2 \.))
        lines (into [] (repeat 2 line))]
    (for [x lines] (println x)))) ; now it prints

产量

..
..
(nil nil)

正如预期的那样。为什么 loop/recur 会阻止 for/println 生成输出？

clojure
Martin Hope
developer2015
Asked: 2024-12-16 13:04:43 +0800 CST
  • 5

需要帮助使用函数转换地图中的数据

(defn transform-map-1 [past-step dir]
  (cond (= dir "v")
        (list (first (first past-step))
              (+ -1 (first (first past-step))))
        (= dir "^")
        (list (first (first past-step))
              (+ 1 (first (first past-step))))
        (= dir ">")
        (list (+ 1 (first (first past-step)))
              (first (first past-step)))
        (= dir "<")
        (list (+ -1 (first (first past-step)))
              (first (first past-step)))))

此函数采用 x,y 格式的两个输入坐标作为过去的步骤和方向上下左右以提供更新坐标

我想要做的是提供一系列的方向，并为每个方向返回更新的坐标

输入字符串 "^>v<" ，输出应为 ((0,1) (1,1) (1,0) (0,0)

我们从坐标 (0.0) 开始，第一个变换的输出成为第二个字符的输入

我能得到的最好的结果是但它给了我一个错误

(map (transform-map-1 ['(0, 0)] %1)(char-array string-test))
clojure
Martin Hope
user1785730
Asked: 2024-12-13 00:38:56 +0800 CST
  • 5
(let [ truthys (filter #(filter-func %) coll)
       falsys (filter #(not filter-func %) coll)]

这段代码遍历 coll 两次，并对每个元素应用两次 filter-func。我想知道，有没有办法一次性将 coll 过滤到 truthys 和 falsys 中？

clojure
Martin Hope
user1785730
Asked: 2024-12-12 02:29:26 +0800 CST
  • 5
user=> ((fn [x] x) 5)
5
user=> (#(%) 5)
Execution error (ClassCastException) at user/eval1576$fn (REPL:1).
class java.lang.Long cannot be cast to class clojure.lang.IFn (java.lang.Long is in module java.base of loader 'bootstrap'; clojure.lang.IFn is in unnamed module of loader 'bootstrap')

我原本以为这两个匿名函数是等效的。但在第二种情况下，我遇到了错误：匿名函数的求值结果为(5)，这会产生完全相同的错误。

但是，为什么在第一种情况下我没有收到此错误？ 有什么区别？

clojure
Martin Hope
user1785730
Asked: 2024-12-09 04:59:31 +0800 CST
  • 5

我有一个文本文件中的数据，格式如下：

1    2
3    4
5    6
7    8
9    0

我想为每一列创建一个列表，因此：

((1 3 5 7 9) (2 4 6 8 0))

我实际上已经想出了一个可行的解决方案：

(defn make-lists []
  (let [lines (clojure.string/split-lines (slurp "input"))]
    (let [l1 (map #(parse-long (first (clojure.string/split % #" "))) lines)
          l2 (map #(parse-long (nth (clojure.string/split % #" ") 3)) lines)]
      (list l1 l2))))

但是，我认为这个解决方案存在一些问题。我实际上并不清楚map其内部是如何工作的，但我担心这会导致对输入进行两次迭代，而理论上一次迭代就足够了。

不幸的是，输入数据中每行的两个值之间有多个空格。并且clojure.string/split每个空格都会产生一个结果。因此，我nth 3在代码中随意查找 l2，我想摆脱它。

我很感激任何关于如何改进此代码的想法。

clojure
Martin Hope
LocustHorde
Asked: 2024-11-25 20:42:50 +0800 CST
  • 5

我正在学习用 clojure 编写一个简单的 rest api，它只是通过 REST API 提供一些数据作为 mysql db 的中间件。

我按照一些教程设置了我的 Ring 服务器，将 Clojure 数据转换为 JSON。我的项目有以下依赖项：

             ; middleware
             [compojure "1.6.2"]
             [ring/ring-defaults "0.3.2"]
             [ring/ring-json "0.5.1"]
             [ring-cors "0.1.13"]
             ; API
             [clj-http "3.12.3"]
             [cheshire "5.11.0"]
             ; MYSQL
             [org.clojure/clojure-contrib "1.2.0"]
             [org.clojure/java.jdbc "0.7.12"]
             [mysql/mysql-connector-java "8.0.33"]]

我的主要处理程序文件有如下内容：

(defroutes app-routes 
  (GET "/get-data" [type] (api/get-users type)))

(def app
  (-> app-routes
  (wrap-cors :access-control-allow-origin [#".*"]
             :access-control-allow-methods [:get :put :post :delete])
  (middleware/wrap-json-body {:key-fn keyword})
  (middleware/wrap-json-response)))

只要返回数据是惰性序列，一切都会正常工作。我可以 curl url 并获取有效的 json 数组。但是当响应只是一个没有数组的 json 对象时，我会得到空响应。我尝试打印数据，正确的数据正在从数据库中顺利获取。然后我尝试打印每种响应类型的数据类型，结果有不同的类型。

clojure.lang.LazySeq-> 有效，我得到了有效的 json 响应。但是clojure.lang.PersistentArrayMap-> 无效，我得到了一个空的响应。

当我在将数据返回到浏览器之前打印数据时，我得到了以下信息：

对于 lazySeq：

({:id spanish-chorizo-paella, :name Spanish chicken & chorizo paella})
// ^ this works fine and I get a JSON array in response

对于 PersistentArrayMap：

{:latest 202410-hu, :past [{:id 202212-nl-ch-fr}]}
// ^ This doesn't work and I get an empty response in browser

我需要做些什么来让环服务器检测并转换第二种类型以正确发送为 json？

clojure
Martin Hope
user51
Asked: 2024-11-08 14:48:53 +0800 CST
  • 5

我正在从《Clojure 中的反应式编程》一书中学习 core.async

其中一个示例程序如下 -


(ns core-async-intro.xforms
  (:require [clojure.core.async :refer [map< filter< chan go <! >! close!]]))

(def result (chan 10))

(def transformed
  (->> result
       (map< inc) ;; creates a new channel
       (filter< even?) ;; creates a new channel
       (into [])))

(defn -main [& args]
  (go
    (prn "result is " (<! transformed)))

  (go
    (doseq [n (range 10)]
      (>! result n))
    (close! result)))

但是当我运行这个程序时出现以下错误 -

{:clojure.main/消息

“执行错误（IllegalArgumentException）在 user/eval140$fn（form-init12172038470509011992.clj:1）。\n不知道如何从 clojure.core.async.impl.channels.ManyToManyChannel\n 创建 ISeq”，

:clojure.main/分类

{:clojure.error/class java.lang.IllegalArgumentException，

:clojure.error/第 1 行

:clojure.error/原因

“不知道如何从 clojure.core.async.impl.channels.ManyToManyChannel 创建 ISeq”，

：clojure.error/符号用户/eval140$fn，

：clojure.error/source“form-init12172038470509011992.clj”，

:clojure.error/phase:执行}，

:clojure.main/trace

{：通过

[{:type clojure.lang.Compiler$CompilerException，

:message "Syntax error macroexpanding at (xforms.clj:10:8).",
 
:data

{:clojure.error/phase:执行，

：clojure.error/第 10 行，

：clojure.error/第 8 列，

:clojure.error/source "xforms.clj"},

:在[clojure.lang.Compiler$InvokeExpr eval“Compiler.java”3719]}

{:类型 java.lang.IllegalArgumentException，

：信息

“不知道如何从 clojure.core.async.impl.channels.ManyToManyChannel 创建 ISeq”，

:在 [clojure.lang.RT seqFrom "RT.java" 557]}],

clojure 版本是 - 1.12.0 和 clojure.core.async - 1.6.681

我该如何修复这个错误？

clojure
Martin Hope
Witek
Asked: 2024-10-21 17:21:49 +0800 CST
  • 6

在宏内部，我想要获取宏调用者的源文件和位置。

类似于：

(defmacro my-macro []
  `(prn ~*source-position*))

其中*source-position*包含有关在评估宏时当前编译的文件的源位置的信息。

当调用此宏时，它应该打印调用者的源文件、行和列。

clojure
Martin Hope
kelly
Asked: 2024-10-04 21:49:53 +0800 CST
  • 5

我想通过 clojure 中的 claypoole 库将要评估的表单作为未来传递给目标线程池。

我尝试将函数主体传递给线程池，并且我希望该函数主体在线程上而不是内联上进行评估。

我的代码如下所示：

(defn in-thread [thread & body] (claypoole/future thread body))

它的调用方式如下：

(defonce pool (claypoole/threadpool 20))

(defn do-something [pool]
  (in-thread pool
    (Thread/sleep 5000)
    (println "foo")))

经过一些测试，我得出的结论是，body当我调用时，正在评估in-thread，这使得我的整个解决方案实际上没有做任何有意义的事情。我知道我缺少某种基本概念，但每次我尝试研究宏时，我的头就开始旋转。

我如何将in-thread函数变成一个宏，将函数主体而不是结果传递到线程池中执行？

clojure