fork download
copy 
  1. import Data.List
  2. each n = unfoldr $ \xs -> do (x:_) <- Just xs; Just (x, drop n xs)
  3.  
  4. main = do print $ each 4 [1..50]
Success #stdin #stdout 0.01s 3592KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1,5,9,13,17,21,25,29,33,37,41,45,49]
https://ideone.com/fo8esL
language:
Haskell (ghc 8.4.4)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!