文字を全部0に置き換える
30分プログラム、その778。anarchy golf - zero linesにインスパイアされました。
改行を除く全ての文字を0に置き換えます。sedでいいじゃん、とか言わないで><。
使い方
$ jot 10 | escript all_zero.erl 0 0 0 0 0 0 0 0 0 00 $ python -m this | escript all_zero.erl 00000000000000000000000000000000 000000000000000000000000000000 000000000000000000000000000000000 000000000000000000000000000000 00000000000000000000000000000000000 000000000000000000000000000 0000000000000000000000000000 0000000000000000000 0000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000 0000000000000000000000000000000000 000000000000000000000000000 000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000 000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000
ソースコード
-module(all_zero). -compile([export_all]). all_zero(Xs)-> lists:map( fun(C)-> case C of $\n -> C; _ -> $0 end end, Xs). read_all() -> case io:get_line("") of eof -> ""; Data -> lists:append(Data,read_all()) end. main(_)-> io:format("~s",[ all_zero(read_all()) ]).