2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

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

1 :デフォルトの名無しさん:02/09/28 22:41
七行スレから分離したスレです。

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


2 :デフォルトの名無しさん:02/09/28 22:43
スレタイの意味が分かりません。

3 :デフォルトの名無しさん:02/09/28 22:45
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


4 :デフォルトの名無しさん:02/09/28 22:48
スレ立ておつ

5 :デフォルトの名無しさん:02/09/28 22:55
相互リンク
http://pc.2ch.net/test/read.cgi/prog/1033220523/l50

6 :デフォルトの名無しさん:02/09/28 22:57
双子スレ
http://pc.2ch.net/test/read.cgi/prog/1033220523/

7 :6:02/09/28 22:57
ケコーンしてください

8 :デフォルトの名無しさん:02/09/28 22:58
つーことで、lisp44行キボンヌ

9 :デフォルトの名無しさん:02/09/28 22:59
>>3は何のソース?

10 :デフォルトの名無しさん:02/09/28 23:00
>>9
HSP。コピペだが。

11 :デフォルトの名無しさん:02/09/28 23:02
名は体を表すものでないと

12 :デフォルトの名無しさん:02/09/28 23:03
親スレ
http://pc3.2ch.net/test/read.cgi/tech/1033143528/

13 :デフォルトの名無しさん:02/09/28 23:04
このスレ、親スレ、兄弟スレ、どれもぐだぐだになっとりますな。

14 :デフォルトの名無しさん:02/09/28 23:05
笑いが止まりません

15 :新スレよろしjこ:02/09/28 23:08
「釣りバカ日誌パート2」
七行スレから分離したスレです。

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

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


16 :デフォルトの名無しさん:02/09/28 23:20
ま、それでもやっぱり目標は 7行 ってことで。 よろしこ。

17 :デフォルトの名無しさん:02/09/28 23:22
ほんとにスレタイはこのままでいいのだろうか

18 :デフォルトの名無しさん:02/09/28 23:25
>>17
いまさら。

19 :デフォルトの名無しさん:02/09/28 23:52
このまま沈降するのが、このスレの運命ってやつさ

20 :デフォルトの名無しさん:02/09/29 02:10
俺はなんとなく好きだぞ。このスレタイ。

21 :デフォルトの名無しさん:02/09/30 12:27
lisp ソースミタイヨー

22 :デフォルトの名無しさん:02/10/03 23:17
このスレageて良いの?
駄目だよね?
つーか1は自分で削除依頼出しとけよ。

23 : ◆2LEFd5iAoc :02/10/05 02:37
萌え

24 :7行の308:02/10/06 17:29
だめぽ・・・どうしても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();}}}

25 :7行スレの278:02/10/07 13:43
>>24
Invalidateを
Refreshに変えると、3文字お得。

26 :7行スレの278:02/10/07 14:24
>>24
Systemをnamespaceにしたら逝けたから向こうに貼っとく。

27 :デフォルトの名無しさん:02/10/25 12:20
オマエモナー

28 :デフォルトの名無しさん:02/10/25 12:31
>>27
何だ誤爆か!?

29 :デフォルトの名無しさん:02/10/25 13:00
END

これ以上 短いのは ないだろう(w

30 :デフォルトの名無しさん:02/10/25 14:38
main(int kaere,char** argv){return kaere;}

31 :デフォルトの名無しさん:02/10/25 16:31
char main=-61;

32 :デフォルトの名無しさん:02/10/30 00:00
>>29
?0

33 :デフォルトの名無しさん:02/11/02 03:17
からage からage!

34 :デフォルトの名無しさん:02/11/02 03:53
gue


35 :デフォルトの名無しさん:02/11/18 19:42
lisp 唇出晴岼

36 :デフォルトの名無しさん:02/11/29 23:50
コノスレワラタ

37 :デフォルトの名無しさん:02/11/30 05:16
以後、ドラクエは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;}

38 :デフォルトの名無しさん:02/11/30 05:16
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;}}

39 :デフォルトの名無しさん:02/12/01 21:01
Z関数って何

8 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)