12 lines
228 B
Racket
12 lines
228 B
Racket
#lang racket
|
|
|
|
(define n (command-line #:args (n) (string->number n)))
|
|
|
|
(for ([i (in-range n)])
|
|
(fprintf (if (even? i)
|
|
(current-error-port)
|
|
(current-output-port))
|
|
"~a\n"
|
|
i))
|
|
|