Skip to content

Instantly share code, notes, and snippets.

@johnwalker

johnwalker/Golf.hs

Created October 2, 2014 17:54
Show Gist options
  • Save johnwalker/02931b999300e4d2a03d to your computer and use it in GitHub Desktop.
Save johnwalker/02931b999300e4d2a03d to your computer and use it in GitHub Desktop.
Download ZIP
CIS193 Exercise
Raw
Golf.hs
module Golf where
import Data.List.Split
skips :: [a] -> [[a]]
skips a = map (\x -> (map head $ chunksOf x $ drop (x-1) a)) [1..length a]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment