fork download
copy 
  1. #lang racket
  2.  
  3. (define (generar-numeros-1-20 cantidad)
  4.   (build-list cantidad (λ (_) (+ 1 (random 20)))))
  5.  
  6. (define n 1000000)
  7.  
  8. (call-with-output-file "racket_1_20.txt"
  9.   (λ (archivo)
  10.     (for ([x (generar-numeros-1-20 n)])
  11.       (fprintf archivo "~a\n" x)))
  12.   #:exists 'replace)
  13.  
Success #stdin #stdout 0.6s 88876KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/rsrjbj
language:
Racket (racket 7.0)
created:
1 day 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!