athos #7075(2008/08/09 11:24 GMT) [ Scheme ] Rating0/2=0.00
もっと素直にやっても結構短くなるみたいですよ(262bytes)。
1
(use file.util)(use util.list)(use srfi-13)(do((t(make-hash-table 'string=?))(ls(file->string-list(car *argv*))(cdr ls))(n 1 (+ n 1)))((null? ls)(print(hash-table->alist t)))(dolist(w(string-split(car ls)#[\W]))(hash-table-push! t (string-downcase w) n)))
Rating0/2=0.00-0+
1 reply [ reply ]
athos
#7075()
[
Scheme
]
Rating0/2=0.00
もっと素直にやっても結構短くなるみたいですよ(262bytes)。
Rating0/2=0.00-0+