回复 11# codegay
python果然强悍- #lang racket
-
- (require 2htdp/batch-io)
- (letrec ([main (lambda (l t)
- (when (<= 10 t)
- (printf "writing file ~v.txt~n" t)
- (call-with-output-file (string-append (number->string t) ".txt")
- (lambda (output-port)
- (for-each (lambda (x)
- (fprintf output-port "~a~n" (substring (number->string x) 1)))
- (take l 1000000))))
- (main (drop l 1000000) (+ t 1))))])
- (main (shuffle (range 1000000000 2000000000)) 1))
复制代码 哎,来个racket的练练手算了,速度有够慢... 这语言果然不适合干这些事儿....得找门简单实用的语言学一学了 |