fork download
  1. -- Definimos una lista infinita de nĂºmeros naturales
  2. naturales :: [Int]
  3. naturales = [1..] -- lista infinita: 1, 2, 3, 4, ...
  4.  
  5. -- Usamos 'take' para obtener solo los primeros 10 elementos
  6. main :: IO ()
  7. main = print (take 10 naturales)
Success #stdin #stdout 0s 5320KB
stdin
Standard input is empty
stdout
[1,2,3,4,5,6,7,8,9,10]