七行プログラミング part2

1 名前：デフォルトの名無しさん [02/04/15 12:09] 7行×79文字なら言語は問いません。 過去作品は>>2-5を参照。 ■前スレ pc.2ch.net/test/read.cgi/tech/984182993/ 684 名前：デフォルトの名無しさん [02/08/26 20:35] お題：逆ポーランド電卓、はどなたか？ 685 名前：デフォルトの名無しさん mailto:sage [02/08/26 20:42] >>684 >>5 686 名前：デフォルトの名無しさん mailto:sage [02/08/26 20:52] >>685 FORTHにしる！ 687 名前：デフォルトの名無しさん mailto:sage [02/08/26 23:03] 文字数の都合で、茶色の中を黒い部分を目指すことになりますた。 ここいらで限界です。 import java.awt.*;class M{public static void main(String[]a){new Frame(){int[]s ={1,-15,-1,15,1},m=new int[225],w={48,50,40,7,3,36,80,84,40,40,40,36,12,1,9,20, 20,20,108,100,12,20,10,0,0,0};int d,u,v,i,j,p,q;Canvas c=new Canvas(){{resize( 200,200);}public void paint(Graphics g){for(i=0;i<8;g.fillPolygon(new Polygon() {{for(v=0;j>0&v<6;addPoint(u/11*20,u%11*20)){u=w[(i%3)/2*5+i/3*10+v++];u=i%3<1? 120-u:u;}i++;}}))g.setColor(new Color(j=m[p+s[d]*(2-i/3)-s[d+1]*((i+2)%3-1)]<< 23));}};{for(;i<225;m[193]=2)m[i]=i<30|i>194|(2+i++)%15<4?1:0;for(;j<25;p=32)if (m[(p=j/5*20+j*2+48)+s[i=(int)(Math.random()*4)]*2]>0)m[p]=m[p+s[i]]=++j/j;add( c);pack();show();}public boolean keyDown(Event e,int k){k-=51;d=k>0&k<4?d+k&3:d ;if(k==5&m[k=p+s[d]]<1)p=k;c.repaint();return 1>0;}};}} 688 名前：デフォルトの名無しさん mailto:sage [02/08/27 15:50] >>687 なかなか短くなってるけど、もっと減らさないとだめそうだね キー入力判定部分と、迷路描画部分が短くなりそうだけど 予約語と定数が多いので、７行化はかなり困難げ 689 名前：688 mailto:age [02/08/27 22:53] import java.awt.*;class M{public static void main(String[]a){new Frame(){int d, u,v,i,j,p;int[]s={1,-15,-1,15,1},m=new int[u=240],w={48,50,40,7,3,36,80,84,40, 40,40,36,12,1,9,20,20,20,108,100,12,20,10,0,0,0};Canvas c=new Canvas(){{resize( u,u);}public void paint(Graphics g){for(i=-1;++i<8;g.fillPolygon(new Polygon(){ {for(v=0;j>0&v<6;addPoint((i%3<1?120-u:u)/11*24,u%11*24))u=w[(i%3)/2*5+i/3*10+v ++];}}))g.setColor(new Color(j=m[p+s[d]*(2-i/3)-s[d+1]*((i+2)%3-1)]<<23));}};{ for(p=32;i<u;)m[i]=i<30|i>194|(2+i++)%15<4?1:0;for(m[193]=2;j<25;)m[v=j/5*20+j* 2+48]=m[v+s[i=(int)(Math.random()*4)]]=m[v+s[i]*2]>0?++j/j:0;add(c);pack();show ();}public boolean keyDown(Event e,int k){k-=51;d=k>0&k<4?d+k&3:d;p=k==5&m[k=p+ s[d]]<1?k:p;c.repaint();return 1>0;}};}} >>687私にはこれ以上は無理でした。パラダイムシフトを期待して、あげ。 690 名前：561 mailto:sage [02/08/28 18:56] 縮んできましたね〜。 色んなテクニックがあって、ほんと参考になります。 >689 「パラダイムシフト」なんてレベルではありませんが、ちょっと短くなりました。 （M.java : 現在10行[9行+19文字]） import java.awt.*;class M{public static void main(String[]a){new Frame(){int d, u,i,j,p;int[]s={1,-15,-1,15,1},w={0,0,u=12,u,u,100,1,u,p=36,p,p,80,3,p,48},m= new int[u=240];Canvas c=new Canvas(){{resize(u,u);}public void paint(Graphics g ){for(i=9;--i>0;g.fillPolygon(new Polygon(){{for(j=j/2*6-1;++j<6;addPoint((i%3< 2?120-u:u)/11*24,(j<3?120-u:u)%11*24))u=w[(i%3+1)/2*3+i/3*6+(j<3?j:5-j)-3];}})) g.setColor(new Color((j=m[p+i/3*s[d]-((i+1)%3-1)*s[d+1]])<<23));}};{for(;i<165; )m[i+28]=i++%15<4?0:2;for(m[193]=1;j<25;p=32)m[p=j/5*20+j*2+48]=m[p+s[i=(int)( Math.random()*4)]]=m[p+s[i]*2]<2?++j*0:2;add(c);pack();show();}public boolean keyDown(Event e,int k){k-=51;p=k==5&m[k=p+s[d=k>0&k<4?d+k&3:d]]>1?k:p;c.repaint ();return 1>0;}};}} 通路=0,壁=1,扉=2だったのを、通路=2,壁=0,扉=1にしました。 迷路の初期化部分が短縮できたようです。 また、この結果「茶色の中を黒い部分を目指す」が「黒の中を茶色い部分を目指す」とな ります。 さらに、壁ポリゴンが一枚あたり5(+1)データだったのを、3データに減らしました。 ただ、このせいでaddPointの辺りがちょっと冗長ぎみに…。 691 名前：デフォルトの名無しさん mailto:sage [02/08/29 07:47] >>690　５文字だけだけど 配列sをwとまとめる（sはwで置き換え）。宣言も[]をまとめる。 int d,u,i,j,p,w[]={1,-15,-1,15,1,0,0,u=12,u,u,100,1,u,p=36,p,p,80,3,p,48},m[]=new int[u=240]; 壁描画部分で、もとwとのずれを修正。 u=w[(i%3+1)/2*3+i/3*6+(j<3?j:5-j)+2]; 692 名前：561 [02/08/29 19:16] 3D迷路、9行達成＆保守age。（M.java : 現在9行） import java.awt.*;class M{public static void main(String[]a){new Frame(){int d, u,i,j,p,w[]={1,-15,-1,15,1,0,0,u=12,u,u,100,1,u,p=36,p,p,80,3,p,48},m[]=new int [u=240];Canvas c=new Canvas(){{resize(u,u);}public void paint(Graphics g){for(i =9;--i>0;g.fillPolygon(new Polygon(){{for(j=j/2*6;j<6;addPoint((i%3<2?120-u:u)/ 11*24,(j++<3?120-u:u)%11*24))u=w[i*i%3*3+i/3*6+(j*j%5+8)/3];}}))g.setColor(new Color((j=m[p+i/3*w[d]-(-~i%3-1)*w[d+1]])<<23));}};{for(add(c);i<165;m[193]=1)m[ i+28]=i++%15<4?0:2;for(pack();j<25;p=32)m[p=j/5*20+j*2+48]=m[p+w[i=(int)(Math. random()*4)]]=m[p+w[i]*2]<2?++j*0:2;show();}public boolean keyDown(Event e,int k){k-=51;p=k==5&m[k=p+w[d=k>0&k<4?d+k&3:d]]>1?k:p;c.repaint();return 1>0;}};}} >691 どうもです。役立ちました〜。 あと、いくつか狡いテクニックを駆使しました(笑) ・n+1と-~nが等価であるため、"(i+1)%3"を"-~i%3"へ変更。 　単項演算子は優先順位が高いので括弧が不要になります。（せこ） ・n*n%3の数列が0,1,1,0,1,1,...になることを利用して、 　"(i%3+1)/2*3"を"i*i%3*3"に変更。 ・n*n%5の数列がn=0〜5では0,1,4,4,1,0になることを利用して、 　"(j<3?j:5-j)-2"を"(j*j%5+8)/3"に置き換え。 ソース見ても、何やってるのか分からない状態に…(^^;) 693 名前：デフォルトの名無しさん mailto:sage [02/08/29 20:59] >>692 アプレット版を作ってみました。クラス名変えてます。 appletviewerでは動いたけど、IE5.5だとだめでした。 -(-~i%3-1) って、 +(1-~i%3) でも良い？ import java.awt.*;public class N extends java.applet.Applet{int d,u,i,j,p,w[]={ 1,-15,-1,15,1,0,0,u=12,u,u,100,1,u,p=36,p,p,80,3,p,48},m[]=new int[u=240],x=120 ;public void paint(Graphics g){for(i=9;--i>0;g.fillPolygon(new Polygon(){{for(j =j/2*6;j<6;addPoint((i%3<2?x-u:u)/11*24,(j++<3?x-u:u)%11*24))u=w[i*i%3*3+i/3*6+ (j*j%5+8)/3];}}))g.setColor(new Color((j=m[p+i/3*w[d]+(1-~i%3)*w[d+1]])<<23));} {for(;i<165;m[193]=1)m[i+28]=i++%15<4?0:2;for(;j<25;p=32)m[p=j/5*20+j*2+48]=m[p +w[i=(int)(Math.random()*4)]]=m[p+w[i]*2]<2?++j*0:2;}public boolean keyDown( Event e,int k){k-=51;p=k==5&m[k=p+w[d=k>0&k<4?d+k&3:d]]>1?k:p;repaint();return 1>0;}} <HTML><BODY> <APPLET code="N.class" width="240" height="240"></APPLET> </BODY></HTML> 694 名前：693 mailto:sage [02/08/29 21:02] 言い忘れましたが、x=120 は穴埋めです。 695 名前：561 mailto:sage [02/08/30 00:28] >693 おっ、鋭いです〜。 ただ、"+(1-~i%3) "ではなくて"+(1+~i%3) "じゃないかな？ あと、 "w[i*i%3*3+i/3*6+(j*j%5+8)/3]"の部分は "w[~-i*2/3*3+(j*j%5+17)/3]"と短縮できることが判明しました。 # x=120は無いほうがいいような…。 696 名前：デフォルトの名無しさん mailto:sage [02/08/30 08:29] 最単純RLE（復号込） #include <stdio.h> /* encode:this.exe e in out / decode:this.exe d in out */ int i=1,p;main(int c,char*v[]){FILE*f=fopen(v[2],"rb"),*o=fopen(v[3],"wb");if( *v[1]=='e'){p=fgetc(f);while((c=fgetc(f))>=0){if(!c-!p&&i<255)i++;else{fwrite( &p,1,1,o);fwrite(&i,1,1,o);p=c;i=1;}}}else while((c=fgetc(f))>=0){if((p=fgetc( f))<0)break;for(i=0;i<p;i++)fwrite(&c,1,1,o);}} 697 名前：デフォルトの名無しさん mailto:sage [02/08/30 11:18] >>696 だからね。概出ものを持ってくるときはね、何か一工夫してほしいのね。 ２行で書くとかね、良いアイデア・工夫があるとかね、面白くなってるとかね。 pc3.2ch.net/test/read.cgi/tech/984182993/101 698 名前：デフォルトの名無しさん mailto:sage [02/08/30 11:44] >>695 ふと気が付いた、何でCanvas使っているんだろう？ というわけで、４０文字くらい減らせました。 import java.awt.*;class M{public static void main(String[]a){new Frame(){int d, u,i,j,p,w[]={1,-15,-1,15,1,0,0,u=12,u,u,100,1,u,p=36,p,p,80,3,p,48},m[]=new int [u=240];public void paint(Graphics g){for(i=9;--i>0;g.fillPolygon(new Polygon() {{for(j=j/2*6;j<6;addPoint((i%3<2?120-u:u)/11*24,(j++<3?120-u:u)%11*24))u=w[~-i *2/3*3+(j*j%5+17)/3];}}))g.setColor(new Color((j=m[p+i/3*w[d]+(~i%3+1)*w[d+1]]) <<23));}{for(resize(u,u);i<165;m[193]=1)m[i+28]=i++%15<4?0:2;for(;j<25;p=32)m[p =j/5*20+j*2+48]=m[p+w[i=(int)(Math.random()*4)]]=m[p+w[i]*2]<2?++j*0:2;show();} public boolean keyDown(Event e,int k){k-=51;p=k==5&m[k=p+w[d=k>0&k<4?d+k&3:d]]> 1?k:p;repaint();return 1>0;}};}} 699 名前：デフォルトの名無しさん mailto:sage [02/08/30 13:39] >>697 2行でおながいします。 700 名前：デフォルトの名無しさん mailto:sage [02/08/31 02:41] >697 指摘すべきはツッコミどころ満載のコードの方だと思うのだが 701 名前：デフォルトの名無しさん mailto:sage [02/08/31 04:08] >>696 プログラムのミスを修正した上で、標準入出力を使用。２行と２７文字。むぅ。 符号化は引数（何でも良い）を付け、復号は何も付けない。 int putchar(),i,p,(*o)()=putchar;main(int c){if(c<2)while(~(c=getchar()))for(i= getchar();i-->=0;)o(c);else{for(p=getchar();~(c=getchar());)i=c-p||i>254?o(p),o (i),p=c,0:i+1;o(p);o(i);}} 702 名前：デフォルトの名無しさん [02/08/31 05:12] >>701少し短くなた int putchar(),i,p,c,(*o)()=putchar;main(int v){for((v=v>1)?p=getchar():0;~(c= getchar());i=v&&c-p||i>254?o(p),o(i),p=c,0:i+1)if(!v)for(i=getchar();i-->=0;)o( c);v?o(p),o(i):0;} 703 名前：デフォルトの名無しさん [02/08/31 07:07] 奥村本よりフラクタル圧縮画像の表示 現在１０行 import java.awt.*;class F{public static void main(String[]a){new Frame(){double x,y,s,t;int N,M,i,j,k,r,z[]=new int[6],h[]=new int[M=150];double[]a={.05,.05, .46,.47,t=.42,t},b={0,0,-.32,-.15,.28,.26},c={0,0,.39,.17,-.25,-.35},d={.6,-.5, .38,t,.45,.31,0,1,.6,1.1,1,.7},p=new double[6];{resize(600,600);show();}public void paint(Graphics g){for(;i<6;s+=p[z[i]=i++])p[i]=Math.abs(a[i]*d[i]-b[i]*c[i ]);for(;j<6;z[k]=r){for(k=i=j;++i<6;)k=p[i]<p[k]?i:k;t=p[j];p[j]=p[k];p[k]=t;r= z[j];z[j++]=z[k];}r=M;for(i=0;i<6;s-=p[i++])for(k=(int)(r*p[i]/s+.5);k-->0;)h[ --r]=z[i];for(i=0;i<50000;i++){j=h[(int)(Math.random()*M)];g.setColor(new Color (1<<(r>1&N>1&k>1&j>1?15:23)));r=N;N=k;t=a[k=j]*x+b[j]*y;y=c[j]*x+d[j]*y+d[6+j]; x=t;if(i>9)g.drawRect(300+(int)(250*x),550-(int)(250*y),0,0);}}};}} 704 名前：703 mailto:sage [02/08/31 08:45] ソート部分いらないかった。再描画時のバグを修正。 ９行になりました。 import java.awt.*;class F{public static void main(String[]a){new Frame(){double x,y,s,t;int M=150,N=M,i,j,k,r,z[]=new int[156];double[]a={.05,.05,.46,.47,t=.42 ,t},b={0,0,-.32,-.15,.28,.26},c={0,0,.39,.17,-.25,-.35},d={.6,-.5,.38,t,.45,.31 ,0,1,.6,1.1,1,.7},p=new double[6];{for(resize(600,600);i<6;s+=p[z[i]=i++])p[i]= Math.abs(a[i]*d[i]-b[i]*c[i]);for(;j<6;s-=p[j++])for(k=(int)(N*p[j]/s+.5);k-->0 ;)z[--N+6]=z[j];show();}public void paint(Graphics g){for(i=0;i<50000;i++){j=z[ (int)(Math.random()*M)+6];g.setColor(new Color(1<<(r>1&N>1&k>1&j>1?15:23)));r=N ;N=k;t=a[k=j]*x+b[j]*y;y=c[j]*x+d[j]*y+d[6+j];x=t;g.drawRect(300+(int)(250*x), 550-(int)(250*y),0,0);}}};}} 705 名前：703 mailto:sage [02/08/31 10:31] かなり強引ですが、７行達成。 import java.awt.*;class F{public static void main(String[]a){new Frame(){int M, N,i,j,k,r,z[]=new int[k=600],w[]={7,6,74,55,64,55};double x,y,t,a[]={.05,.05,x= .46,x,t=.42,t,0,0,-.32,-.15,y=.26,y},c[]={0,0,.4,.17,-y,-.35,.6,-.5,.38,t,x,.31 ,0,1,.6,1.1,1,.7};public void paint(Graphics g){for(i=0;i++<M*M;g.drawRect(300+ (int)(280*x),550-(int)(250*y),0,0)){j=z[(int)(Math.random()*M)];g.setColor(new Color(1<<(r>1&N>1&k>1&j>1?15:23)));r=N;N=k;t=a[k=j]*x+a[6+j]*y;y=c[j]*x+c[6+j]* y+c[12+j];x=t;}}{for(resize(k,k);i<6;i++)for(;w[i]-->0;)z[M++]=i;show();}};}} 706 名前：デフォルトの名無しさん mailto:sage [02/08/31 23:05] コンパイル後のコードサイズが縮まらなきゃ意味ないんじゃないの。 何でこんなに夢中になる人がいるのか理解不能。 707 名前：デフォルトの名無しさん mailto:sage [02/08/31 23:20] >>706 俺はあんたが理解不能。tiny.objでも使ってろｳﾞｫｹ 708 名前：デフォルトの名無しさん mailto:sage [02/08/31 23:57] >>706 コンパイル概念の無い言語はどうすればいいんだ 709 名前：デフォルトの名無しさん mailto:sage [02/09/01 00:14] 最初からパズルみたいな、お遊びと思って楽しんでるんだよ。 そこそこ勉強にもなるし。 710 名前：デフォルトの名無しさん mailto:sage [02/09/01 00:33] >>709 トリッキープログラムに近いためか、プログラムの読解力がついた。 また反面教師にして、小難しいロジックを組まないようなプログラミングをするようになった。 711 名前：デフォルトの名無しさん [02/09/01 04:00] とりあえず、Javaが盛んそうなので、前スレのレイトレ１３行を縮めてみた pc3.2ch.net/test/read.cgi/tech/984182993/209 import java.awt.*;class R{public static void main(String[]a){new Frame(){double a,b,c,d,R;int x,y,w,z=255;{resize(z,z);show();}public void paint(Graphics g){ for(;y<z;y++)for(x=0;x<z;g.drawRect(x++,y+20,0,0))g.setColor(new Color(w=L(new V(x-128,y-128,100),new V(0,0,200)),w,w));}int L(V A,V B){a=A.c(A);b=A.c(B);c=B. c(B)-10000;R=(Math.sqrt(d=b*b-a*c)-b)/a;if(d>0){V N=new V(A.x*R,A.y*R,A.z*R);N. n();R=(N.x+N.y-N.z)/Math.sqrt(3);A.x-=B.x;A.y-=B.y;A.z-=B.z;a=-N.c(A);N.x=2*N.x *a+A.x;N.y=2*N.y*a+A.y;N.z=2*N.z*a+A.z;w=(int)(F(N)*R);return R>0?(w>0?w:(int)( R*z)):30;}return F(A);}int F(V A){a=A.x;b=10000-A.r;c=A.y==0?0:b/A.y;return c>0 ?((((a*c>0?a*c+b/2:-a*c)%b)>b/2)^(((A.z*c+200)%b)>b/2)?100:200):0;}};}}class V{ double x,y,z,r;V(double a,double b,double c){x=a;y=b;z=c;}V(V a){x=a.x;y=a.y;z= a.z;}double c(V s){return x*s.x+y*s.y+z*s.z;}void n(){r=Math.sqrt(x*x+y*y+z*z); x/=r;y/=r;z/=r;}} 712 名前：デフォルトの名無しさん [02/09/01 15:32] >>703 七オメ 713 名前：デフォルトの名無しさん mailto:sage [02/09/01 16:11] このスレすげえ。 ところで、ここにはってあるソースを public class hoge { ..... } みたいな風に簡単に戻す方法ないですか。 やっぱ手動ですか？ 714 名前：デフォルトの名無しさん mailto:sage [02/09/01 16:27] >713 >>3 の下のほう。C用だけど。 715 名前：713 mailto:sage [02/09/01 16:37] >>714 ありがとー 716 名前：デフォルトの名無しさん mailto:sage [02/09/01 18:37] >>713 展開しても10数行だから、漏れは手動でしてる。 Java用を>>713が作るってのはどうだね？ 717 名前：デフォルトの名無しさん mailto:sage [02/09/01 19:01] ;->;\r\nに変換すれば良いじゃん。 forとか例外部分は手で直す 718 名前：デフォルトの名無しさん mailto:sage [02/09/01 19:29] >>717 それを7行プログラムでするのに、意味があるんだろ 719 名前：デフォルトの名無しさん mailto:sage [02/09/01 22:14] 7行プログラムを展開する7行プログラムかｗ 720 名前：デフォルトの名無しさん mailto:sage [02/09/01 22:29] >>711>>705 グラフィックスが入ると、何だかすごいぞ、って感じがするね。 もちろん圧縮などもすごいんだけど、視覚に訴えるのは大きい。 721 名前：デフォルトの名無しさん mailto:sage [02/09/02 11:47] ７行プログラミング、やっても１週間で飽きそうだな。 住人のメンツかわんの早そうなスレだな｡ 722 名前：713 mailto:sage [02/09/02 14:42] >>716 現在このスレ見て勉強中なので いずれJavaを覚えたら作ってみます。Java用。 723 名前：デフォルトの名無しさん mailto:sage [02/09/02 21:57] 今>>722がいい事言った！ 724 名前：665 mailto:sage [02/09/02 22:22] 久々にSHA1を見直したらまだ削れる事に気付いた これで>665のlittle endian用もinclude以外が7行、と #つー訳で>668氏の7行標準入力版も更に短縮可能 #include <stdio.h> size_t*p,*q,H[186]={0x67452301,0xefcdab89,0,271733878,0xc3d2e1f0},n,d,z,l,h;L(c ){((char*)q=H+90)[3^n++]=c;if(n>63){for(n=80,p=memcpy(q-5,H,20);n;1[p--]=d<<30| d/4)d=q[13]^q[8]^q[2]^*q,q[16]=d+d|d>>31,d=p[1],z=p[2],c=p[3],p[-1]=(*p<<5|*p>> 27)+p[4]+0x5a827999+*q+++(--n/5&4?n>39?c^d&(z^c):882459459+(d&(z|c)|z&c):(n>39? 341275144:0x6fe0483d)+(d^z^c));for(;H-p--;)*p+=p[5];}}S(a){for(h=4;h--;)L(a>>h* 8);}main(a,v)char**v;{FILE*f=fopen(v[1],"rb");for(H[2]=~*H;~(a=getc(f));h+=!(l +=8))L(a);for(L(128);n-56;)L(0);for(S(h),S(l);n<5;)printf("%08x",H[n++]);} 725 名前：702 mailto:sage [02/09/03 00:34] RLEを縮めてみた。2行まで後8文字。 int putchar(),i,p,c,(*o)()=putchar;main(v){for(--v?p=getchar():0;~(c=getchar()) ;i=v&&c-p||i>254?o(p),o(i),p=c,0:i+1)if(!v)for(i=getchar();i-->=0;)o(c);v?o(p), o(i):0;} 726 名前：デフォルトの名無しさん mailto:sage [02/09/03 11:01] RLE 727 名前：702 mailto:sage [02/09/03 11:10] 途中カキコ失礼。RLE2行達成。 int i,p,c;f(x){putchar(x);}main(v){for(--v?p=getchar():0;~(c=getchar());i=v&&c- p||i>254?f(p),f(i),p=c,0:i+1)if(!v)for(i=getchar();~i--;)f(c);v?f(p),f(i):0;} 728 名前：デフォルトの名無しさん mailto:sage [02/09/03 20:25] 空ファイルを考慮すると↓の方が良いと思うのだが int c,p,i;f(x){putchar(x);}main(v){for(p=getchar(),--v;~(c=getchar());p=v?i=254 <i||p-c?f(p),f(i),0:i+1,c:getchar())for(;!v&&~c--;f(p));v*~p?f(p),f(i):0;} 729 名前：デフォルトの名無しさん [02/09/05 20:52] ファイルをアーカイブする。 exec filename1 filename2 ... で標準出力に吐き出す 引数なしなら標準出力から読み込んで展開 上のほうの圧縮を組み合わせて使うと吉。かも。 #include <stdio.h> char n[256];int main(int a,char**v){int(*g)()=getchar,i,c;FILE*f;size_t s;if(a- 1){printf("%d\n",a);for(i=1;i<a;i++){f=fopen(v[i],"rb");fseek(f,0,SEEK_END);s= ftell(f);printf("%s\n%u\n",v[i],s);fseek(f,0,SEEK_SET);while((c=fgetc(f))!=EOF) putchar(c);fclose(f);}}else{scanf("%d",&a);g();for(;--a;){gets(n);scanf("%d",&s );g();f=fopen(n,"wb");for(;s--;){fputc(g(),f);}fclose(f);}}return 0;} 730 名前：デフォルトの名無しさん mailto:sage [02/09/05 22:32] FreeBSDのdmesg|head -6を表示 本当はブートシーケンスでバーがくるくる回るところを表示したかったが、 プログラムが長くなっちゃってだめでした。 文章データは前スレのrangecoderをu=128で使用後、8x3=6ビットx4に変更後、+49している。 char t[]="Rm19aKD8`a:GGAa<?Hnn`lc94BhK<oYZa8VOOl=6Ifb1d]f\\`TQfMUiVfa[D`C7fEX?" "=ImOhIg?8AAlTpio4IeKYX9]h3Qh]2cbL1RF^]4]_?9PS8ThmObf:\\1`oih:YG9@c?7?MenXQiQa" "Q=3T`[K<L@T?>34l55Zjj2_dBpMF1npY;GH3@CojA3nYW3XZ8MH5H5\\Na1QV7Cg9jdJU\\@K;MjJ" ":IemMXN]\\9j3]YP78Wf31HU9TVhd58oi8An^AVECjm4LAI7iU:aPOPEB?iK:@_YY9=Recl`]nU<?" "MBU^PWhV[MkS8Pi]d__G<95Ll3pU3`l44l2h[d:794YSYCf]U_g]1^jBUbBO93`V=]",*s=t; unsigned*p,W,O=357,u=128,b=360,a[999],R=~0,x=256;f(){W=W*x|*p++;}main(K){for(p= a+u;*s;)*s++-=49;for(s=t;b>0;b-=4)*p++=s[0]*4|s[1]>>4,*p++=(s[1]<<4|s[2]/4)%x, *p++=(s[2]<<6|s[3])%x,s+=4;p=a+u;for(f(f(f(f())));O--;R*=a[b]){for(K=b=0;R<1<< 24;R*=x)f();for(R/=u++;W/R>=K;K+=a[b++]+1);W-=R*(K-++a[putchar(--b)]);}} 731 名前：デフォルトの名無しさん mailto:sage [02/09/05 22:42] >>729 7行スレでそんな丁寧なプログラムを書かなくても・・・ つーわけで、今縮め中です。 732 名前：731 mailto:sage [02/09/05 23:21] >>729 アーカイブのフォーマットを変更しちゃいました。 RLE(>>728)と組み合わせることで、圧縮書庫が7行でできそうですね。 # SEEK_END=2って規定されてましたっけ？ #include <stdio.h> char n[256];int i,c;main(int a,char**v){FILE*f,*o;if(a-1)for(putw(a,o=stdout); --a;)for(fseek(f=fopen(v[++i],"rb"),0,SEEK_END),puts(v[i]),putw(ftell(f),o), rewind(f);~(c=getc(f));)putchar(c);else for(a=getw(o=stdin);--a;)for(f=fopen( gets(n),"wb"),c=getw(o);c--;)putc(getchar(),f);} 733 名前：デフォルトの名無しさん mailto:sage [02/09/05 23:29] >>732 規定されてない。 そもそも、EOF=-1も規定されてないからどっちにしろ処理系依存 734 名前：デフォルトの名無しさん mailto:sage [02/09/05 23:35] >>733 EOF=-1をこのスレではいつの間にかデフォルトで使ってるよなぁ SEEK_???もデフォルトしちゃえ！ ついでにi=i++も！ 735 名前：デフォルトの名無しさん mailto:sage [02/09/05 23:56] >>734 knkタンだ! ((((;ﾟДﾟ)))) ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ 736 名前：デフォルトの名無しさん mailto:sage [02/09/06 12:53] >>732 SEEK_END=2の使用はデフォルトってことでいいのかな このくらいちぢまればRLE圧縮も組み込めるかな ちぢめすぎてかえって組み込めなくなる罠かもしれない #include <stdio.h> char n[256];int i,c,b;main(a,v)char**v;{FILE*f,*o;b=a-1;for(b?putw(a,o=stdout): (a=getw(o=stdin));--a;){f=fopen(b?v[++i]:gets(n),b?"rb":"wb");for(b?fseek(f,0,2 ),puts(v[i]),putw(ftell(f),o),rewind(f),0:(i=getw(o));b?~(c=getc(f)):i--;)putc( b?c:getc(o),b?o:f);}} 737 名前：デフォルトの名無しさん mailto:sage [02/09/06 20:29] SEEK_END=2はPOSIXで規定されてたりしなかったっけ どっちにしろこのスレでは縮むならある程度の処理系依存は 容認の方針だと思うけど 738 名前：デフォルトの名無しさん mailto:sage [02/09/06 22:44] gccとbcc32で、EOF と SEEK_* が同じだったから、 まぁ、このスレで議論する分には困らないと思われ。 perlだとSEEK_*と0,1,2のどちらを使っても一致することが明記されてるんだけど。 739 名前：デフォルトの名無しさん mailto:sage [02/09/06 23:49] >>736 + >>728 の6行書庫 #まだ100文字程あるから前スレRLEでも7行いけるかな？ #include <stdio.h> FILE*f,*o;char n[256];int i,c,b,p,q;r(){return b?getc(f):i<=0?-1:getc(o);}w(x){ putc(x,b?o:f);}main(a,v)char**v;{for(!(b=a-1)?a=getw(o=stdin):putw(a,o=stdout); --a;b*~p?w(p),w(q):0)for(f=fopen(b?v[++i]:gets(n),b?"rb":"wb"),b?fseek(f,q=0,2) ,puts(v[i]),putw(ftell(f),o),rewind(f),0:(i=getw(o)),p=r();~(c=r());p=b?q=q>254 ||p-c?w(p),w(q),0:q+1,c:r())for(b||(i+=~c);!b&&~c--;)w(p);} 740 名前：736 mailto:sage [02/09/06 23:55] >>739 6行ですか、素晴らしい 741 名前：デフォルトの名無しさん mailto:sage [02/09/07 02:52] >>736 + 前スレ101版RLE の7行書庫 fcloseを入れたので多い日も安心 #include <stdio.h> FILE*f,*o;char n[256];int i,c,b,p,q;r(){return b?getc(f):i<=0?-1:getc(o);}w(x){ putc(x,b?o:f);}main(a,v)char**v;{for(!(b=a-1)?a=getw(o=stdin):putw(a,o=stdout); --a;b*q?w(p),w(q):0,fclose(f))for(f=fopen(b?v[++i]:gets(n),b?"rb":"wb"),b?fseek (f,q=0,2),puts(v[i]),putw(ftell(f),o),rewind(f),0:(i=getw(o)),p=-1;~(c=r());p=b ?q=p-c||q>254?q?w(p),w(q):0,w(c),0:q+1,c:c-p?c:r())for(b||(q=c-p?~p?0:-1:r(),i +=~q);!b&&~q--;)w(p);} 742 名前：729 mailto:sage [02/09/07 06:24] tarみたいな感じでアーカイブができれば良いかなと思って書いたんですが、 圧縮までして7行ですか！恐れ入りましたすばらしいです。 743 名前：デフォルトの名無しさん mailto:sage [02/09/07 12:59] 画像ファイルとか音楽ファイルだと逆にでかくなるだけだが 744 名前：デフォルトの名無しさん mailto:sage [02/09/07 15:14] >>743 使えるのはBMPファイルとか、AAとかだね。 圧縮＋書庫化するだけ、ならばrangecoderでもできるだろうけどね。 745 名前：デフォルトの名無しさん mailto:sage [02/09/07 15:16] !b&&~q-- って b||~q-- にできるんちゃう？いまさらやけど。 746 名前：デフォルトの名無しさん mailto:sage [02/09/07 18:56] ちょっとした暇つぶしに、ゲームなぞ。 何かキーを押すとスタート、ストップ、リスタート。 動く丸を四角の中で止めてください。赤くなれば成功！ import java.awt.*;class S{public static void main(String[]a){new Frame(){int u= 2,p,t,s,c;void L(){u=p=0;t=1;s=(int)(Math.random()*8+2);c=150/s+19;}{resize(350 ,200);show();try{for(;;Thread.sleep(s)){p=p+t;if(p>300)u=2;if(u==1)if(--c<1){t= 0;u=2;}for(repaint();u>1;);}}catch(Exception e){}}public void paint(Graphics g) {g.setColor(t<1&p>249&p<281?Color.RED:Color.BLACK);g.drawOval(p,75,50,50);g. drawRect(250,60,80,80);}public boolean keyDown(Event e,int y){u=u<1?1:u;if(u>1) L();return 1>0;}};}} 747 名前：デフォルトの名無しさん mailto:sage [02/09/07 21:03] >745 b||~q--だとb!=0の時に無限ループする 748 名前：デフォルトの名無しさん mailto:sage [02/09/09 16:20] ネタ募集上げ 749 名前：デフォルトの名無しさん [02/09/09 17:11] 750 名前：デフォルトの名無しさん mailto:sage [02/09/11 20:50] 適応型Huffman 但し毎回木を更新するので滅茶苦茶重い(w 圧縮 int*a[258],n[2060],o[257],*r,*p,*q,c,f,i,j,k;Q(int**a,int**b){return**b-**a;}W( a,b){for(;b--;++i>7?putchar(f),i=f=0:0)f+=f+(a>>b)%2;}S(s){for(r=n,j=k;j++<258; r+=4)*r?a[k++]=r:0;for(;--k;r+=4){qsort(a,k+1,4,Q);a[k-1][1]=a[k][1]=r-n;*r=*a[ k-1]+*a[k];r[2]=a[k-1]-n;r[3]=a[k]-n;a[k-1]=r;}for(r=n+s;r-*a;r=q)o[k++]=r-n!=2 [q=n+r[1]];for(;k;)W(o[--k],1);}main(){for(*n=n[4]=1;~c;S(*p?p-n:0),(*p)++||W(c ,8))p=n+(c=getchar())*4+8;W(0,7);} 展開 int*a[258],n[2060],o[257],*r,*p,*q,c,f,i,j,k;Q(int**a,int**b){return**b-**a;}R( a){for(c=0;a--;c+=c+(f>>--i)%2)f=!i?i=8,getchar():f;return c;}L(){for(r=n,j=k;j ++<258;r+=4)*r?a[k++]=r:0;for(;--k;r+=4){qsort(a,k+1,4,Q);a[k-1][1]=a[k][1]=r-n ;*r=*a[k-1]+*a[k];r[2]=a[k-1]-n;r[3]=a[k]-n;a[k-1]=r;}for(r=*a;r[2]|r[3];r=n+r[ 2+R(1)]);r-n||(r=n+R(8)*4+8);(*r)++;~(c=(r-n)/4-2)&&putchar(c);}main(){for(*n=n [4]=1;~c;)L();} 751 名前：デフォルトの名無しさん [02/09/12 18:42] レスがついてなくて寂しそうだ。あげてあげよう。 752 名前：デフォルトの名無しさん mailto:sage [02/09/12 19:58] >>750の圧縮・展開を纏めて7行化 何か引数があれば圧縮、なしで展開 int*a[258],n[2060],*r,*p,*q,c,f,i,k;Q(int**a,int**b){return**b-**a;}W(a,b){for( ;b--;++i>7?putchar(f),i=f=0:0)f+=f+(a>>b)%2;}R(a){for(c=0;a--;c+=(f>>--i)%2+c)f =!i?i=8,getchar():f;}S(int*r){r-*a?S(n+r[1]),W(r-n!=n[r[1]+2],1):0;}L(){for(r=* a;r[2]|r[3];r=n+r[2+c])R(1);}main(v){for(--v,*n=n[4]=1;~c;v?S(*(p=n+(c=getchar( ))*4+8)?p:n),(*p)++||W(c,8):(L(),r-n||(R(8),r=n+c*4+8),(*r)++,~(c=(r-n)/4-2)&& putchar(c))){for(r=n;r-n<1032;r+=4)*r?a[k++]=r:0;for(;--k;p=a[k-1],q=a[k],p[1]= q[1]=r-n,*r=*p+*q,r[2]=p-n,r[3]=q-n,a[k-1]=r,r+=4)qsort(a,k+1,4,Q);}v&&W(0,7);} 753 名前：デフォルトの名無しさん [02/09/12 20:23] すげーなあ 754 名前：デフォルトの名無しさん mailto:sage [02/09/12 20:26] このforなげえぇぇぇぇなあぁぁぁぁ。 755 名前：デフォルトの名無しさん [02/09/13 14:01] うわーん。某あれで九州の某へ逝っていたら、ネタが来ただけじゃなく、終わってたよ。 すばらしい！ あげちゃえ。 756 名前：デフォルトの名無しさん [02/09/14 14:39] ファイラってできるかな？ 757 名前：デフォルトの名無しさん mailto:sage [02/09/14 14:41] 俺主催囲碁プログラミングコンテスト スレより、１３行囲碁 pc3.2ch.net/test/read.cgi/tech/1024024666/136- おいお前ら、これを7行に縮めてください。 #include <stdio.h> int w[4]={1,-1,12,-12},s,d,h[3],b[132];r(int a, int c){int z,i;b[a]|=8;s++;for (i=0;i<4;i++){z=a+w[i];if(b[z]==0)d++;if(b[z]==c)r(z,c);}b[a]&=3;}v(int a,int c){int z,i;b[a]=0;for(i=0;i<4;i++){z=a+w[i];if(b[z]==c)v(z,c);}}int t(int u){ int m,e,g,z,i,k;m=e=0;for(z=0;z<132;z++){k=g=0;if(b[z])continue;for(i=0;i<4;i++ ){if(b[z+w[i]]==u){d=s=0;r(z+w[i],1);k+=(d==1)*s*300+(d==2)*s*300+(d==3)*s*20; }if(b[z+w[i]]==0)k+=10;else g++;}if(g==4)continue;if(k>m){m=k;e=z;}}return e;} char *p="・○● \n";int main(){int c=1,u=2,z,x,y,i;for(i=0;i<132;i++){if((i+1 )%12==0)b[i]=4;else if(i%12==0||i<12||(i+2)%12==0||i>120)b[i]=3;}for(;;){for(i =0;i<132;i++)printf("%.2s",&p[b[i]*2]);if(c==1){scanf("%d %d",&x,&y);z=y*12+x; if(b[z]){printf("Err\n");continue;}}else{if((z=t(u))==0){printf("ps\n");break; }}b[z]=c;for(i=0;i<4;i++){if(b[z+w[i]]==u){d=s=0;r(z+w[i],u);if(d==0){h[c]+=s; v(z+w[i],u);}}}d=0;r(z,c);if(d==0)break;u=c;c=3-c;}return 0;} 758 名前：デフォルトの名無しさん [02/09/14 14:46] >>756>>757 ネタ来たーーーーーーあげ でも囲碁はちょっと見ただけでも無駄が多い、10行くらいにはすぐなりそう 759 名前：オマケ月 mailto:sage [02/09/14 16:08] #include <stdio.h> main(){printf("ファイア\nファイラ\nファイが！");} 760 名前：デフォルトの名無しさん mailto:sage [02/09/14 16:09] >>759 やってくれたね... 761 名前：758 mailto:sage [02/09/14 19:08] >>757 ちょっとだけ縮めてみた。十分7行になりそうだ。 int w[4]={1,-1,12,-12},s,d,h[3],b[132],c=1,u=2,x,y,i;r(a,c,f){int z,i;f?b[a]=0: (b[a]|=8,s++);for(i=4;i--;b[z]==c&&r(z,c,f))d+=!b[z=a+w[i]];!f?b[a]&=3:0;}t(u){ int m,e,g,z,i,k;for(m=e=z=0;z<132;z++)if(k=g=0,!b[z]){for(i=4;i--;b[y]?g++:(k+= 10))if(b[y=z+w[i]]==u)d=s=0,r(y,1,0),k+=(d==1)*s*300+(d==2)*s*300+(d==3)*s*20; if(g!=4)k>m?m=k,e=z:0;}return e;}char*p="・○● \n";main(z){for(i=132;i--;i%12 ==11?b[i]=4:0)if(i%12==0||i<12||(i+2)%12==0||i>120)b[i]=3;for(;;){if(c==1){for( i=10;i<119;)printf("%.2s",&p[b[i++]*2]);scanf("%d %d",&x,&y);if(b[z=y*12+x]){ puts("Err");continue;}}else if(!(z=t(u))){puts("ps");break;}b[z]=c;for(i=4;i--; d=0)if(b[x=z+w[i]]==u)if(d=s=0,r(x,u,0),!d)h[c]+=s,r(x,u,1);r(z,c,0);if(!d) break;u=c;c=3-c;}} 762 名前：758 mailto:sage [02/09/14 23:48] >>761 現在９行。ゲーム性の向上を目指し、 終了時にアゲハマを表示し、余分な改行を消しました。 int w[]={1,-1,12,-12},s,d=1,h[3],b[132],c=1,u=2,y,i=132,m,g,e,k;r(a,c,f,z,i){b[ a]=!f?s++,b[a]|8:0;for(i=4;i--;b[z]==c&&r(z,c,f))d+=!b[z=a+w[i]];!f?b[a]&=3:0;} main(z){for(;i--;i%12==11?b[i]=4:0)i%12==0||i<12||i%12==10||i>120?b[i]=3:0;for( ;d;){if(c==1){for(i=10;i<120;)printf("%.2s",&("・○● \n"[b[i++]*2]));if(scanf ("%d %d",&k,&y),b[z=y*12+k]&&puts("Err"))continue;}else{for(m=e=z=0;e<132;e++) if(k=g=0,!b[e]){for(i=4;i--;b[y]?g++:(k+=10))b[y=e+w[i]]==u?r(y,1,d=s=0),k+=((( d==1)+(d==2))*15+(d==3))*s*20:0;g!=4&&k>m?m=k,z=e:0;}if(!z&&puts("ps"))break;}b [z]=c;for(i=4;i--;)b[k=z+w[i]]==u?r(k,u,d=s=0),!d?h[c]+=s,r(k,u,1):0:0;r(z,u=c, d=0);c=3-c;}printf("%d,%d\n",h[1],h[2]);} 763 名前：デフォルトの名無しさん mailto:sage [02/09/15 00:34] 4行目のスペースが纏められちゃったので修正 ;d;){if(c==1){for(i=10;i<120;)printf("%.2s",&("・○●  \n"[b[i++]*2]));if(scanf 764 名前：デフォルトの名無しさん mailto:sage [02/09/15 01:34] >763 cはu^3で代用、それに伴いc==1→u-1等に変更 ((d==1)+(d==2))→(d-1U<2) i<12||略||i>120→i-12U>108||略 for(i=10;i<120;略&("・○●　\n"[b[i++]*2)→for(i=9;i++<119;略"・○●　\n"+b[i]*2 765 名前：囲碁スレ136 mailto:sage [02/09/15 07:04] >>762 やるねぇ・・・。そうやって圧縮するのか。 再帰関数も1つになってるし。 しかしここからはつらそう。 766 名前：デフォルトの名無しさん mailto:sage [02/09/15 14:37] >>759 printfって最後、\nしないと問題が出る環境なかった？ うろおぼえだけど 767 名前：デフォルトの名無しさん mailto:sage [02/09/15 14:39] >>762 最初の盤作成部分 for(;i--;b[i]=z-11?z&&z-10&&i-12U<109?0:3:4)z=i%12; 768 名前：デフォルトの名無しさん mailto:sage [02/09/15 18:48] 囲碁8行（あと62-63文字） int w[]={1,-1,12,-12},s,d=1,h[3],b[132],u=2,y,i=132,m,g,e,k;r(a,c,f,z,i){b[a]=! f?s++,b[a]|8:0;for(i=4;i--;b[z]-c||r(z,c,f))d+=!b[z=a+w[i]];!f?b[a]&=3:0;}main( z){for(;i--;b[i]=z-11?z&&z-10&&i-12U<109?0:3:4)z=i%12;for(;d;){for(i=9;i++<119; )printf("%.2s",&("・○●  \n"[b[i]*2]));for(m=z=0;i--;g!=4&&k>m?m=k,z=i:0)for(k =g=0,e=4*!b[i];e--;!b[y]?k+=10:g++)b[y=i+w[e]]==u?r(y,1,d=s=0),k+=((d-1U<2)*15+ (d==3))*s*20:0;if(u>1&&(scanf("%d %d",&k,&y),b[z=y*12+k]&&puts("Err")));else{if (!z&&puts("ps"))break;for(i=4;i--;b[z]=u^3)b[k=z+w[i]]==u?r(k,u,d=s=0),!d?h[u] +=s,r(k,u,1):0:0;r(z,u^=3,d=0);}}printf("%d,%d\n",h[2],h[1]);} 769 名前：デフォルトの名無しさん mailto:sage [02/09/15 19:12] printf("%.2s",&("・○● \n"[b[i]*2])); ↓ printf("・\0○\0●\0 \0\n"+b[i]*3); ３文字か… 770 名前：デフォルトの名無しさん mailto:sage [02/09/15 19:25] 関数r内 b[a]=f?0:~b[a];s++; for(i=4;i--;b[z]-c||r(z,c,f))d+=!b[z=a+w[i]]; b[a]^=!f*~0; ３文字？ 771 名前：758 mailto:sage [02/09/15 21:20] 後34文字になりますた。 int w[]={1,-1,12,-12},s,d=1,h[3],b[132],u=2,y,i,m,g,e,k;r(a,c,f,z,i){b[a]=f?0:~ b[a];s++;for(i=4;i--;b[z]-c||r(z,c,f))d+=!b[z=a+w[i]];b[a]^=!f*~0;}main(z){for( ;d;){for(;i++<132;printf("・\0○\0●\0 \0\n"+(b[i]=z-11?z&&z-10&&i-12U<109?b[i ]:3:4)*3))z=i%12;for(m=z=0;i--;g!=4&&k>m?m=k,z=i:0)for(k=g=0,e=4*!b[i];e--;!b[y ]?k+=10:g++)b[y=i+w[e]]==u?r(y,1,d=s=0),k+=((d-1U<2)*15+(d==3))*s*20:0;if(u<2|| !(scanf("%d%d",&k,&y),b[z=y*12+k]&&puts("Err"))){if(!z&&puts("ps"))break;for(i= 4;i--;b[z]=u^3)b[k=z+w[i]]==u?r(k,u,d=s=0),!d?h[u]+=s,r(k,u,1):0:0;r(z,u^=3,d=0 );}}printf("%d,%d\n",h[2],h[1]);} 772 名前：囲碁スレ136 mailto:sage [02/09/15 21:47] お前ら・・・すごいです（ｗ もはや暗号だな。 773 名前：デフォルトの名無しさん mailto:sage [02/09/16 00:14] 円周率を求める７行ってないの？もちろんエンドレスで。 774 名前：デフォルトの名無しさん mailto:sage [02/09/16 01:59] >>773が作ってみるということでどうだっ！ 775 名前：デフォルトの名無しさん mailto:sage [02/09/16 10:29] エンドレスって正しい値を永遠にはきだし続けるって事か？ 多倍長クラスとページングマネージャも書けと。 無理臭い 776 名前：デフォルトの名無しさん mailto:sage [02/09/16 20:15] >>775 メモリさえあれば、数百万桁計算する程度なら7行でもできそうだ。 挑戦してみようかなぁ。 777 名前：デフォルトの名無しさん mailto:sage [02/09/16 20:52] 標準出力に１０進数を一桁ずつ吐くだけだから 多倍長クラスはいらないのでは。 しかしアルゴリズムが分からない罠。 ttp://www.pluto.ai.kyutech.ac.jp/plt/matumoto/pi_small/_pi_small.html たくさんあってどれが７行向きなのやら。 778 名前：デフォルトの名無しさん mailto:sage [02/09/16 22:37] >>777 １桁ずつ計算する物じゃないぞ 779 名前：デフォルトの名無しさん [02/09/16 22:57] >>778 一桁ずつできるけどね。やるかどうかは別として。 780 名前：デフォルトの名無しさん mailto:sage [02/09/17 01:26] 以下のコードをバイナリエディタで書いて prg.com で保存後 実行 B0 13 CD 10 C4 2F AA 11 F8 64 13 06 6C 04 EB F6 781 名前：デフォルトの名無しさん mailto:sage [02/09/17 04:39] >>780 メガデモスレから持ってこないで下さい。(w farb-rausch.de/prod.html 782 名前：デフォルトの名無しさん mailto:sage [02/09/17 15:39] >>780 これ何？ 783 名前：デフォルトの名無しさん mailto:sage [02/09/17 19:41] >780の実効ファイル版ISHにしてみた。 <<< A.COM for MS-DOS ( use shift_jis ish ) [ 8 lines ] >>> !!!&!!9Q!5"XRo"O"I->!C$oR6nt!&"HDm=NH,!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!JF;v !!!&!!9Q!5"XRo"O"I->!C$oR6nt!&"HDm=NH,!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!JF;v !!!&!!9Q!5"XRo"O"I->!C$oR6nt!&"HDm=NH,!"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!JF;v %x/｡｣;掲僕ｳFﾘ策ﾙ｣\EB機@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@q繆 ｡ﾂ0拆M3鐇Aｪ物ｫﾐ^2ﾝﾛCm@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UR｢ ｣\VG･ｭｯ､{ｬﾅ^･ﾖH*j8Le+ﾌ｢ﾜVe､錦ﾗ;ｻﾇ,Kﾔ省竿58h3Q筰ﾐ隹峻Sｽﾖｱﾍﾆﾞ妹4\覬ﾚﾒﾉﾚｳh岻屁搶ﾜ --- A.COM (8/8) --- 784 名前：デフォルトの名無しさん [02/09/17 20:25] >>780 だれかこの動作をマジレスしてください。 メガデモスレと言われても、あまりこの板にはこないから。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef