Most Timely Output

もっともタイムリーな出力

Line wrap

Highlight

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <setjmp.h>
#include <time.h>

#define I ??(i??)??(j??)
#define K ??(i-1??)??(j??)
#define S strtok(NULL,",\n\0")
#define P printf(
#define NB_MSGS 42
#define C( f, m ) mNb = m;\
    s = setjmp( sT??( sI++ ??) );\
    if (!s) goto f;
#define bck longjmp( sT??( --sI ??), 0 );

jmp_buf sT??( 256 ??);
int m5??(84??),sI=0,c1='J'%2,mNb=0,s=0,mI=0,r=1;
unsigned long m1??(32??),q=0,z;
unsigned char m??( NB_MSGS ??)??( 11 ??);

int main( int argc, char *argv??(??) )
{
    time_t tmT = time( NULL );
    struct tm *tmS = localtime( &tmT );
    char tms??( 7 ??);
    int hr,n,i=1,j=0;
    FILE *info = NULL;
    char iS??( 2048 ??);

    if ( argc > 1 ) info = fopen( argv??(1??), "r" );
    strftime( tms, 7, "%H:%M\n", tmS );
    if ( info != NULL ) {
        fgets( iS, 2048, info );
        m5??( 0 ??) = atoi( strtok( iS, ",\0" ) );
        for ( hr = 1; hr < 85; hr++ ) m5??(hr??) = atoi(S);
        for ( hr = 0; hr < 32; hr++ ) 
            m1??( hr ??) = strtoul( S, NULL, 10 );
        for ( hr = 0; hr < NB_MSGS; hr++ ) 
            for ( n = 0; n < 11; n++ ) 
                m??(hr??)??(n??) = (unsigned char)atoi( S );
        fclose( info );
        hr = atoi( strtok( tms, ":\0" ) );
        n = atoi( strtok( NULL, ":\0" ) );
        C( mA, 0 )
        C( out, 40 )
        s = setjmp( sT??( sI++ ??) );
        if ( s ) {
            s = setjmp( sT??( sI++ ??) );
            if ( s ); else goto doHr;
        } else goto doMin;
    } else {
        P "%s", tms );
        goto eoj;
        doMin:
            z = 22;
            C( doIt, 0 )
            bck
        doHr:
            hr = ( n >= 36 ) ? hr+1 : hr;
            if ( hr == 24 ) hr=0;
            if (hr&&hr!=12)(hr<12)?(P "%d ",hr)):(P "%d ",hr-12));
            n = hr + 61;
            q = 0;
            r = 1;
            z = 16;
            C( doIt, 0 )
            P "\n" );
            bck
        doIt:
            if ( r & m1??( m5??(n??) ??) ) {
                if (z == 22) q = q << 1;
                C( out, q )
                if (z == 22) q = q >> 1;
            }
            r = r << 1;
            q++;
            if ( q < z ) goto doIt;
            bck
        out:
            mI = 0;
            mNb += c1;
            while ( m??( mNb ??)??( mI ??) ) 
                P "%c", m??( mNb ??)??( mI++ ??) );
            bck
        mA:
            129<=m I ? 137>=m I ? m K=m I-32
            : 145<=m I ? 153>=m I ? m K=m I-39
            : 162<=m I ? 169>=m I ? m K=m I -47
            : j : j : j : 125==m I ? m K=39
            : 64==m I ? m K=32 : j;
            j++;
            if (m I) goto mA;
            i+=2;
            j = 0;
            if ( i < NB_MSGS ) goto mA;
            bck
    }

    eoj: exit( 0 );

}

引用元：https://www.ioccc.org/2000/schneiderwent/schneiderwent.orig.c

審査員・作者による説明：https://www.ioccc.org/2000/schneiderwent/index.html

動作

時刻を英語でざっくり説明してくれる。

$ gcc -trigraphs -o schneiderwent schneiderwent.c

$ ./schneiderwent schneiderwent.data
it's just after ten 'til 6 in the evening

解説

いろいろと懐古主義的な要素が詰まったコードになっている。

メッセージの文字列はschneiderwent.dataに入っているが、文字コードがEBCDIC。
環境がEBCDICであるかASCIIであるかを判定して（'J'が奇数ならEBCDICらしい）、環境にあった文字コードで出力するとのこと。
trigraphの使用は審査員が嫌っているが、IBM 3270では対応する文字がないのでやむを得ない（EBCDICなので鍵カッコがなかったらしい）。
若い頃にCOBOLを覚えると冗長にしがちで、#defineはその影響みたいなことが書いてある（よくわからず）。

賞名は、[[2000/bellard]]と[[2000/thadgavin]]と対照的になっている。