blob: 4052a308c18eaae3d46cc9add8b7281f0be7e8d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# 全角文字を含むスクリプト
# 使い方: samp.rb file..
単語 = 0
while gets()
printf("%3d: %s", $., $_)
while sub(/\w+/, '')
if $& != "";
単語 += 1
end
end
if ($. >= 10); break; end
end
printf("line: %d\n", $.)
printf("word: %d\n", 単語)
|