七行プログラミング part2

七行プログラミング p ..

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:デフォルトの名無しさん
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
02/08/29 21:02
言い忘れましたが、x=120 は穴埋めです。

695:561
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:デフォルトの名無しさん
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:デフォルトの名無しさん
02/08/30 11:18
>>696
だからね。概出ものを持ってくるときはね、何か一工夫してほしいのね。
２行で書くとかね、良いアイデア・工夫があるとかね、面白くなってるとかね。
ｽﾚﾘﾝｸ(tech板:101番)

698:デフォルトの名無しさん
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:デフォルトの名無しさん
02/08/30 13:39
>>697
2行でおながいします。

700:デフォルトの名無しさん
02/08/31 02:41
>697
指摘すべきはツッコミどころ満載のコードの方だと思うのだが

701:デフォルトの名無しさん
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
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
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:デフォルトの名無しさん
02/08/31 23:05
コンパイル後のコードサイズが縮まらなきゃ意味ないんじゃないの。
何でこんなに夢中になる人がいるのか理解不能。

707:デフォルトの名無しさん
02/08/31 23:20
>>706
俺はあんたが理解不能。tiny.objでも使ってろｳﾞｫｹ

708:デフォルトの名無しさん
02/08/31 23:57
>>706
コンパイル概念の無い言語はどうすればいいんだ

709:デフォルトの名無しさん
02/09/01 00:14
最初からパズルみたいな、お遊びと思って楽しんでるんだよ。
そこそこ勉強にもなるし。

710:デフォルトの名無しさん
02/09/01 00:33
>>709
トリッキープログラムに近いためか、プログラムの読解力がついた。
また反面教師にして、小難しいロジックを組まないようなプログラミングをするようになった。

711:デフォルトの名無しさん
02/09/01 04:00
とりあえず、Javaが盛んそうなので、前スレのレイトレ１３行を縮めてみた
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
02/09/01 16:11
このスレすげえ。
ところで、ここにはってあるソースを
public class hoge {
.....
}
みたいな風に簡単に戻す方法ないですか。
やっぱ手動ですか？

714:デフォルトの名無しさん
02/09/01 16:27
>713
>>3 の下のほう。C用だけど。

715:713
02/09/01 16:37
>>714
ありがとー

716:デフォルトの名無しさん
02/09/01 18:37
>>713
展開しても10数行だから、漏れは手動でしてる。
Java用を>>713が作るってのはどうだね？

717:デフォルトの名無しさん
02/09/01 19:01
;->;\r\nに変換すれば良いじゃん。
forとか例外部分は手で直す

718:デフォルトの名無しさん
02/09/01 19:29
>>717
それを7行プログラムでするのに、意味があるんだろ

719:デフォルトの名無しさん
02/09/01 22:14
7行プログラムを展開する7行プログラムかｗ

720:デフォルトの名無しさん
02/09/01 22:29
>>711 >>705
グラフィックスが入ると、何だかすごいぞ、って感じがするね。
もちろん圧縮などもすごいんだけど、視覚に訴えるのは大きい。

721:デフォルトの名無しさん
02/09/02 11:47
７行プログラミング、やっても１週間で飽きそうだな。
住人のメンツかわんの早そうなスレだな｡

722:713
02/09/02 14:42
>>716
現在このスレ見て勉強中なので
いずれJavaを覚えたら作ってみます。Java用。

723:デフォルトの名無しさん
02/09/02 21:57
今>>722がいい事言った！

724:665
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
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:デフォルトの名無しさん
02/09/03 11:01
RLE

727:702
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:デフォルトの名無しさん
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:デフォルトの名無しさん
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:デフォルトの名無しさん
02/09/05 22:42
>>729
7行スレでそんな丁寧なプログラムを書かなくても・・・
つーわけで、今縮め中です。

732:731
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:デフォルトの名無しさん
02/09/05 23:29
>>732
規定されてない。
そもそも、EOF=-1も規定されてないからどっちにしろ処理系依存

734:デフォルトの名無しさん
02/09/05 23:35
>>733
EOF=-1をこのスレではいつの間にかデフォルトで使ってるよなぁ
SEEK_???もデフォルトしちゃえ！
ついでにi=i++も！

735:デフォルトの名無しさん
02/09/05 23:56
>>734　knkタンだ!　((((;ﾟДﾟ))))　ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ

736:デフォルトの名無しさん
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:デフォルトの名無しさん
02/09/06 20:29
SEEK_END=2はPOSIXで規定されてたりしなかったっけ
どっちにしろこのスレでは縮むならある程度の処理系依存は
容認の方針だと思うけど

738:デフォルトの名無しさん
02/09/06 22:44
gccとbcc32で、EOF と SEEK_* が同じだったから、
まぁ、このスレで議論する分には困らないと思われ。

perlだとSEEK_*と0,1,2のどちらを使っても一致することが明記されてるんだけど。

739:デフォルトの名無しさん
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
02/09/06 23:55
>>739
6行ですか、素晴らしい

741:デフォルトの名無しさん
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
02/09/07 06:24
tarみたいな感じでアーカイブができれば良いかなと思って書いたんですが、
圧縮までして7行ですか！恐れ入りましたすばらしいです。

743:デフォルトの名無しさん
02/09/07 12:59
画像ファイルとか音楽ファイルだと逆にでかくなるだけだが

744:デフォルトの名無しさん
02/09/07 15:14
>>743 使えるのはBMPファイルとか、AAとかだね。
圧縮＋書庫化するだけ、ならばrangecoderでもできるだろうけどね。

745:デフォルトの名無しさん
02/09/07 15:16
!b&&~q-- って b||~q-- にできるんちゃう？いまさらやけど。

746:デフォルトの名無しさん
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:デフォルトの名無しさん
02/09/07 21:03
>745
b||~q--だとb!=0の時に無限ループする

748:デフォルトの名無しさん
02/09/09 16:20
ネタ募集上げ

749:デフォルトの名無しさん
02/09/09 17:11

750:デフォルトの名無しさん
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:デフォルトの名無しさん
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:デフォルトの名無しさん
02/09/12 20:26
このforなげえぇぇぇぇなあぁぁぁぁ。

755:デフォルトの名無しさん
02/09/13 14:01
うわーん。某あれで九州の某へ逝っていたら、ネタが来ただけじゃなく、終わってたよ。
すばらしい！あげちゃえ。

756:デフォルトの名無しさん
02/09/14 14:39
ファイラってできるかな？

757:デフォルトの名無しさん
02/09/14 14:41
俺主催囲碁プログラミングコンテストスレより、１３行囲碁
ｽﾚﾘﾝｸ(tech板: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:オマケ月
02/09/14 16:08
#include <stdio.h>
main(){printf("ファイア\nファイラ\nファイが！");}

760:デフォルトの名無しさん
02/09/14 16:09
>>759
やってくれたね...

761:758
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
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:デフォルトの名無しさん
02/09/15 00:34
4行目のスペースが纏められちゃったので修正
;d;){if(c==1){for(i=10;i<120;)printf("%.2s",&("・○●　　\n"[b[i++]*2]));if(scanf

764:デフォルトの名無しさん
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
02/09/15 07:04
>>762
やるねぇ・・・。そうやって圧縮するのか。
再帰関数も1つになってるし。
しかしここからはつらそう。

766:デフォルトの名無しさん
02/09/15 14:37
>>759
printfって最後、\nしないと問題が出る環境なかった？
うろおぼえだけど

767:デフォルトの名無しさん
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:デフォルトの名無しさん
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:デフォルトの名無しさん
02/09/15 19:12
printf("%.2s",&("・○● \n"[b[i]*2]));
↓
printf("・\0○\0●\0 \0\n"+b[i]*3);
３文字か…

770:デフォルトの名無しさん
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
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
02/09/15 21:47
お前ら・・・すごいです（ｗ
もはや暗号だな。

773:デフォルトの名無しさん
02/09/16 00:14
円周率を求める７行ってないの？もちろんエンドレスで。

774:デフォルトの名無しさん
02/09/16 01:59
>>773が作ってみるということでどうだっ！

775:デフォルトの名無しさん
02/09/16 10:29
エンドレスって正しい値を永遠にはきだし続けるって事か？
多倍長クラスとページングマネージャも書けと。
無理臭い

776:デフォルトの名無しさん
02/09/16 20:15
>>775
メモリさえあれば、数百万桁計算する程度なら7行でもできそうだ。
挑戦してみようかなぁ。

777:デフォルトの名無しさん
02/09/16 20:52
標準出力に１０進数を一桁ずつ吐くだけだから
多倍長クラスはいらないのでは。
しかしアルゴリズムが分からない罠。
URLﾘﾝｸ(www.pluto.ai.kyutech.ac.jp)
たくさんあってどれが７行向きなのやら。

778:デフォルトの名無しさん
02/09/16 22:37
>>777
１桁ずつ計算する物じゃないぞ

779:デフォルトの名無しさん
02/09/16 22:57
>>778
一桁ずつできるけどね。やるかどうかは別として。

780:デフォルトの名無しさん
02/09/17 01:26
以下のコードをバイナリエディタで書いて prg.com で保存後実行

B0 13 CD 10 C4 2F AA 11 F8 64 13 06 6C 04 EB F6

781:デフォルトの名無しさん
02/09/17 04:39
>>780
メガデモスレから持ってこないで下さい。(w
URLﾘﾝｸ(farb-rausch.de)

782:デフォルトの名無しさん
02/09/17 15:39
>>780
これ何？

783:デフォルトの名無しさん
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
だれかこの動作をマジレスしてください。

メガデモスレと言われても、あまりこの板にはこないから。

785:デフォルトの名無しさん
02/09/17 20:30
>>784
自分でやればわかるよ

786:デフォルトの名無しさん
02/09/17 20:31
>>785
いや、なんか怖い…。

format cよりも怖いです。

787:デフォルトの名無しさん
02/09/17 20:40
>>786
URLﾘﾝｸ(www.google.co.jp)
目がちかちかする。

788:デフォルトの名無しさん
02/09/17 21:32
>>787
噂の「ポケモンフラッシュ」みたいなやつですか？
グロよりも苦手なんでよかった。

789:デフォルトの名無しさん
02/09/17 21:35
>>788
見てみりゃわかる。無害。

790:デフォルトの名無しさん
02/09/17 21:50
<age>

791:bloom
02/09/17 21:59

URLﾘﾝｸ(www.leverage.jp)

792:デフォルトの名無しさん
02/09/17 22:21
>>789
ちょっと面白かった。
でもわずかにチカチカするのでちょっとだめかもｗ

フルスクリーンのせいでアプリをひとつ間違って閉じたのに気づかなかったぞｺﾞﾙｧ

793:デフォルトの名無しさん
02/09/17 22:32
つーか、Cなり何なりで、上のバイナリコードを吐き出すようにすれば、
もっと簡単に試したのではなかろうか。
main(){char data[]={...};fwrite(data,1,sizeof(data),stdout);}
みたく。

794:デフォルトの名無しさん
02/09/17 23:42
>>789
Win2k飛ばされますた
>>793
16バイトで出来てることに意味があるのでせう
逆アセンブルリスト見て嘆息

795:デフォルトの名無しさん
02/09/18 16:11
コードをアセンブラで書いて、インストラクションコードを
>>793みたいに文字列として埋め込むのはありでしょうか？
typedef int(*f)();
((f)"....")(); //呼び出し

796:デフォルトの名無しさん
02/09/18 19:40
>>795
良いと思うけど、普通は逆にオブジェクトコードが増えると思うよ

797:デフォルトの名無しさん
02/09/18 19:40
オブジェクトコード埋め込みの方が…ですね、スマソ

798:トリッキーの１
02/09/18 21:29
ご無沙汰してました。相変わらず皆さん凄いですね。勉強になります。
近いところでは囲碁面白いですね。でも囲碁のルールが解らないので残念です。
>>771
半角スペース２個は全角１個にしないと、貼り付けるときに消えてしまいますよ
それと、「3,3:4,4:2,4:2,5:2,6:2,8」と入力すると相手の石の上に自分の石が来るけれど、
これは囲碁のルールで正しいんですか？

799:デフォルトの名無しさん
02/09/18 22:39
LZW系の展開・圧縮
使い方は>>752と同じ

同じ辞書を使い続ける6行版
int*Q,N[16384],S,T,U,V,F,G,P,C,X,Z;p(a,b){for(;b--;++S>7?putchar(T),S=T=0:0)T=T
+T|a>>b&1;}g(a){for(G=0;a--;G=G+G|V>>--U&1)!U?U=8,V=getchar():0;}a(){F<1<<12?1[
Q=N+F*4]=X,Q[2]=C,Q[3]=N[C*4],*Q=0,N[C*4]=F++:0;}r(x){p((x>256?r(N[x*4+2]),N[x*
4+1]:(X=x))-1,8);}main(c){for(G=F=257;G--;)1[Q=N+G*4]=G;for(--c?g(8),C=V+1:0;g(
c?8:12),c?C:~V;C=c?!Z?p(C,12),a(),X:Z:(G=X,r(Z<F?Z:C),Z<F||p(G-1,8),P++&&a(),Z)
)for(Z=c?X=V+1,N[C*4]:G;c*Z&&1[Q=N+Z*4]-X;Z=Q[3]);p(0,7);}

辞書が一杯になると再構築する7行版
int*Q,N[16384],S,T,U,V,F,G,P,C,X,Z;i(){for(G=F=257;G--;*Q=Q[2]=Q[3]=0)1[Q=N+G*4
]=G;}p(a,b){for(;b--;++S>7?putchar(T),S=T=0:0)T=T+T|a>>b&1;}g(a){for(G=0;a--;G=
G+G|V>>--U&1)!U?U=8,V=getchar():0;}a(){F<1<<12?1[Q=N+F*4]=X,Q[2]=C,Q[3]=N[C*4],
*Q=0,N[C*4]=F++:i();}r(x){p((x>256?r(N[x*4+2]),N[x*4+1]:(X=x))-1,8);}main(c){i(
);for(--c?g(8),C=V+1:0;g(c?8:12),c?C:~V;C=c?!Z?p(C,12),a(),X:Z:(G=X,r(Z<F?Z:C),
Z<F||p(G-1,8),P++&&a(),Z))for(Z=c?X=V+1,N[C*4]:G;c*Z&&1[Q=N+Z*4]-X;Z=Q[3]);p(0,
7);}

800:デフォルトの名無しさん
02/09/18 22:54
>>773
ほらよ。多少の誤差には眼をつぶれや。

#include <stdio.h> // printf()
#include <stdlib.h> // rand()
int main(){
printf( "3.1415926535897932384626433832795" ) ;
for (;;) printf( "%d",rand() ) ;
return 0 ;
}

801:デフォルトの名無しさん
02/09/18 22:55
後はランダムかよ

802:デフォルトの名無しさん
02/09/18 23:08
お題：素数列挙

803:デフォルトの名無しさん
02/09/18 23:09
p2pの七行があったらすごいよね。なんて言って見るテスト

804:>>802
02/09/18 23:15
printf(char*,...);main(){int z,i=1;for(;z=i++;z?0:printf("%d,",i))while(i%z--);}

１文字オーバーなのは秘密だ。

805:デフォルトの名無しさん
02/09/18 23:24
>>802
外出だったりする

806:デフォルトの名無しさん
02/09/18 23:32
>>805
>>74 >>81やね

807:デフォルトの名無しさん
02/09/18 23:37
>>804
１文字縮めてみますた
printf(char*,...);main(){int z,i=1;for(;z=i++;z||printf("%d,",i))while(i%z--);}

808:804
02/09/18 23:53
おぉ、さんきゅー！
そうか、|| か。なんかPerlっぽい。

809:デフォルトの名無しさん
02/09/19 01:06
>>807
gcc -ansi -pedantic だとprintf(char*,...)は通らず。
ANSI C forbids data definition with no type or storage class
printf()を削除すれば通るので、そっちの方がよい？

１文字縮めてみた。
printf(char*,...);main(z){int i=1;for(;z=i++;z||printf("%d,",i))while(i%z--);}

810:デフォルトの名無しさん
02/09/19 01:14
これではだめですかね。引き数なしで実行が条件ですが。
main(i,z){for(;z=i++;z||printf("%d,",i))while(i%z--);}

811:デフォルトの名無しさん
02/09/19 01:22
>>810
bcc32でも動きますね。しかもgccよりも速かった。

812:デフォルトの名無しさん
02/09/19 01:29
コンパイラを選ぶのはどうかと思う

813:デフォルトの名無しさん
02/09/19 02:00
>>810 Solaris cc, GNU gcc, Borland bcc32 でコンパイル・実行できますた。
>>807 上記すべてのコンパイラでprintfの宣言がおかしいといわれますた。
>>812 短くするためならコンパイラどころかアーキテクチャすら選択するのが最近の風潮らしいです。

814:デフォルトの名無しさん
02/09/19 02:04
>>803
p2pの何だ？

815:デフォルトの名無しさん
02/09/19 03:47
囲碁、申し訳ないんだが、
コンパイルして実行したら、
1の列を指定すると落ちるんだけど。
(ex:1,5)
バグ？

816:デフォルトの名無しさん
02/09/19 04:06
>>798 >>815
囲碁、cygwin+gccやSolaris+ccでは正常らしい動作してますね
bcc32だと動作は正常のようでも、表示がおかしくなりますね
ANSI準拠っぽいソースだけど、どっかしらコンパイラ依存があるんでしょうね
>>771さんはいないようだし、ここはひとつトリッキーの１氏のご助力を！

817:デフォルトの名無しさん
02/09/19 08:15
プロトタイプ宣言無しで printf 使うのって好かんのだけどどうよ。
…っと言っても>>810、VC++.NETでもdmc++でも通るな。

int printf(char*,...); ... にすれば>>809行けるね。

818:817
02/09/19 08:16
あーでも、宣言省略すれば int printf( ... ); 扱いになるんだっけ。Cって。
それならOKか。

819:デフォルトの名無しさん
02/09/19 17:45
>>810
＞main(i,z)
Cって引数の型を省略するとintになるってこと？

820:デフォルトの名無しさん
02/09/19 20:40
円周率は

#include <stdio.h>
main(){printf("3.14159265358979323846264338327950288419716939937510582097494");
/* 以下略 */
}

よりも桁が多いことを願います。

とりあえず、職人さんに

(~~~ﾟ∀~~)~~ﾟﾒﾀﾞﾏﾎﾞｰﾝ

821:デフォルトの名無しさん
02/09/19 20:43
#include <stdio.h>
main()
{
char* url = "URLﾘﾝｸ(www.prokofiev.ru)";
system(url);
return 0;
}

822:デフォルトの名無しさん
02/09/19 23:29
>>814
不特定多数なWinMXみたいな奴でなくて、
相手を登録して交換するスタイル。Grooveとかがそんな感じかなぁ。
七行でできたらビックリだけどね。CUIでそういうの聞いたことないし。

823:デフォルトの名無しさん
02/09/20 00:48
それもP2Pかもしれないけど、
P2P=ファイル交換じゃないぞ

824:デフォルトの名無しさん
02/09/20 04:32
なんにせよ、もしできたら凄く便利だと思う

825:デフォルトの名無しさん
02/09/20 04:57
便利って・・・・・・別に７行でも覚えられるわけで無し・・・・・・
ぱっと思いつく最小のメディアであるFDに収まる1.44MBに入れば何だって同じ気が。
面白いけどね。

826:デフォルトの名無しさん
02/09/20 08:53
今更ながら>>800にﾜﾗﾀ

827:トリッキーの１
02/09/20 15:54
円周率です。意外と七行は簡単でした。オイラーの公式使ってますので収束遅いです。

#include <stdio.h>
#define s ( 5000 /*←希望する桁数*/ /4+2)
int main(){int i,n,c,t,j,l,a[]={4,9},r[s][4]={0,0,8,12},k=10000;for(n=0;n<s*15
;n++)for(i=0;i<2;i++){for(c=t=j=0;j<s;r[j++][i]+=((n&1)*-2+1)*l/(2*n+1))t=(l=k
*t+r[j][i+2])%a[i],c=(l=k*c+(r[j][i+2]=l/a[i]))%(2*n+1);for(t=0,j--;j+1;r[j--]
[i]%=k)t=(r[j][i]+=k+t)/k-1;}for(i=s-(t=1);i+1;*r[i--]%=k)t=(*r[i]=k+*r[i]+r[i
][1]+t)/k-1;printf("%d.",**r);for(i=1;i<s-1;printf("%04d",*r[i++]));return 0;}

828:トリッキーの１
02/09/20 15:56
こうやってみるとまだまだ短くなりそうですね。桁数固定にすれば後一行は軽そうです。

829:デフォルトの名無しさん
02/09/20 20:47
復活直後にでかいのを持ってきましたね。実質５行だし。相変わらず凄い。

７行にするのって、１字１字縮める技術ももちろんあるけれど、
組む前にデータ構造とアルゴリズムをなるべく文字数を減らすことを念頭に
構想する才能が必要だと思うが、それは知識と知恵の両方を要求するよね。
色々なネタで７行達成している常連の職人さんたちはかなりハイレベルだと思った。

830:デフォルトの名無しさん
02/09/20 20:54
有名人が出てくるたびにﾖｲｼｮするこの雰囲気、
どうにかならんもんかねぇ。
名無しで新しいアイデア出てきても「たいしたことない」と言ってのけるのに。

831:デフォルトの名無しさん
02/09/20 20:55
本人がageてないのに他人がageるのも正直ウザい

832:デフォルトの名無しさん
02/09/20 21:04
ただのひがみかもしれないがマジレス。
有名人をよいしょしているわけではなく、
優れたプログラムを書く人をほめているのでは？

833:デフォルトの名無しさん
02/09/20 21:05
>>799
UNISYSに通報しますた

834:デフォルトの名無しさん
02/09/20 21:29
はいはい、そこ雰囲気悪くしない！
作品いっぱい出るのはいいことだし、批評はその作者の次に繋がるので良し！
でも830、無意味な煽りは入れない！
次のネタいきましょう、次。

835:デフォルトの名無しさん
02/09/20 22:24
次のネタ候補
・FORTH や C, LISP, BASICなどのプログラミング言語のサブセット
・囲碁
・>>533の前スレの未達成もののうち、このスレでも未達成のもの

特に言語ものは20行以下になったらとりあえず見せて欲しいなぁ。
サブセット言語で作った7行プログラムとか出てきたりして:-P

836:デフォルトの名無しさん
02/09/21 00:50
7行でC/C++コンパイラ作ってくだちぃ。

837:デフォルトの名無しさん
02/09/21 01:03
>>836
四則演算と表示くらいならできるかもしれないが、難しいだろうね。
つーか、>>836よ、インタプリタで良いから作ってみないか？

838:デフォルトの名無しさん
02/09/21 01:23
>>837
＞四則演算と表示くらいなら...
マジで！？それともネタ？
冗談で言ったつもりなんだが…

＞インタプリタで良いから...
技術のない漏れには作れません...

839:デフォルトの名無しさん
02/09/21 02:32
VTL系のBASICはどうなのかな？
オリジナルは768バイトなんでしょ？

840:デフォルトの名無しさん
02/09/21 02:59
マンセーうぜー言われるかもしれないが、やっぱり>>827は（･∀･）ｲｲ!　

841:デフォルトの名無しさん
02/09/21 05:50
FORTHモドキ(逆ポーランド電卓か？)。オペレータは+-*/.のみ。

#include <stdio.h>
W[1000],*S=W,c,v;G(){c=getchar();}g(){v=0;do v=v*10+c-48;while((G(),c)-48<10U)
;return v;}main(){G();while(~c)c==45?G(),c-48>9U?v=*S--,*S-=v:(*++S=-g(),G()):
(c-48<10U?*++S=g():c==43?v=*S--,*S+=v:c==42?v=*S--,*S*=v:c==47?v=*S--,*S/=v:c-
46?c-32&&c-10&&printf("err\n"):printf("ok\n%d\n",*S--),G());}

842:デフォルトの名無しさん
02/09/21 10:04
既出ネタのチェックはしてから話題振ることにせんか？
　・四則演算 >>5

843:デフォルトの名無しさん
02/09/21 10:22
多倍長整数、さらには有理数演算に対応しろと言ってみる。

844:デフォルトの名無しさん
02/09/21 11:58
・何かをグラフィック
・非常に便利な関数を７行で作成
ｗ

845:デフォルトの名無しさん
02/09/21 14:51
>>842 ごめん、正直指摘間違いでは？、と始め思った。
つーか、>>841の勘違いですね。

四則演算はすでにあります。要求されたのは、
・FORTHのサブセット　　あるいは
・四則演算のみ可能な C/C++ ！！コンパイラ！！
ですよん。そして、
・多倍長整数、有理整数演算、浮動小数演算などに対応
が追加されますた。

846:79文字で問題を出してみる(w
02/09/21 15:02
問題:単なるクリックソートより早いqsort()互換のソート関数を79文字7行で記述せよ。

847:846
02/09/21 15:03
>846にパッチ当て。
---問題:単なるクリックソートより早いqsort()互換のソート関数を79文字7行で記述せよ。
+++問題:単なるクイックソートより早いqsort()互換のソート関数を79文字7行で記述せよ。

848:デフォルトの名無しさん
02/09/21 16:42
>>835
いいだしっぺの法則

849:デフォルトの名無しさん
02/09/21 17:22
将棋作れ！

850:デフォルトの名無しさん
02/09/21 17:47
┃激┃し..┃く..┃ず┃れ┃て┃鬱┃だ.┃が┃
┣━╋━╋━╋━╋━╋━╋━╋━╋━┫
┃こ.┃れ┃で┃12┃行┃な.┃ん┃だ┃YO┃
┣━╋━╋━╋━╋━╋━╋━╋━╋━┫
┃　 ┃　 ┃　 ┃　 ┃　 ┃　 ┃　 ┃　 ┃　 ┃
┣━╋━╋━╋━╋━╋━╋━╋━╋━┫
┃歩┃歩┃歩┃歩┃歩┃歩┃歩┃歩┃歩┃
┣━╋━╋━╋━╋━╋━╋━╋━╋━┫
┃　 ┃角┃　 ┃　 ┃　 ┃　 ┃　 ┃飛┃　 ┃
┣━╋━╋━╋━╋━╋━╋━╋━╋━┫
┃香┃桂┃銀┃金┃王┃金┃銀┃桂┃香┃
┗━┻━┻━┻━┻━┻━┻━┻━┻━┛

851:デフォルトの名無しさん
02/09/21 17:48
激しくはずれなくてうれしいｗ

852:デフォルトの名無しさん
02/09/21 17:49
敵の歩なんかはどうしたらいいのさ？

┃歩┃歩┃歩┃歩┃歩┃歩┃歩┃歩┃歩┃
┣∨╋∨╋∨╋∨╋∨╋∨╋∨╋∨╋∨┫
とか？

853:デフォルトの名無しさん
02/09/21 17:53
ニフで昔あった将棋は

|歩v|歩^|

で表現していたな

コンピュータの思考ルーチンが激しく難しそうだ

854:デフォルトの名無しさん
02/09/21 23:20
前のスレッドにあった自動インデントプログラムを機能拡張・７行版にしてみました。
使用方は
　program.exe(仮称) 入力ファイル名　出力ファイル名
です。

#include <stdio.h>
FILE *s,*o;I,c,d;G(){return c=getc(s);}P(){c-10&&putc(c,o);}R(){putc(10,o);}T(t
){while(t-->0)putc(9,o);}S(p){d=1;P();while(~G()&&(P(),c!=41||--d))c-p||++d;}Q(
p){P();while(~G()&&(P(),c!=p))if(c==92||_ismbblead(c))P(G());}main(a,v)char**v;
{s=fopen(v[1],"r");o=fopen(v[2],"w");while(~G())c==63||c==58?R(),T(I),P():c==34
||c==39?Q(c):c==40?S(c):c=='{'?R(),T(I),P(),R(),T(++I):c=='}'?fseek(o,-1,1),P()
,R(),T(--I):P(),c==59&&(R(),T(I));}

次ページ