« Hyper Frame | メイン | Illusion Knitting »

7行プログラミング

 わずか7行のJavaScriptで書かれたテトリス。
プログラミングテクニックの限界にチャレンジしたと思われる凄いものです。
少しでもプログラミングをした方なら、その凄さが理解できるかと思います。
作者の方のホームページはこちらで、「作品集」内に7行プログラミングの項目があり、他に「ぷよぷよ」等があります。
公開終了のような事が書かれていますので今のうちにどうぞ!

下記の点線内をコピーして、新規にメモ帳などに貼り付けます。
ファイル名は適当で構いませんが、拡張子をhtml(もしくはhtm)で保存して下さい。
出来たファイルを開くとテトリスが始まります。

---------------------------------------------------------


<body onKeyDown=K=event.keyCode-38><script>Z=X=[B=A=12];function Y(){for(C=[q=c
=i=4];i--*K;c-=!Z[h+(K+25?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];c?0:K+25?h+=K:t?B=C
:0;for(i=k=f=K=0;q--;f+=Z[A+p])X[p=h+B[q]]=t+1;if(e=!e)if(h+=A,f|B)for(Z=X,X=[l
=228],B=[[-7,-20,6,h=17,-9,3,3][t=++t%7]-4,0,1,t-6?-A:2];l--;)for(l%A?l-=l%A*!Z
[l]:(P+=++k,c=l+=A);--c>A;)Z[c]=Z[c-A];for(S="<b>";i<240;S+=(c=X[i]|(X[i]=Z[i]
|=++i%A<2|i>228))?"<b style=color:#"+142*c+">■":"_")i%A?0:S+="<br>";document.
body.innerHTML=S+P;Z[5]||setTimeout(Y,99-P)}Y(h=e=K=t=P=0)</script>

--------------------------------------------------------

カーソルキーで移動、リターンキーで回転します。
尚、右下の数字は消したライン数を表しています。

コメントを投稿