What is wrong with my code(bottom of post)? I keep getting this
error. Line 24 is "(get-cell [x r c] 1))" in the Matrix deftype and
36 is "(print (get-cell one r c) " "))" in the first nested "doseq"s.
I'm on Windows 7 with Clojure 1.2.
Exception in thread "main" java.lang.IllegalArgumentException:
Argument is not an array (core.clj:0)
at clojure.lang.Compiler.eval(Compiler.java:5440)
at clojure.lang.Compiler.load(Compiler.java:5857)
at clojure.lang.Compiler.loadFile(Compiler.java:5820)
at clojure.main$load_script.invoke(main.clj:221)
at clojure.main$script_opt.invoke(main.clj:273)
at clojure.main$main.doInvoke(main.clj:354)
at clojure.lang.RestFn.invoke(RestFn.java:409)
at clojure.lang.Var.invoke(Var.java:365)
at clojure.lang.AFn.applyToHelper(AFn.java:163)
at clojure.lang.Var.applyTo(Var.java:482)
at clojure.main.main(main.java:37)
Caused by: java.lang.IllegalArgumentException: Argument is not an
array
at java.lang.reflect.Array.get(Native Method)
at clojure.core$aget.invoke(core.clj:2994)
at clojure.lang.AFn.applyToHelper(AFn.java:165)
at clojure.lang.RestFn.applyTo(RestFn.java:133)
at clojure.core$apply.invoke(core.clj:542)
at clojure.core$aget.doInvoke(core.clj:2996)
at clojure.lang.RestFn.invoke(RestFn.java:443)
at com.curious.scratch.core.Matrix2D.get_cell(core.clj:24)
at com.curious.scratch.core$eval122.invoke(core.clj:36)
at clojure.lang.Compiler.eval(Compiler.java:5424)
... 10 more
(def float-array-class (class (float-array 1)))
(defprotocol Matrix
(matrix-data [x])
(matrix-height [x])
(matrix-width [x])
(matrix-add [x] [x y] [x y & args])
(get-cell [x r] [x r c]))
(deftype Matrix2D [data height width]
Matrix
(matrix-data [x] data)
(matrix-height [x] height)
(matrix-width [x] width)
(matrix-add [x] x)
(matrix-add [x y]
(let [x-data (matrix-data x)
y-data (matrix-data y)
z-data (amap ^floats x-data index z-data (+ (aget
^floats x-data index) (aget ^floats y-data index)))]
(Matrix2D. z-data (matrix-width x) (matrix-height
x))))
(matrix-add [x y & args] (reduce matrix-add (matrix-add x y) args))
(get-cell [x r] (get-cell x r 0))
(get-cell [x r c] 1))
(defn matrix [data height width]
(if (instance? float-array-class data)
(Matrix2D. data height width)
(Matrix2D. (float-array data) height width)))
(def one (matrix (range 10) 5 2))
(def two (matrix-add one one))
(doseq [r (range (matrix-height one))]
(doseq [c (range (matrix-width one))]
(print (get-cell one r c) " "))
(println))
(doseq [r (range (matrix-height two))]
(doseq [c (range (matrix-width two))]
(print (get-cell two r c) " "))
(println))
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
