アカウント名:
パスワード:
コアダンプでも、デバッグ情報送信でも、こんなアニメーションを…
........orz .......o.rz ......o..rz .....o...rz ....o....rz ...o.....rz ..o......rz .o.......rz o........rz
より多くのコメントがこの議論にあるかもしれませんが、JavaScriptが有効ではない環境を使用している場合、クラシックなコメントシステム(D1)に設定を変更する必要があります。
アレゲは一日にしてならず -- アレゲ研究家
PROGRESS BAR (スコア:3, おもしろおかしい)
コアダンプでも、デバッグ情報送信でも、こんなアニメーションを…
Re:PROGRESS BAR (スコア:1)
$orz = '..................orz';
$stop = length($orz) - 3;
for( $i = 0; $i <= $stop; $i++ )
{
print $orz, "\n";
$orz =~ s/^(.)(.*)(o)(.*)(rz)/$2$3$4$1$5/;
}
# 誰か1秒未満のウェイトをかける方法教えて……
yaorz (スコア:1)
orz = '..................orz'
puts orz
0.upto(orz.size-3){|i|
sleep 0.7
puts orz.gsub!(/(.)(.*)(o)(.*)(rz)/,'\2\3\4\1\5')
}
とか?
yaorz hacker: orzの誕生編 (スコア:1)
orz = ("."*17).split(//)
rand(orz.unshift("o").size).times{orz.push(orz.shift)}
rand(orz.unshift("r").size).times{orz.push(orz.shift)}
rand(orz.unshift("z").size).times{orz.push(orz.shift)}
(0 .. orz.size-2).each do | i |
(i+1 .. orz.size-1).each do | j |
orz[i], orz[j] = orz[j], orz[i] if (orz[i] > orz[j])
end
p orz.join('')
sleep 0.1
end
#いまいち。
Re:yaorz (スコア:0)
#ruby書いたこと無いAC
Re:yaorz (スコア:0)
モデ-1:無粋
ってことで。
失礼しました。
Re:PROGRESS BAR (スコア:1, おもしろおかしい)
#!/usr/bin/perl
$orz = ' orz';
$stop = length($orz) - 3;
select(STDOUT);
$|=1;
select(STDOUT);
for( $i = 0; $i <= $stop; $i++, print "\r") {
print $orz;
$orz =~ s/^( )( *)(o)( *)(rz)/$2$3$4$1$5/;
select(undef,undef,undef,0.4);
}
print "\n";
Re:PROGRESS BAR (スコア:0)
首が加速度をつけて転がるようにしてみた。笑った。
Re:PROGRESS BAR (スコア:0)
select(undef,undef,undef,0.5);
Re:PROGRESS BAR (スコア:0)
# 使い方は man を見れ。
Re:PROGRESS BAR (スコア:0)
$orz = '..................orz';
$stop = length($orz) - 3;
$| = 1;
for( $i = 0; $i <= $stop; $i++ ) {
print $orz, "?r";
$orz =~ s/^(.)(.*)(o)(.*)(rz)/$2$3$4$1$5/;
select(undef, undef, undef, 0.1);
}
# 美しくないのでAC
Re:PROGRESS BAR (スコア:0)
Re:PROGRESS BAR (スコア:1)
Beraboh Man? (スコア:0)