Most unstable

もっとも不安定

Line wrap

Highlight

#include "SDL.h"
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define S(a,b) b*a
#define A int
#define N(a,b) b=a
#define D "sand.txt"

#define G(_) SDL_##_
#define GX(_) G(Create##_)
#define GY(_) G(Destroy##_)
#define GZ(_) G(Render##_)
#define GA(_) if(!(_)){pri\
ntf("L%d SDL Error: %s\n",_\
_LINE__,G(GetError)());exit(1);}
#define GB(__,_G,G_,GG) G_(__);_G(GG)

// important constants
int ONE = 1;
int ZRO = 0;

uint64_t V[]={
0x3e62f947d02f49bc,0xbed0bdb402d9ed0c,0x3f2acda5f517c6b6,0xbf79c2448bb7eca0,
0x3fc091746cc843a3,0xbffe1cce22ed8f8f,0x4033e22da447fb5b,0xc06352e2b9c91269,
0x408bacb717fa44db,0xc0aceee93bc74aae,0x40c59df977dbfd52,0xc0d639fd2e095789,
0x40dd7401cce0cb64,0xc0d63a270ab7d164,0x40bc52eb9bd102e2,0x3fe0000000000000};

#define L lL[L1
                              int Ll1(A i)
                     {N(0;,double Ll)for(
           A N(0; l<,l) 16; ) S(( double*
     ),S(i+,Ll= Ll))(V+l++);return Ll; }
   #define M(a,b);L+a]=(L+a]&2)|(LL/b&1)
   void _L(int* lL,A l,A L1){ A N( Ll1,
   LL )( ( L]==1)| 2*(L +1]== 1) |4 * (
   L+ l] != 0)|8 *(L +l+ 1]!= 0)) M(0,
  1) M(1,2)M(l,4)M(l+1,8);}N(0,A l1L);
  #define L_(l11,L1) for( N(( l11);,\
 l1)l1 < lll;l1 +=ll1)for( N(L1 ;ll<\
l1l-,ll)1; ll +=2)_L( Ll,l1l,l1+ll);
void JJ(A*Ll,A l1l,A l){A ll,l1,S((l
    -1),lll=l1l),N(2*,ll1)l1l;l1L^=
              1;L_(l1L?l1l:0,l1L)}
#define GU
#define GO                      1
#define G0                     >=0
#define G2 GZ                (er*)
#define G3 G(                Init)
#define G5 G(                Quit)
#define GV                   while
#define GC G(                QUIT)
#define GG G(               Delay)
#define GW G(               Event)
#define GE GZ              (Clear)
#define G1 G(              Window*)
#define GI GY             (Window)
#define G6 GX             (Window)
#define GF GZ            (Present)
#define G8 GX            (Renderer)
#define GH GY            (Renderer)
#define GN G(            PollEvent)
#define G4 G(           INIT_VIDEO)
#define G7 G(          WINDOW_SHOWN)
#define GD G(       SetRenderDrawColor)
A main(A ac,char**av){int P[4018]; memset(P,0,4018*
sizeof(A));S(j=fopen,FILE)(ac>1?av[1]:D,"r");if(j){
for(A F=0;F<4018; F++)P [F]=getc(j)-96;fclose(j) ;}

  G1 GL=0;G2     GM = 0;GA       (G3(G4       )G0 )atexit(
G5);            GA(       GL=    G6(     D,     ZRO,     ZRO,
800,            480,      G7))   GA(     GM=    G8(        GL,
  -1,0) )int    GK= GO+ (ONE=    ZRO     ++);   GW         GJ;
          GV(   GK){      GV(    GN(&    GJ)    GU!=       0){
          GK=   GJ.       type== GC?     ONE:   GK;}      GA(
GD(GM,0,0,0,    255)      G0);   GE(     GM);  G(Rect)Q;Q.w

=Q.h=10;JJ(P,82,49);A k=+0;while(k<81&&P[k])k++;P[k
]=l1L;for(A K=ZRO;K<49; K++){for(A O=1;O<81; O++){Q
.x=-(ZRO-O)*10;Q.y=(K-1)*10;A v=P[82*K+O];if(v==ZRO
)GD(GM,238,204,106,255); else if(v==ONE)GD(GM,0,0,0
,255); else GD(GM,143,149,157,255);GZ(FillRect)(GM,
&Q);}}GB(GM,GG,GF,40)GU;}GB(GM,GI,GH,GL);return 0;}

引用元：https://www.ioccc.org/2018/giles/prog.c

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

動作

砂が落ちるシミュレーション。SDL2利用。

$ gcc -o prog prog.c `sdl2-config --cflags --libs`

$ ./prog

解説

砂の動きはセルオートマトンで実現とのこと。遷移テーブルをそのままコードに埋め込むのではなく、多項式の形でもたせた。その係数はdouble型のIEEE754表現をuint64_t型にキャストして16進数でV[]の配列に持たせている。

コード形状は、バケツに入った砂を落としているところと、“SAND"という文字。シンプルにまとまった作品で良い。