7行テトリス
ブラウザで動くテトリスのコーディングです。
「7行プログラミング」と呼ばれる可読性をガン無視して、いかに簡潔にコーディングするかで遊ぶ文化があります（コードゴルフ？）。その中でも最も有名なテトリスのプログラムになります。(プログラムの作者は私ではありません。多くの有志の方々によって改良を重ねてきたそうです)
ソース全文をテキストエディタにコピペして、拡張子を.htmlにすれば、実際にテトリスで遊ぶことも可能です。
以下「たった7行でテトリスを実装「七行プログラミング」とは（https://qiita.com/ryuichi1208/items/f9e6ac2b99bbe4fc82d3）」から引用
<body id=D onKeyDown=K=event.keyCode-38><script>Z=X=[B=A=12];function Y(){for(C
=[q=c=i=4];f=i--*K;c-=!Z[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];for(c?0:K+6?h
+=K:t?B=C:0;i=K=q--;f+=Z[A+p])k=X[p=h+B[q]]=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="";i<240;S+=X[i]|(X[i]=Z[i]|=++i%A<
2|i>228)?i%A?"■":"■<br>":"＿");D.innerHTML=S+P;Z[5]||setTimeout(Y,99-P)}Y(h=e
=K=t=P=0)</script>
※自動でふりがなを振ったため、現在、大文字で表示されている文字も小文字で入力してミスとみなされない状態になっていますが、いずれそのあたりも整えたいと考えております。
ソース全文をテキストエディタにコピペして、拡張子を.htmlにすれば、実際にテトリスで遊ぶことも可能です。
以下「たった7行でテトリスを実装「七行プログラミング」とは（https://qiita.com/ryuichi1208/items/f9e6ac2b99bbe4fc82d3）」から引用
<body id=D onKeyDown=K=event.keyCode-38><script>Z=X=[B=A=12];function Y(){for(C
=[q=c=i=4];f=i--*K;c-=!Z[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])p=B[i];for(c?0:K+6?h
+=K:t?B=C:0;i=K=q--;f+=Z[A+p])k=X[p=h+B[q]]=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="";i<240;S+=X[i]|(X[i]=Z[i]|=++i%A<
2|i>228)?i%A?"■":"■<br>":"＿");D.innerHTML=S+P;Z[5]||setTimeout(Y,99-P)}Y(h=e
=K=t=P=0)</script>
※自動でふりがなを振ったため、現在、大文字で表示されている文字も小文字で入力してミスとみなされない状態になっていますが、いずれそのあたりも整えたいと考えております。
| 順位 | 名前 | スコア | 称号 | 打鍵/秒 | 正誤率 | 時間(秒) | 打鍵数 | ミス | 問題 | 日付 |
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | もちもち | 598 | G | 0.7 | 84.7% | 728.2 | 532 | 96 | 25 | 2025/12/23 |
関連タイピング
-
歌詞ty ボカロタイピングサビだけ大会を開催！
プレイ回数498 歌詞60秒 -
プレイ回数622 歌詞かな154打 -
C++のようなもの。
プレイ回数1513 英語長文1638打 -
ぷよテトのリーグ名を打ち切れ！
プレイ回数88 207打 -
自作のハンバーガーメニューを作成しましょう！
プレイ回数3840 英語長文721打 -
大人気ボカロ曲「テトリス」のサビだけ！
プレイ回数221 歌詞かな190打 -
柊マグネタイト feat.重音テトの「テトリス」です。
プレイ回数1.5万 歌詞707打 -
どうしてこんな目に・に・に？
プレイ回数1099 歌詞1468打
問題文
ふりがな非表示
ふりがな表示
(＜ｂｏｄｙ ｉｄ＝ｄ ｏｎｋｅｙｄｏｗｎ＝)
<body id=D onKeyDown=
(ｋ＝ｅｖｅｎｔ．ｋｅｙｃｏｄｅ－３８＞)
K=event.keyCode-38>
(＜ｓｃｒｉｐｔ＞)
<script>
(ｚ＝ｘ＝［ｂ＝ａ＝１２］；)
Z=X=[B=A=12];
(ｆｕｎｃｔｉｏｎ ｙ（）｛ｆｏｒ（ｃ＝［ｑ＝ｃ＝ｉ＝４］；)
function Y(){for(C=[q=c=i=4];
(ｆ＝ｉ－－＊ｋ；ｃ－＝！ｚ)
f=i--*K;c-=!Z
(［ｈ＋（ｋ＋６？ｐ＋ｋ：ｃ［ｉ］＝ｐ＊ａ－（ｐ／９｜０）＊１４５）］）)
[h+(K+6?p+K:C[i]=p*A-(p/9|0)*145)])
(ｐ＝ｂ［ｉ］；ｆｏｒ（ｃ？０：ｋ＋６？ｈ＋＝ｋ：ｔ？ｂ＝ｃ：０；)
p=B[i];for(c?0:K+6?h+=K:t?B=C:0;
(ｋ＝ｉ＝ｋ＝ｑ－－；)
k=i=K=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>";
(ｄ．ｉｎｎｅｒｈｔｍｌ＝ｓ＋ｐ；)
D.innerHTML=S+P;
(ｚ［５］｜｜ｓｅｔｔｉｍｅｏｕｔ（ｙ，９９－ｐ）｝)
Z[5]||setTimeout(Y,99-P)}
(ｙ（ｈ＝ｅ＝ｋ＝ｔ＝ｐ＝０）＜／ｓｃｒｉｐｔ＞)
Y(h=e=K=t=P=0)</script>