fork download 
  1. a = [1..50]
  2. b = [1..]
  3.  
  4. aion [] ld = ld
  5. aion ls ld = (head ls) : ld
  6.  
  7. skipEachN _ [] = []
  8. skipEachN n l = aion l $ skipEachN n dl
  9. 	where dl = drop n l
  10.  
  11. main = do 
  12. 	print $ skipEachN 4 a
  13. 	print $ take 10 $ skipEachN 4 b
Success #stdin #stdout 0.02s 3548KB
comments (?)
stdin 
Standard input is empty
stdout 
[1,5,9,13,17,21,25,29,33,37,41,45,49]
[1,5,9,13,17,21,25,29,33,37]
https://ideone.com/YpEGDB
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!