「釣りバカ日誌パート１」

七行スレから分離したスレです。

このスレでは７行に拘らずひたすらコードを縮める事のみを追求します。
原則横79+改行で、可能な限り短く。

スレタイの意味が分かりません。

V=20:screen ,200,400:title "0":dim B,4:dim C,10,V:dim D,10,V:randomize:F=2:boxf
dim A,4,7:A=1,4,5,6,5,6,10,14,5,6,9,13,5,6,9,10,2,6,5,9,1,5,6,10,1,5,9,13:repeat
wait 1:if G=0{rnd N,7:memcpy B,A,16,,16*N:H=3:I=-4:J=0:G=1}J-F:if J<0{K=0:L=1
gosub Z:if M=0{N=0:repeat 4:O=B.cnt\4+H:P=B.cnt/4+I:if P<0{N=1:break}C.O.P=1
loop:if N{break}dim Q,V:R=0:repeat V:S=cnt:N=0:repeat 10:N+=C.cnt.S:loop:if N>9{
Q.cnt=1:R+:palcolor 255:boxf 0,cnt*V,200,cnt*V+18}loop:if R>0{wait 50:color:boxf
E+R*R:title ""+E:N=19:repeat V:S=19-cnt:if Q.S=0{memcpy C,C,40,N*40,S*40:N-}loop
memset C,,N*40}G=0}J=100}stick T,8,1:K=T&4!0+(T&1!0*-1):L=T&8!0:gosub Z:if T&16{
dim U,4:memcpy U,B,16:repeat 4:N=B.cnt\4:B.cnt=N*4+3-(B.cnt/4):loop:K=0:L=0
gosub Z:if M=0{memcpy B,U,16:gosub Z}}redraw 0:repeat V:S=cnt:repeat 10:K=cnt*V
palcolor D.cnt.S*9:L=S*V:boxf K,L,K+18,L+18:loop:loop:redraw:loop:dialog "over"
end:*Z:M=1:repeat 4:O=B.cnt\4+H+K:P=B.cnt/4+I+L:if (P>19)|(O<0)|(O>9):M=0:break
if P<0{continue}if C.O.P=1{M=0}loop:if M=0{return}memcpy D,C,10*V*4:H+K:I+L
repeat 4:O=B.cnt\4+H:P=B.cnt/4+I:if P>=0{D.O.P=1}loop:return

スレ立ておつ

相互リンク
http://pc.2ch.net/test/read.cgi/prog/1033220523/l50

双子スレ
http://pc.2ch.net/test/read.cgi/prog/1033220523/

ｹｺｰﾝしてください

つーことで、lisp44行キボンヌ

>>3は何のソース？

>>9
ＨＳＰ。コピペだが。

名は体を表すものでないと

親スレ
http://pc3.2ch.net/test/read.cgi/tech/1033143528/

このスレ、親スレ、兄弟スレ、どれもぐだぐだになっとりますな。

笑いが止まりません

「釣りバカ日誌パート２」
七行スレから分離したスレです。

このスレでは７行に拘らずひたすらコードを縮める事のみを追求します。
原則横79+改行で、可能な限り短く。

双子スレ
http://pc.2ch.net/test/read.cgi/prog/1033220523/
親スレ
http://pc3.2ch.net/test/read.cgi/tech/1033143528/

ま、それでもやっぱり目標は 7行 ってことで。 よろしこ。

ほんとにスレタイはこのままでいいのだろうか

>>17
いまさら。

このまま沈降するのが、このスレの運命ってやつさ

俺はなんとなく好きだぞ。このスレタイ。

lisp ｿｰｽﾐﾀｲﾖｰ

このスレageて良いの？
駄目だよね？
つーか1は自分で削除依頼出しとけよ。

萌え

だめぽ・・・どうしても79*7に収まりきらない・・・

using System;using System.Drawing;using System.Windows.Forms;class B:Form{
[STAThread]static void Main(){Application.Run(new B());}B(){Menu=new MainMenu(
new MenuItem[]{new MenuItem("&File",new MenuItem[]{new MenuItem("&Open...",new
EventHandler(c))})});}protected override void OnPaint(PaintEventArgs e){if(b!=
null)e.Graphics.DrawImage(b,new Rectangle(AutoScrollPosition,b.Size));}Bitmap
b;void c(object o, EventArgs e){OpenFileDialog d=new OpenFileDialog();if((int)
d.ShowDialog()==1){b=new Bitmap(d.FileName);AutoScrollMinSize=b.Size;Invalidate();}}}

>>24
Invalidateを
Refreshに変えると、3文字お得。

>>24
Systemをnamespaceにしたら逝けたから向こうに貼っとく。

オマエモナー

>>27
何だ誤爆か！？

END

これ以上 短いのは ないだろう（ｗ

main(int kaere,char** argv){return kaere;}

char main=-61;

>>29
?0

からage からage!

gue

lisp 唇出晴岼

ｺﾉｽﾚﾜﾗﾀ

以後、ドラクエは7行近辺になるまでこちらで。

int a,b,c,d,e,f,g,h,i,j,k,l,m,n,z[6],r,x[9],y[9];char o[][9]={"ｱﾘｰﾅ","ｸﾘﾌﾄ"
,"ﾌﾞﾗｲ","ｽﾗｲﾑ","ﾏｰﾏﾝ","ﾄﾛﾙ","ｵｰｸ","ｷﾒﾗ","竜王","攻撃","防御","ｲｵ","ﾎｲﾐ","ﾋｬﾄﾞ"
,"who?","唱えた","ﾀﾞﾒｰｼﾞ","回復","死んだ","敵出現","勝利","ｸﾘｱ","全滅","した",
"に","の","は","を","▼","\x1b[2J"," ","MP不足","\x1b[0m","\x1b[31m",
"\x1b[32m","\x1b[>5h"},q[]="00533",
p[]="vlb:XvlXvvlb:XvlXv:?B06060?:?B06060?SI?5?SNXSA?<2?2:?D234040302";
main(){srand(time(0));S(35);for(r=0;r<=3;r++){S(19);S(28);for(b=3;b<6;b++)
{p[r+b]=p[r+b+9];p[r+b+18]=p[r+b+27];}for(l=0;l/10!=3;){for(b=0;b<3;b++)
{if(p[b]!=48){N();S(b);C(63);C(10);for(c=1;c<4;c++){D(c);C(58);S(8+c+c/3*b);
C(10);}d=getch()-49;x[b]=d+d/2*b;if(d==0||(d==2&&b>0)){C(10);S(14);C(10);
for(c=1;c<4;c++){e=x[b]==3?c-1:r+c+2;if(p[e]!=48){D(c);C(58);S(e);C(10);}}
e=getch()-49;y[b]=x[b]==3?e:r+3+e;}}S(29);}for(b=r+3;b<r+6;b+=p[y[b]]!=48?1:0)
{d=x[b]=rand()%2==0?0:p[b+54]-48;e=rand()%3;y[b]=d==3?r+3+e:e;}for(n=0;n<6;
n++){z[n]=6;d=rand()%6;z[n]=d>2?r+d:d;for(b=n-1;b>-1;b--)n-=z[n]==z[b]?1:0;}

for(n=0,l=0;n<6&&l/10!=3;n++){b=z[n];if(p[b]!=48){N();d=x[b];S(b);d==0?
(S(25),S(9)):d==1?(S(26),S(10),S(23)):(S(26),S(d+9),S(27),S(15));C(7);C(10);
if(d<2||p[b+18]!=48){p[b+18]-=q[d]-48;e=y[b];f=p[b+36]-p[e+45];f=d==0?f<1?2:f:
d==2?20:d==4?30:0;if(d==2)for(g=b<=2?r+3:0,h=0;h<3;h++)Z(g+h);else Z(e);
for(k=0,l=0;k<r+6;k+=k==2?r+1:1)l+=p[k]==48?k<3?1:10:0;if(l%10==3){S(22);
S(28);exit(1);}if(l/10==3){S(20);S(23);}}else S(31);S(28);}}}}S(21);S(28);}
S(a){printf("%s",o[a]);a==28?(getch(),S(29)):a;}P(a){printf("%3d",p[a]-48);}
D(a){printf("%d",a);}C(a){printf("%c",a);}N(){for(a=0;a<3;a++){S(a);P(a);
P(a+18);C(10);}for(a=3;a<6;a++){S(p[a+r]!=48?a+r:30);C(10);}C(10);}Z(a){
if(p[a]!=48&&d!=1){S(a);if(d%2==0){S(24);m=f*(rand()%4+8)/10;p[a]-=m/=x[a]==1
?2:1;D(m);S(16);p[a]<49?(p[a]=48,C(10),S(18)):a;}if(d==3){S(26);S(17);S(23);
p[a]=p[a+9];}C(10);S(32);for(c=0,m=0;c<3;c++)m+=p[c]<49?4:p[c]<64?1:0;m>3?
S(33):m>0?S(34):m;}}

Z関数って何