仕事柄、プログラムを読むことをよくしています。
まれにハッとさせられるコードにめぐり合ったりして、世の中には頭の良い人がいるもんだと感心します。
本当に最適化されたプログラムにおいては、それ以上加えることも削ることもできません。
まるで、何かの結晶のようにそれだけで美しさを感じるものです。
そう言ってもプログラマ以外の方にはチンプンカンプンだとは思いますが・・・
今日、紹介するJavaScriptのプログラムも、完全に最適化されたプログラムのひとつです。
【実行方法】
・プログラムをマウスのドラッグにより反転させ、メモ帳などのエディタにコピーします。
・ファイル名を「tetris.htm」として保存します。
・「tetris.htm」をダブルクリックすれば実行できます。
・キー操作はカーソル移動キーとEnterキーです。
<body onKeyDown=K=event.keyCode><script>X=[Z=[B=A=12]];h=e=K=t=P=0;function Y()
{C=[d=K-38];c=0;for(i=4;i--*K;K-13?c+=!Z[h+p+d]:c-=!Z[h+(C[i]=p*A-Math.round(p/
A)*145)])p=B[i];!t|c+4?c-4?0:h+=d:B=C;for(f=K=i=0;i<4;f+=Z[A+p])X[p=h+B[i++]]=1
if(e=!e){if(f|B){for(l=228;i--;)Z[h+B[i]]=k=1;for(B=[[-7,-20,6,17,-9,3,6][t=++t
%7]-4,0,1,t-6?-A:-1];l--;h=5)if(l%A)l-=l%A*!Z[l];else for(P+=k++,j=l+=A;--j>A;)
Z[j]=Z[j-A]}h+=A}for(i=S="";i<240;X[i]=Z[i]|=++i%A<2|i>228)i%A?0:S+="<br>",S+=X
[i]?"■":"＿";document.body.innerHTML=S+P;Z[5]||setTimeout(Y,99-P)}Y()</script>
いかがですか？
信じられない事がおきたでしょ？
これが、結晶化されたプログラムではないでしょうか。
(主任)
【おまけ】
Webで遊べるテトリスはこれだけではありません。
次のサイトのテトリスも面白いですよ。
http://www.mapmsg.com/games/statetris/japan/
ブログランキングに参加しました。
ワンクリックして頂ければ励みになります。
よろしくお願いいたします。m(_ _ )m
↓↓
PR
