七行プログラミング part5

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

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

456:デフォルトの名無しさん
 07/07/05 18:49:59 
>>455は>>443=444並のあわてんぼさん。

457:デフォルトの名無しさん
 07/07/06 00:18:02 
>>414のランレングス解凍、3行になったぞ。 
#include<stdio.h> 
d(FILE*q){int r,c;if(!q)return 6;while((r=fgetc(q))+1)for(c=fgetc(q);putchar 
(c),--r;);fclose(q);return 0;}main(int c,char**a){return d(fopen(a[1],"rb"));}

458:デフォルトの名無しさん
 07/07/06 00:59:33 
#include <stdio.h> 
main(c,a)char**a;{int r;FILE*q=fopen(a[1],"rb");if(!q)return 6;while((r=getc(q) 
)-EOF)for(c=getc(q);putchar(c),--r;);fclose(q);return 0;} 
 
dをインライン展開してみた。

459:デフォルトの名無しさん
 07/07/06 01:01:58 
言い出しっぺの>>438です。 
EUCとSHIFT_JISならそれなりに処理してくれたようなのでアップします。 
第一引数のファイルのコメントを除去して、標準出力に出力します。 
 
ただし、SHIFT_JISで半角カナがあるとダメなのですが、 
どうやって判別すればいいかが分かっていないので、ちょっと悩んでおります。 
 
#include <stdio.h>              /* uncomment.c */ 
e,m,t;main(c,v)char**v;{FILE*f=fopen(v[1],"r");for(;(c=fgetc(f))+1;m>2?m%=5: 
putchar(c))e?e--:(m=c-10?c-39?c-34?c-47?c-42?c<128?c-92?m:m>2?m:e++,m:e++,m: 
m-3?m:(t=fgetc(f),t-47?ungetc(t,f),m:5):m?m:(t=fgetc(f),t-47?t-42?ungetc(t,f 
),m:3:4):m&5?m:!m*2:m>1?m:!m:m%4);return fclose(f),0;}

次ページ