わたなべさんのところの問題を awk でもやってみたけど、短くないなぁ。
$ seq 1000 | awk -v RS="" '$0=gsub("0","")'
192でも、これを会社とかで書かれても困るなぁ。(^^;
後から読めない。(まぁ、これそのものなら分かるけど、何かに紛れ込むと本気で辛い)
gsub() が置換数を返すのと、$0 へ代入することで true ('1') になり自動的に $0 を print させて、RS を "" にすることで全てを 1 つのレコードとしているものです。これが最短かどうかは不明です。
