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 dl $ skipEachN n dl
  9. 	where dl = drop n l
  10.  
  11. main = do 
  12. 	print $ skipEachN 5 a
  13. 	print $ take 10 $ skipEachN 5 b
Success #stdin #stdout 0.01s 3548KB
comments (?)
stdin 
Standard input is empty
stdout 
[6,11,16,21,26,31,36,41,46]
[6,11,16,21,26,31,36,41,46,51]
https://ideone.com/RILglX
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!