Skip to content

Instantly share code, notes, and snippets.

@metametaclass

metametaclass/gist:3748927

Created September 19, 2012 10:38
Show Gist options
  • Save metametaclass/3748927 to your computer and use it in GitHub Desktop.
Save metametaclass/3748927 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(println (str "<html>"))
(println (str "<body>"))
(println (str "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">"))
(doseq [yr (range -20 20 )]
(let [[y dy] (if (< yr 0) [(- 0 yr) "n"] [(+ 1 yr) "s"])]
(println "<tr>")
(doseq [xr (range -35 50 )]
(let [[x dx] (if (< xr 0) [(- 0 xr) "w"] [(+ 1 xr) "e"])]
(println (str "<td><img src=\"" y dy x dx "_res.png\"></td>") )))
(println "</tr>")
))
(println (str "</table>"))
(println (str "</body>"))
(println (str "</html>"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment