- 146 名前：デフォルトの名無しさん mailto:sage [2008/07/25(金) 08:27:14 ]
- >>145
元コードの主旨に従った物を書いてみた。
xyzzy は使ったことないんで通るかどうかは不明だが…
(defun kakikaki (lines &key (in-file "in.txt") (out-file "out.txt"))
(with-open-file (is in-file)
(with-open-file (os out-file :direction :output :if-exists :supersede)
(labels ((rec (count lines)
(let ((l (read-line is nil :eos)))
(cond ((eq l :eos) "END")
((eql (car lines) count)
(write-line l os) (rec (1+ count) (cdr lines)))
(t (write-line "" os) (rec (1+ count) lines))))))
(rec 1 (sort lines #'<))))))
(kakikaki '(10 30 400) :in-file "in.txt" :out-file "out.txt")
loop 極めるのは結構大変なんで時間かけて覚えた方がいいと思う。
|
 |
