Launch rocket with countdown and acceleration in stdout: Difference between revisions

m
Line 267:
(sleep 1)
 
(for/fold ([ms 1000] #:result (void)) ([n (in-range 2 100)])
(void
(cls)
(for/fold ([ms 1000]) ([n (in-range 2 100)])
(clsprint-rocket n)
(sleep (print-rocket/ ms n1000))
(if (sleep>= ms 40) (/- ms 100040) 0))</lang>
(if (>= ms 40) (- ms 40) 0)))</lang>
 
=={{header|REXX}}==
Anonymous user