Was ist der beste Weg, um alle Elemente einer JTable mit Clojure zu initialisieren?

Question

Sorry, wenn dies ein bisschen ein Noob Frage, aber ich bin immer noch auf der funktionalen Programmierung Gewöhnung.

Ich mag einen einfachen Sudoku-Löser als eine Übung schreiben.

Einer meiner Pläne ist eine JTable mit 9 Reihen und 9 Spalten zu erstellen und initialisieren sie alle mit die Zeichenfolge „123456789“ als Ausgangsposition.

Wenn ich ein Tablemodel habe ich eine Funktion definieren, kann eine einzelne Zelle so zu initialisieren:

(defn initCell
 "inits a cell with 123456789"
 [dm row col]
 (doto dm (.setValueAt "123456789" row col)))

Nun, was ist die Clojure wie Weg, dies für alle Zellen in der 9x9-Tabelle genannt werden?

Answer 1

Möglicherweise wie folgt aus:

(doseq [x (range 10) y (range 10)]
  (initCell dm x y))