七行プログラミング part2

七行プログラミング part2 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

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);}}};}}

次ページ