Desafio Mega-Sena

;; http://www.forum-invaders.com.br/vb/showthread.php/46614-desafio-nivel-Iniciante-mega-sena?p=304903#post304903

(def valid_nums (range 1 61))
(def week_game #(partition 6 (shuffle valid_nums)))
(def week_count [365 7.0])
(def year (apply concat (repeatedly (apply quot week_count) week_game)))
(def week (drop (- 10 (apply mod week_count)) (week_game)))
(def games (concat year week))
(println games)