matyr #7095(2008/08/10 13:44 GMT) [ Scheme ] Rating0/4=0.00
素直にstdinから読んで146B。
1
(let([t(hash-table'equal?)][n 1])(guard,,(hash-table-map t print)(while(map(cut hash-table-push! t <> n)(string-split(read-line)#[\W]))(inc! n))))
Rating0/4=0.00-0+
[ reply ]
matyr
#7095()
[
Scheme
]
Rating0/4=0.00
素直にstdinから読んで146B。
Rating0/4=0.00-0+