Qual é a melhor maneira de inicializar todos os elementos de uma JTable com Clojure?

Question

Desculpe se isso é um pouco de uma questão de noob mas ainda estou me acostumando a programação funcional.

Eu quero escrever um simples Sudoku solver como um exercício.

Um dos meus planos é criar uma JTable com 9 linhas e 9 colunas e inicializar todos eles com a string "123456789" como uma posição inicial.

Se eu tiver um TableModel posso definir uma função para inicializar uma única célula como esta:

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

Agora, o que é o mais Clojure como forma de obter este chamado para todas as células na tabela de 9x9?

Answer 1

Possivelmente assim:

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