はじめてのにき(2007-11-04)

2007-11-04

普通にどうすればいいのかわからないという有様。

(08:08)

すんごい違和感があるな。

でも面白いな…

(12:23)

Perl ヤロウならこんな感じだろうなぁ。

i@umu ~> seq 1 1000 | perl -p0e '$_=y/0//'
192

(14:10)

seq 1 1000 | sed 's/0/\n/g' | wc

してから 1000 ひくな…

sed だけで解決したければ

seq 1 1000 | sed 's/0/\n/g;t;d;:;s/\n//' | wc

暗号度増やしてどうする。

(14:36)

seq 1 1000 | sed 's/[^0]//g;/0/{:;x;s/$/_@0123456789_0/;:a;s/^_/1/;s/\(.\)_\(.*\)\(@.*\1\(_*.\).*\)/\4\2\3/;ta;s/@.*//;x;s/0//;/0/b};${x;p};d'

こんなワンライナー書く人がいたら求婚する。

(14:52)

seq 1 1000 | sed ':;/0/{x;s/$/_@0123456789_0/;:a;s/^_/1/;s/\(.\)_\(.*@.*\1\(_*.\).*\)/\3\2/;ta;s/@.*//;x;s/0//;b};${x;p};d'

(14:58)

↓ sed 入門サイト(大嘘)

(15:04)

seqじゃないだろう…

(15:34)

echo {1..1000}|sed 's/[^0]//g;s/0//' |wc -c

まぁ seq 無しならこれで。

(23:14)

本日のリンク元

全てリンクフリーです。コード片は自由に使用していただいて構いません。その他のものはGPL扱いであればあらゆる使用に関して文句は言いません。なにかあれば下記メールアドレスへ。