Rydgel · August 29, 2015 14:06
diff --git a/gistfile1.hs b/gistfile1.hs
 module Golf where

 skips :: [a] -> [[a]]
 skips xs  = map (\(i,x) -> takeNth i x) $ zipWith (\_ b -> (b, xs)) xs [1..]

 takeNth :: Int -> [a] -> [a]
 takeNth n xs = [y | (i,y) <- zip [1..] xs, i `mod` n == 0]
	module Golf where

	skips :: [a] -> [[a]]
	skips xs = map (\(i,x) -> takeNth i x) $ zipWith (\_ b -> (b, xs)) xs [1..]

	takeNth :: Int -> [a] -> [a]
	takeNth n xs = [y \| (i,y) <- zip [1..] xs, i `mod` n == 0]