DouKaku? 7075 athos: もっと素直にやっても結構短くなるみたいで...(LL Golf Hole 4 - 文章から単語の索引を作る )

Comment detail

LL Golf Hole 4 - 文章から単語の索引を作る (Nested Flatten)

This comment is reply for 7070 koguro: まだ無駄があった (277 bytes)。(LL Golf Hole 4 - 文章から単語の索引を作る ). Go to thread root.

もっと素直にやっても結構短くなるみたいですよ(262bytes)。

(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)))