ما هو أفضل وسيلة لتهيئة جميع عناصر JTable مع كلوجر؟

Question

وآسف إذا كان هذا هو جزء من سؤال مستجد ولكنني ما زلت التعود على البرمجة الوظيفية.

وأريد أن أكتب حلالا سودوكو بسيط باعتبارها ممارسة.

واحد من خططي هو خلق JTable مع 9 صفوف و 9 أعمدة وتهيئة كل منهم مع السلسلة "123456789" باعتباره نقطة الانطلاق.

وإذا كان لدي TableModel يمكنني تحديد وظيفة لتهيئة خلية واحدة من هذا القبيل:

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

والآن ما هو أكثر كلوجر مثل طريقة للحصول على هذا ما يسمى لجميع الخلايا في الجدول 9X9؟

Answer 1

وربما مثل هذا:

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