⊂（ ＾ω＾）⊃持久走2

JavaScript 七行プログラミング

以前作成したものの続き。

その後、2chのスレに上げられた修正等を参考にしつつ6行に収まりました。現状ここらが僕の限界のようです。

⊂（ ＾ω＾）⊃持久走ソース(改)

<body onload='g=[0,0,0,0,0,0,0,k=m=c=0,p=2,b="<br>"];with(Math)R=random,A=abs;S
=function(h,l){for(q=h;l--+39;q+=h);return q};t=setInterval(function(){c+=k;for
(j=9;k=j;a=g[j]=g[--j]);p=R()<.4?R()*5|0:p;g[0]=A(a+=p-2)>25?a-a%25:a;d=++m+"m"
+b+S("―",41)+b;for(j=m<800?m/100|0:8;j<10;d+=S(y="■",-g[j]-j)+S(z="　",j*2-39
)+S(y,g[j]-j++)+b);document.body.innerHTML=(d+S(z,c-3)+"⊂(^ω^)⊃").fontsize(1
).fixed();A(g[9]+c)>7&&clearTimeout(t)},100)'onkeydown=k=event.keyCode-38>