Skip to content

Instantly share code, notes, and snippets.

@sordina

sordina/states.geojson

Last active June 21, 2017 00:12
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 sordina/fff0801af163d7002f36493c4e8658f5 to your computer and use it in GitHub Desktop.
Save sordina/fff0801af163d7002f36493c4e8658f5 to your computer and use it in GitHub Desktop.
Download ZIP
Display the source blob
Display the rendered blob
Raw
states.geojson
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@sordina
Copy link
Author

sordina commented Jun 21, 2017 

import Data.List.Split

geo = [ [ [ [ 145.131889, -38.390694 ] ]]] -- ...

sample n l = map head $ chunksOf b l
  where
  b = max 1 (c `div` n)
  c = length l

main = print $ map (map (sample 20)) geo

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment