10/02/02 12:23:19
>>497
使用言語：J
f=: monad define
t=:<;._2 y
for_i. i.#t do.
s=.;i{t
w=.":#cutopen s
smoutput (":>:i),':',":s
smoutput '＝＞',(":#s),'文字、',w,'ワード'
end.
)
read=: 1!:1
f read<'test3.txt'
1:And friends just can't be found
＝＞31文字、6ワード
2:Like a bridge over troubled water
＝＞33文字、6ワード
3:I will lay me down
＝＞18文字、5ワード