Best Encapsulation

最高のカプセル化

Line wrap

Highlight

char r[]="C#S3K+[;G'W7OB/_? ? « ( !IOCCC! ´ ³Ën £0 0 e÷|ÅtÑ%Ä ° 2u"
" »¾ß mÔ/p ª c p) nm «¨ªúïµ!!¶â¡a £À3sîÜ 9sz2{ +§ 9_°0 © h0 ºÂ / "
"¤)$1 ¬ a~ ) % y qÃ'¯ ¹â ° \" ! q 6 µy' 0 3;e{ Ì kãÔs¾,Ê 2~a q t"
" 9dl 9 ¬.´ .ù_ &Á!ê '* · ; ·± µÁ = <eàª1à B:29 ¦ 6 n´ o®¨b:_2"
" µ +úí h |÷t\177°#d`Ý l½Ù r )þÁ @ ·´Ö m d©iÃ ¤6 e¦ v¸½^ ¶` rq"
"Á <'7Ã÷°ÅÙ ´[|äÈ=ñ@îp (², /ä^ c ¦ . ` £²î ¡ñ`fæ /= :ù]y÷¢·"
" 2º » q ¢ v²4Õm³íÓ&=a¤¡ g ; dà,é+· +_¼ =È 5ß¬iî¦¾êÔØû§ÌÌ r£"
#define O(Q)p!O) { *i[25][41]|=U(642+Q); u e r[(Q)/2]&63); }
"solÞÄ&¾X¼[Ý; }ï? º= &c} 9È¾óÀ2 >ü 5 ,Þ &  Ã0  Úù*½ ³äÿgh";
#define C(                                 b)O(28+(B+b)%6)
#   define                                 a >> B &M[i X]
#include/*                                 s */<stdio.h>
#include/*                                 s */<time.h>
  unsigned                                 int    long
#   define                                 e putchar(
                   B,E,M,A,Z,I,N,G
# define g                                 ! (32 a)
# define u                                 U(533);
# define n                                 (65 a)
# define z                                 for (
[32768], i                                 [32]
# define p                                 if(
[48][3]={ { { 2} } } ; void**V,*D,*F[32][48];
void*Q(void**O){ return*O?(*O=Q(*O)):O; } U(
O){return E+=(O/=2)-1?U((A=A/2^57525273+(A&
1^O&1)*9583591<<5,O)),0:O,16; } main(O){ A
=O?time(D):953351751; z I=0; I<26; ++I){z
N=I/2; N<30+I/2; ++N){ z M=0; M<3; ++M){
p Z=O)z; (B=I+Z*!!M) <26&&N+Z*(M!=2)-B/
2<30; B[G]=N<<7|Z++<<13|I*4+M)z; G[B=A
# define X [ I+Z*!! M] [ N+Z*(M!= 2)]
&32767]; )u p!Z&&M[i X]){ z B=0; B<6
; B++){ p!g){ C(5)O(0)C(2)O(2)} C((
B&1?!!n:4-3*g))p!g|n)O(4)O(7)} z B
=0; B<6; B++){ p g&&!n)O(14)p!g)O
(8)p B&1|g){ O=!n; O(10)O=!(1040
a ); O(12 )O=0; } O(17+(B&1 ?!(
1040 a)!=!n:g))} } } O(24)} O(
21+(I&1))} O(26)p O)z E=0; E<
1<<15; I=16){ B=E++[G]; D=Q(
&F[I=B/4&31][N=B>>7&63]); M
=B%4; Z=B>>=13; V=Q(&F X);
p!(D==V|N[I[i]] [1]|i X[1
])){ z; --Z&&!(*i X%9|*i
X/9&*i X/9-1); ); p!Z){
*V=D; *i X|=32>>M; Z=B
; z*i X|=4>>M; --Z; i
X[*i X?2-!i X [1]:!(
F X=V)]=36>>M); } }
} p!O){ u u z I=8;
I--; )p(N=I[r]=(I
>3?E:A)>>(I*9&24
))==10||N==13){
e 0 ); I =8; u
u u u} e 1 );
} z E =1333;
++ I<8+469*
!!O; e(N=I
[r])-32|!
O?N:r[++
I]-N));
return
 O &&
main
(!O
);
}

引用元：https://www.ioccc.org/1998/bas1.c

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

動作

gzipされたPostScriptを生成する。

$ gcc -o bas1 bas1.c

$ ./bas1 | gunzip > tmp.ps

$ ps2pdf tmp.ps

エッシャーの描いたような3D迷路みたいなものが出てくる。

左下と右上のビームが切れている。端っこから反対側の端っこを目指して迷路を解けとのこと。

解説

プログラム中にも書かれている通り、”bemazing”というタイトルがついている。 bemaze（戸惑わせる）、beam（ビーム）、maze（迷路）、amazing（すばらしい）などをかけている。

作者コメントの冒頭にある”you’re in a twisty little maze of beams, all different.”（曲がりくねった小さなビームの迷路にいる。すべてまちまちである）は、コロッサル・ケーブ・アドベンチャーで迷路にいるとき出てくる有名なメッセージ”you are in a twisty little maze of passages, all different.”（曲がりくねった小さな通路の迷路にいる。すべてまちまちである）のパロディ。

gzipにするのは、emacsをインストールするためのディスクの余裕を残すためとのこと。ポータビリティのために、復帰文字（\r）と改行文字（\n）は出力しないようにしている（Windowsのテキストモードなど）。こういう細かい配慮は面白い。

コマンドライン引数を与えると迷路が乱数生成になるが、その場合、解けることは保証されない、とのこと。

カプセル化という賞名はあまりよくわからない。同年の[[1998/chaos]]や[[1998/df]]の賞名と合わせて、なんとなくオブジェクト指向の用語を選んだのかもしれない。