Latest comments for language 'C' on doukaku.org

こう。's comment on π

Wikipediaにあったarcsinのテーラー展開を利用してます。

整数だけで計算してみました。
またよくわからない計算になってしまいました。

#include <stdio.h>

/*
       ∞
    pi=Σ(3*(2n)!/(2^4n*(n!)^2*(2n+1)))
       n=0
*/
void put_pi(){
    unsigned long long pi=0;
    int n;

    unsigned long long factor=1;
    int f2_m=2;
    int f2_m_a=10;
    int pow2_4n=0;
    int p2f_a=1;
    int add2n_1=1;
    
    for(n=0;n<16;n++){
        pi+=(3*(1000000000000000000>>pow2_4n)*(factor)/add2n_1);
        factor=factor*f2_m/p2f_a;
        f2_m+=f2_m_a;
        f2_m_a+=8;
        pow2_4n+=4;
        add2n_1+=2;
        p2f_a+=add2n_1;
        
        printf("PI=%Ld\n",pi);
    }
}
int main(){
    put_pi();
}

[ C ] [ download code ] ]

こう。's comment on 数値リストの圧縮

数値リストの圧縮 (Nested Flatten)

リストは文字列渡し、結果も文字列返し
[]と,の表示がどっちかわからなかったので、[]が現れるときは,不要の方向で。

結果：
[1[3,6]12,13[15,25,5]26,27]
[1[3,9,3]14,19,20]

#include <stdio.h>
#include <stdlib.h>

int numlist_getnum(char **p){
    int retnum;
    
    retnum=strtol(*p,p,10);
    while(*(*p)==' ')(*p)++;
    if(*(*p)!=']')(*p)++;
    
    return retnum;
}

int numlist(char *pin,char *pout){
    int num1;
    int num2;
    int num3;
    int delta;
    int flag=0;
        
    while(*pin==' ') pin++;
    if (*pin++!='[') return -1;
    
    num1=numlist_getnum(&pin);

    do{
        if(flag!=2){
            num2=numlist_getnum(&pin);
        }

        delta=num2-num1;
        while(1){
            num3=numlist_getnum(&pin);
            if(num3!=num2+delta) break;
            num2=num3;
        }

        if(num2==num1+delta){
            pout+=sprintf(pout,"%c%d","[],"[flag],num1);

            num1=num2;
            num2=num3;

            flag=2;
        }else{
            pout+=sprintf(pout,"[%d,%d",num1,num2);
            if(delta!=1){
                pout+=sprintf(pout,",%d",delta);
            }
            num1=num3;
            
            flag=1;
        }
    }while(num1);
    
    sprintf(pout,"]");
    
    return 0;
}

int main(){
    char str[256];
    numlist("[1, 3, 4, 5, 6, 12, 13, 15, 20, 25, 26, 27]",str);
    printf("%s\n",str);
    numlist("[1,3,6,9,14,19,20]",str);
    printf("%s\n",str);
    return 0;
}

[ C ] [ download code ] ]

こう。's comment on 2^i * 3^j * 5^k なる整数

2^i * 3^j * 5^k なる整数 (Nested Flatten)

よく考えたら2で割るのにループはいりませんね。
i,j,kも省いてこんな感じかな。

#include <stdio.h>

int main(){
    int m,n,v;
    
    for(n=0,m=1;n<100;m++){
        v=m/(m&-m);
        while(v%3==0)v/=3;
        while(v%5==0)v/=5;
        if(v==1){
            printf("%d\n",m);
            n++;
        }
    }
    return 0;
}

[ C ] [ download code ] ]

こう。's comment on 2^i * 3^j * 5^k なる整数

2^i * 3^j * 5^k なる整数 (Nested Flatten)

何も考えずに。

#include <stdio.h>

int main(){
    int m=1;
    int n=0;
    int i,j,k;
    int v;
    
    do{
        v=m;
        i=0;
        j=0;
        k=0;
        while(v%2==0)v/=2,i++;
        while(v%3==0)v/=3,j++;
        while(v%5==0)v/=5,k++;
        if(v==1){
            printf("%d = 2^%d * 3^%d * 5^%d\n",m,i,j,k);
            n++;
        }
        m++;
    }while(n<100);
    return 0;
}

[ C ] [ download code ] ]

raynstard's comment on 起動オプションの解析

起動オプションの解析 (Nested Flatten)

とりあえず getopt()を利用したものです。
コンパイラによってはgetopt()が unistd.hにはいっているかもしれません。

僕はいつも起動情報を保持する構造体を作って保持しています。
has～()という関数作ってしまえばあんまり関係ないですけど。。
// gcc -Wall -std=c99 doukaku205.c

#include <stdbool.h>
#include <stdio.h>
#include <stdlib.h>
//#include <unistd.h>
#include <getopt.h>

#define OPTION_OUTPUT 'o'
#define OPTION_QUOTE  'q'
#define OPTION_DEBUG  'd'

static char options[] = { ':', 
                     OPTION_OUTPUT
                     , OPTION_QUOTE
                     , OPTION_DEBUG, ':'
                    , '\0' };

struct tagParamInfo
{
    bool output;
    bool quote;
    int  debug;
    int  num;
    char *argv0;
    char **argv;
} info = { false, false, 0, 0, NULL, NULL};

int main(int argc, char *argv[])
{
    int opt;

    /* デフォル値 設定 */

    /* オプション解析 */
    opterr = 0;
    while( (opt = getopt(argc, argv, options)) != EOF )
    {
        switch( opt )
        {
            case OPTION_OUTPUT:
                info.output = true;
                break;
            case OPTION_QUOTE:
                info.quote = true;
                break;
            case OPTION_DEBUG:
                info.debug = strtol(optarg, NULL,10);
                if( 0 <= info.debug && info.debug <= 2 )
                {
                    break;
                }
            case '?':
            case ':':
            default:
                printf("変なオプション[%c]\n", opt);
                printf("書式：cmdopt -o [-q] [-d{0|1|2}] 文字列 [文字列 ...]\n");
                return 1;
        }
    }

    /* パラメータ設定 */
    info.argv0 = argv[0];
    info.argv  = &argv[optind];
    info.num = argc - optind;
    if( info.num < 1 )
    {
        printf("文字列がない\n");
        printf("書式：cmdopt -o [-q] [-d{0|1|2}] 文字列 [文字列 ...]\n");
        return 1;
    }

    /* 解析結果の出力 */
    printf("[オプション情報]\n");
    printf("%-10s：%3s\n", "o(output)", ((info.output==true)?"ON":"OFF"));
    printf("%-10s：%3s\n", "q(quote)", ((info.quote==true)?"ON":"OFF"));
    printf("%-10s：%3d\n", "d(debug)", info.debug);
    printf("\n");
    printf("[パラメータ情報]\n");
    printf("%-10s：%3d\n", "指定数", info.num);
    for( int n=0; n<info.num; n++)
    {
        printf("%2d：%s\n", n, info.argv[n]);
    }
    return 0;
}

[ C ] [ download code ] ]

こう。's comment on 起動オプションの解析

起動オプションの解析 (Nested Flatten)

いつも使ってる解析ルーチンをベースにしてみました。

#include <stdio.h>

struct cmd_opt{
    int opt_o;
    int opt_q;
    int opt_d;
    int string_start;
    int string_num;
};


int cmdline(int argc,char* argv[],struct cmd_opt*o){
    char* p;
    int i=1;
    int opt_flag=0;
    
    //必ず-oと文字列が必要
    if(argc<3) return -1;
    
    o->opt_o=0;
    o->opt_q=0;
    o->opt_d=-1;
    o->string_start=0;
    o->string_num=0;
    
    p=argv[1];
    
    while(i<=argc){
        switch(*p){
        case '-':
        case '+':
        case '/':
            p++;
            opt_flag=1;
            break;
        default:
            break;
        }
        
        //オプション解析終了
        if(opt_flag==0){
            if(o->opt_o==0) return -1;
            if(o->opt_d==-1) return -1;
            o->string_start=i;
            o->string_num=argc-i;
            if(o->string_num==0) return -1;
            else return 0;
        }
        
        switch(*p){
        case 'o':
        case 'O':
            o->opt_o=1;
            break;

        case 'q':
        case 'Q':
            o->opt_q=1;
            break;

        case 'd':
        case 'D':
            p++;;
            if(*p==0){
                p=argv[++i];
            }
            if('0'>*p||*p>'2')
                return -1;
            o->opt_d=*p-'0';
            break;
        default:
            return -1;
            break;
        }
        p++;
        if(*p==0){
            p=argv[++i];
            opt_flag=0;
        }
    }
    return -1;
}

void put_usage(){
    printf("usage:cmdopt -o [-q] -d{0|1|2} 文字列 [文字列 ...]\n");
}

int main(int argc,char* argv[]){
    int ret;
    int i;
    
    struct cmd_opt o;
    
    ret=cmdline(argc,argv,&o);
    
    if(ret==-1){
        put_usage();
        return -1;
    }
    
    printf("[Option Info]\n");
    printf("o(output):%s\n",o.opt_o?"ON":"OFF");
    printf("q(output):%s\n",o.opt_q?"ON":"OFF");
    printf("d(output):%d\n",o.opt_d);
    
    printf("\n");
    printf("[Parameter Info]\n");
    printf("String Num:%d\n",o.string_num);
    for(i=1;i<=o.string_num;i++){
        printf("%d:%s\n",i,argv[i+o.string_start-1]);
    }
    return 0;
}

[ C ] [ download code ] ]

ckbx's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

記号入りでも文字化けしないようにしてみた。135bytes.

1 2	#include<stdio.h> main(int c,char*v){chars=++v;dos-=((!(s-v&&(s-1)-32))((s-97\|122-s)>0))<<5;while(++s);puts(*v);return 0;}

[ C ] [ download code ] ]

こう。's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

Cはまだなかったですね。
10進数値、基数の順に標準入力です。

改行、インデント抜いて112byte

b,c=1,main(a){
    for(scanf("%d,%d",&a,&b);a>=c;c*=b);
    for(;c;printf("%c",(c/=b)?a/c+(a/c<10?'0':'A'-10):'\n'))a%=c;
}

[ C ] [ download code ] ]

こう。's comment on LL Golf Hole 5 - 最上位の桁を数え上げる

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

gets用のバッファが必要なのでは？？
修正＋若干の縮め

1	b=1;c;main(a){for(scanf("%d",&a);a>=c;c+=b,b=c-b10?1:10){printf("%d\n",c);}}

[ C ] [ download code ] ]

匿名's comment on LL Golf Hole 5 - 最上位の桁を数え上げる

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

b=10;c;main(a){a=atoi(gets());while(a>=c){printf("%dn",c);c+=b/10;c>=b?b*=10:1;}}

1	というわけで修正してみました。大丈夫だと思いますが...。

[ C ] [ download code ] ]

匿名's comment on LL Golf Hole 5 - 最上位の桁を数え上げる

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

100バイト切れた。まだまだですがこんなところで。

b=10;c;main(a){a=atoi(gets());while(a>=b){printf("%d\n",c);c+=b/10;c>=b?b*=10:1;}printf("%d\n",a);}

$> cat num.txt
100
$> cat num.txt | ./a.out

[ C ] [ download code ] ]

raynstard's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

ネストしない形を投下～
sin()でいけるかと思ったら単位が小さすぎて形にならなかったので絶対値を利用しました。
ちなみに、「abs(n-i)」を「abs(n-(i%lines))」とすると
lines はどこまでも増やせます(笑
# 波打ちます

n==4固定で76B
一般化(n<17)すると99Bくらい
n;i;main(){char o[16];scanf("%d",&n);memset(o,'*',n);while(++i<n*2)printf("%.*s\n",n-abs(n-i),o);}

#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
        char *o = "****";
        int n=4,i=1;
        int lines = n * 2;
        while( i<lines )
        {
                printf("%.*s\n",n-abs(n-i),o);
                i++;
        }
        return 0;
}

[ C ] [ download code ] ]

こう。's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

一応、floatにすればというのは気づいてたんですが、さすがに連投しすぎかなと(^^;

100B切ったことですし、ガードも入れましょうか。
これで1024Y以上の場合でも動作します。

ぎりぎり99Byteですね。

ちなみに#7396のは
i;main(){float d;for(scanf("%f",&d);d>1023;i++)d/=1024;printf("%.1f%.1sB\n",d,"\0kMGTPE"+i);}
の93byteでよいはずです^^;

1	i;main(){float d;i=8;for(scanf("%f",&d);i&&d>1023;i--)d/=1024;printf("%.1f%c\n",d,"YZEPTGMk "[i]);}

[ C ] [ download code ] ]

こう。's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

あれ？いろいろ間違った。

ついでに見直したら79Byteになった。

#include <stdio.h>

void pira(int n){
    int i=n*2,m;
    while(m=--i<n?i:n*2-i)
        while(m+1)
            putchar(m--?'*':'\n');
}

//pira(int n){int i=n*2,m;while(m=--i<n?i:n*2-i)while(m+1)putchar(m--?'*':'\n');}

main(){
    pira(4);
}

[ C ] [ download code ] ]

こう。's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

引数で。
関数名含めて82Byte。

#include <stdio.h>

void pira(int n){
    int i=n*2-1,m=1;
    for(;i;m=--i<n?i:n*2-i)
        while(m+1)
            putchar(--m?'*':'\n');
}
/*
pira(int n){int i=n*2,m=1;for(;i;m=--i<n?i:n*2-i)for(;m+1;)putchar(m--?'*':'\n');}
*/
main(){
    pira(4);
}

[ C ] [ download code ] ]

raynstard's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

後続の#7358 では問題無くなっていますが
僕のロジックでは%cを利用してはいけません。
%cはバイナリ出力に使いので出力結果をバイナリで確認してみるとわかります。

echo '100' ./a.out | od -x

あとちなみに、こう。氏のロジックだと
iをデータセグメントに持って行ってデフォルトの型に期待しちゃうことで僕よりも短くなります。
といっても98Bなので似たようなものですけど。
文字列と扱うためのキャストが;;
# たぶん、C99です。

1	i;main(){float d;for(scanf("%f",&d);d>1023;i++)d/=1024;printf("%.1f%.1sB\n",d,&("\0kMGTPE"[i]));}

[ C ] [ download code ] ]

raynstard's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

よく考えてみたらどうせ1024でわってしまう上に小数第一位までしか表示しないので
倍精度で値を保持する必要ありませんでしたね。
指数にしてしまうので単精度で十分と思われ。

祝☆99B

多少お題と違うみたいですけど、とりあえず満足です(ぁ

ちなみに、内部が指数表記なので
30桁とかとんでもない桁数でも動きますが
もちろんオーババッファフローします^^;

main(){char*t="\0kMGTPE";float d;for(scanf("%f",&d);d>1023;t++)d/=1024;printf("%.1f%.1sB\n",d,t);}

#include <stdio.h>
int main(int argc, char *argc[])
{
        char*t="\0kMGTPE";
        float d;
        for(scanf("%f",&d);d>1023;t++)
        {
                d/=1024;
        }
        printf("%.1f%.1sB\n",d,t);
        return 0;
}

[ C ] [ download code ] ]

こう。's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

どうも仕様として微妙なんですが、1k未満のときは小数点は書かないのがいいんですよね。
あと、1024基準ではなく1000基準ですかね。

ってことで新しく作ってみました。133Byteかな？

main(){
    char*t="\0kMGTPEZY",b[99],*p=gets(b);
    for(while(*++p);p-b>3;p-=3)t++;
    *p=*t?p[2]=*p,*p++=0,'.':0;
    printf("%s%.2s%.1s\n",b,p,t);
}

[ C ] [ download code ] ]

こう。's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

少し改造しました。
同様に縮めると101byteですね
main(){int i=0;double d;for(scanf("%lf",&d);d>1023;i++)d/=1024;printf("%.1lf%cB\n",d,"\0kMGTPE"[i]);}

int main()
{
    int i=0;
    double d;
    for(scanf("%lf",&d);d>1023;i++)d/=1024;
    printf("%.1lf%cB\n",d,"\0kMGTPE??"[i]);
    return 0;
}

[ C ] [ download code ] ]

saitoh's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

うわっ。完全に問題を読み違えていた。恥ずかしい。だけでは何なので一応プログラムもつけます。全然短くないけど、こっちだとお題に沿ってるかな。サンプルプログラムは1024ではなくて10**3で割ってるようなのでそうしてみました。

#include <stdio.h>
#include <stdlib.h>

int
main(int argc , char *argv[])
{
        char * p="BKMGTPE";
        long long l;
        int r=0;
        l=strtoll(argv[1],NULL,10);
        for(;l>1000; r=l%1000, l/=1000, p++);
        printf("%ld.%02d%c\n",(int)l, r/10, *p);
}

[ C ] [ download code ] ]