La.系ぶろぐ

個人的いろいろメモ。シャープペンのメモにちょっぴりゲ○ツの悪口が混じってるただのチラ裏。

ぽけこん。

なんか、時々こう……「ぽけこんまんせー!」になったりするんですが。
関数電卓みたいに安価に普及してくれたらよかったのになぁ……
だって、たとえばsinって関数電卓だと探すの大変だけど、ポケコンなら楽に打てる訳じゃないですか。……ってぐらいじゃ需要無いのかな?うーん。

一応、家ではまだPC-1500が元気です。
たしか23年前くらいに、親に中古で買ってもらった物のはずなんですが。
(改めてこう書いてみると……なんという長寿!)
で、ふと……BEEP音で遊んでみたりして。
ちなみに、「BEEP 65535,255,65279」ってやると……たぶん10日近く実行終わらないよね?あはは。(BREAKでとまるけどさ)もしかして、一番処理時間の長いステートメント?
このBEEP、途中で音程が狂うんだよね。まったく、SHARPさんはお茶目だから。

ポケコンはあと、PC-1211とかPC-1251とかも持ってるんですが、液晶が……逝っちゃったんですよ。これ……補修部品とかあるのかなぁ?検索すると、2000年前後までは修理したとかそんな話が載っているんですが。(しかし補修部品が15年近く保存してあるって……)
しかし、PC-1251は一番のお気に入りだったんですけどね。小さくて、一通りの処理がこなせたので。今は九十九で999円で買った(^^;)PC-1280を(たまに)使ってますが……折りたたみなのでイマイチなんですよ。う~ん。

スポンサーサイト

PageTop

ぷよぷよ……

結局やってたり。
いや、ぷよは連鎖組めないので(バカだから)デバッグきついかなーと。
てか、縮む場所無いじゃん。消し判定芸術的すぎ。
でも、なんか変態なコードが思いついたので。

<body id=D onKeyDown=K=event.keyCode-38><script>function G(x){X[x]==c&&(X[x]=q?
(P+=k++,0):-c,G(x+1),G(x+8),G(x-1),G(x-8),v++)}function Y(){l=i=I=96;if(e++&3)
for(X=[K?K+6?Z[a=h-K]|Z[a-B]?0:h=a:Z[h-(E=9/B-B/3|0)]?0:B=E:0,K=0];k=i--;X[h]=2
+t%5|0,X[h-B]=2+t/5|0)X[i]=Z[i]|=(i-7)%8<2;else if(h-=8,r||Z[h]+Z[h-B]){for(r=X
[100]=0;i--;)X[j=i+8]*!X[i]&&(X[i]=X[j],X[j]=0,i=I);for(;I--;q=v=0)if(c=X[I],c>
1)G(I),c=-c,r|=q=v>3,G(I);t=Math.random(h=92)*25;Z=X;B=8;e=!r}for(S=P;l;S+=l--%
8?"_■●㊥◇◎○".charAt(X[l]):"<br>■");D.innerHTML=S;Z[92]*!r||setTimeout(Y,
99-P)}r=1;Y(X=[e=h=K=P=0])</script>

ちょっと「9/B-B/3|0」はキてるかなー、と言うか小数の整数化を覚えたので使っただけ
ですが。でも、これでもまだ7行まで40文字以上ある罠……

PageTop