Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@sritchie

sritchie/blanks.clj

Created February 7, 2011 05:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sritchie/814028 to your computer and use it in GitHub Desktop.
Save sritchie/814028 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
blanks.clj
(def modis-blanks
(let [offsets [14 11 9 6 4 2 1 0 0 0 0 0 1 2 4 6 9 11 14]]
(union (set (for [x (range 18) y (range (offsets x))] [x y]))
(set (for [x (range 18) y (range (- 36 (offsets x)) 36)] [x y])))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment