Astronomically Obfuscated

天文学的難読化

Line wrap

Highlight

#		include				  <X11/Xlib.h>
#		include				    <math.h>
#		include				    <time.h>
#	      define W(f)			  f##Window(S,
#	      define  O ;			  break ; case
#	      define  _ *				s

        XID  w,r,l=45<<9,     d,v     =1,E;     GC V[2];	    typedef
       char  * K; Display     *S;   XGCValues   g; typedef        int Y; K j;
      double         *o,I    [99]   ,T=   0,t   ,_,   atof(     ); K	  X(K
     i){ for        (r=0  ; o=s-1  ,*i     ; i  ++       ) {   switch    (*i){
      struct        { K   Y; Y K,  t ;     XID  k ;      } Z;   K z=      j++;
     O  32L         :*o       *=_  --O     '}'  :*o      /=_    --O        73:
    *o += _        --O        61           :*o  -=_      --O   123
   :_=  sin        (_)       O 94         :_=   asin    (_)    O 47
  :_=   cos       (_)        O 45      : _=     fmod(_ ,2*     M_PI
  )O    076       :_=        sqrt      (_) O    33: t=*o;      *o=
  _;    _=t      O 48         :_=         cos   (_)     <0 O   86
 :j=    i O      43:          X(z           ="K I@I-"     )O   93:
 X(z ="/ =")O    60           : i  =++     r -  4 ?       j-1  :i O         79
 :XDrawArc(S,   d,V           [(Y  )_]     ,(Y  ) (       399   +14        _ [
        -2]     ),(           Y)(  *"'    "+14  _ [      -1])   ,2,2      ,0,l
        ) ;    { Z.           Y =   i -   127   +r/    3*2 ;     Z.K=    r%3+
        r/3    +1;            Z.t   =0; Z.k=E   ; XDrawText       (S,d,*V,(Y
        ) (    399            +14     *1[s-=     strlen(z)           ]),20,

		   &Z,1); } O 1:default:*i>90?I[*i-32]=_--:(*++s
			  =I[*i+(*i<73)*r]); } } } Y main
				  (Y G,K*A){ *A=

" 8<$ $li >d# -d8Z'Et#)wWP]WM C\\TI)#%!DcUAvz% H2&08M\\%YaHAW}4+%g ;|XN%W|l!_Kz+$UgBix41r=H7b@_:X 4zS   EFo1i}= _D.%biA xF>)k*T(7&m \"G~ )TY *.^@$0.#yl<  66,/dI ;\\[![:- $u6 VnD  X+ )TY-L38 :%\" )TY%8Z$ \"G|BfCb <Il8EC}  \"b  \037ST I{kT I-lT I!K ImT I!K =-`LQ { !L{ I[MQ { !M{ Ip@;P=I`L]!LQ ][M]!MQ ]lLL ;; IL;Q  @]>m@{;M} ^`K !T PIIIV[;I{ k;I/@{  K!=k;!={LM=M}  K!=jM!}T!=k@P=`+e+f+g+hK I-[K I-pEF=Q `FG=Q k@]aK]b;]cP]d@{ EIeK{ FIf;{ GIgP{ HIhVAE{ J{AE/  E0\117<";

    w = DefaultScreen (						       S =
      XOpenDisplay(0)); W(					     XMap
	 )d =W(XCreateSimple					   ) W(
	   Root )w),0,0,800,80					,0,0
	      ,BlackPixel(S,w )))			      ; g.
		foreground=WhitePixel			   (S,w
		  ); *(Y *) &g=6; for			 (; v
		    [V ]=XCreateGC( S,d		       ,4 +
		       v, &g),!--v; ); for	    ( E=
			 XLoadFont(S,"10x20"	 ),81
			   [I]=2; I[84]=(      G>2?
			     atof(2[A])     -2451545
			       :time	  (0 )/ 3.75
			     /l -	10957.5)+ (T+=G
			   > 1?	      atof(A[1]):0); ){ t
			=5e4		*6013; s=I; for(j=*A
		      ;_++		   =pow (t,(j[ 2]*'_'-
		    3028		     +3[j])/t)*pow(6e-4+
		 1,j[			       sizeof* X(++j) ]+95
	       **j-				 3072.)-1; )j+=4; s-=
	    2; W				    (XClear)d); XFillArc
	  (S,d					      ,*V,385,25,0x1c,28,
	0,l)						; X( j+4); XSync(S,
     0) ;						   usleep(10000); } }

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

審査員・作者による説明：https://github.com/ioccc-src/winner/blob/main/2000/rince.hint

動作

木星の4つのガリレオ衛星をプロットする。

$ gcc -o rince rince.c -lX11 -lm

$ ./rince

中央の大きな円が木星で、Iはイオ、IIはエウロパ、IIIはガニメデ、IVはカリスト。

第1引数はシミュレーション速度、第2引数はシミュレーションの起点時刻（ユリウス通日で指定）。次のように実行するとアニメーションする。

$ ./rince 0.0001 2441193.6

解説

コードの前提に「巨大な彗星が木星や地球の起動を変えないこと」「紀元前2000年問題（あんまり昔だと計算が不正確になる）」「火星から観測した結果とは違うのでポータブルではない」などと書いてあっておもしろい。

コード形状は”4713BC”と”X”。前者は天文学で使われるユリウス通日の起点の日（紀元前4713年1月1日）が由来。”X”はX Window Systemのロゴ。

賞名のAstronomicallyは「天文学的」という意味で、程度が大きいことの慣用表現とかけている。

次の3つは、ガリレオが衛星を発見した当時の様子とのこと。

1610年1月7日の夜に初めて観測し、木星を挟んで2つと1つの星を見つけた時の様子（IVには気づいてなかった？）。

$ make dmy2jd

$ ./rince 0 `./dmy2jd  7.8 1 1610`

翌日の夜に見たところ、予想に反してすべての星が東側に移動していた。

$ ./rince 0 `./dmy2jd  8.8 1 1610`

2日後の夜に見たところ、すべての星が西側に移動していた。これらの天体は太陽ではなく木星の周りを回っているのでは？ということで地動説に行き着いたとか。

$ ./rince 0 `./dmy2jd 10.8 1 1610`