Quel est le meilleur moyen d'initialiser tous les éléments d'une JTable avec Clojure?

Question

Désolé si c'est un peu une question de noob mais je m'habitue toujours à la programmation fonctionnelle.

Je veux écrire un solveur de Sudoku simple comme exercice.

L’un de mes projets est de créer une JTable avec 9 lignes et 9 colonnes et de toutes les initialiser avec la chaîne " 123456789 " comme position de départ.

Si j'ai un TableModel, je peux définir une fonction pour initialiser une seule cellule, comme ceci:

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

Maintenant, quel est le moyen le plus simple d’obtenir cet appel pour toutes les cellules du tableau 9x9?

Answer 1

Peut-être comme ceci:

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