コード圧縮
Posted feedbacks - Scheme
Gauche で書いてみました。基本的に read して write しただけです。
1 2 3 4 | (define (main args)
(for-each write
(call-with-input-file (cadr args)
(cut port->list read <>))))
|
コード圧縮
Gauche で書いてみました。基本的に read して write しただけです。
1 2 3 4 | (define (main args)
(for-each write
(call-with-input-file (cadr args)
(cut port->list read <>))))
|
sweetie089 #6664() Rating-6/10=-0.60
[ reply ]