fork download

a = [1..50]
b = [1..]
 
each _ [] = []
each n (x:xs) = x: (each n $ drop (n - 1) xs)
 
main = do 
        print $ each 4 []
        print $ take 10 $ each 4 []

[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:8:8:
    Ambiguous type variable `a' in the constraint:
      `Show a' arising from a use of `print' at prog.hs:8:8-12
    Probable fix: add a type signature that fixes these type variable(s)

prog.hs:9:8:
    Ambiguous type variable `a1' in the constraint:
      `Show a1' arising from a use of `print' at prog.hs:9:8-12
    Probable fix: add a type signature that fixes these type variable(s)

Standard output is empty