fork download
  1. #lang racket
  2.  
  3. (define (generar-numeros-1-20 cantidad)
  4. (build-list cantidad (λ (_) (+ 1 (random 20)))))
  5.  
  6. (define n 1000000) ; cambie la cantidad si lo necesita
  7.  
  8. (for ([x (generar-numeros-1-20 n)])
  9. (displayln x))
  10.  
Success #stdin #stdout 0.57s 88276KB
stdin
Standard input is empty
stdout
Standard output is empty