Quine ruBy - まめめも 僕みたいなruby素人には何やっているのかよくわからない ＞＜ のでperl版を作ってみた。 eval (($q ||=q{1; $b=qq{$ q\x7d))}. join(chr( 2 +30)x11,( ";","BEGIN" .'{$^H|=' . ( "0x800000"),q"}eval$b"));$b=~s/\e\[.* ? m //xg;for(28,5,45,5,53,58,86,30,1, ( ( 43)),58,86,30,1,53,58,31,2,43,58,31,2 , 55,5,45,5){$~=(0,"48;5;9","48;5;1","48;5" .";15")[$_/28];substr($b,517+$i+($_%28),0 ,() ."\e[$~m");$i+=length($~)+3+($_%28) };( $n=
略して QB 。 eval s||= %q(1;t= %w(s.gs ub!(/\e.* ?m/,"");[ [ 0x26e885c a844a879e27 a,519,48, 5 , 9],[20182686,600,48,5,1],[4366,611,48 , 5 ,15],[432803624050570,533,0]].map { | r,m,*d|s[m+=r%74,0],r="\e[#{d*";"}m", r /74while(r>0)};puts((z=32.chr)*5+"eval#{z *39}s||=\n#{z*5}%q(#{(1+n=s.to_i)%3}#{s[1 ..- 1]})\n\n"+z*9*n+"5YOV44GvUnVieWlzdO OBq +OB quOBo+OBpuOBj+OCjOOBo+OBpuOAgeOBjeOBo eOC k+OB qOOBi um
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
