Best of Show - Most Shrinkable

最優秀賞 - もっとも縮みやすい

受賞者：Don Yang

動作・解説にジャンプ

引用元：https://www.ioccc.org/2011/akari/akari.c

審査員・作者による説明：https://www.ioccc.org/2011/akari/hint.html

動作

基本的には、PGM/PPM画像の縮小ツール。

添付されているサンプル画像（example.ppm）は、IOCCCと書かれているもの。

IOCCCと書かれた画像（example.ppm）
図：IOCCCと書かれた画像（example.ppm）（引用元：https://www.ioccc.org/2011/akari/example.ppm）

まずはこの画像を縮小する。 デフォルトでは奇数番目のピクセルを取り出す。すなわち、奇数行・奇数列のピクセルだけとりだし、サイズは縦横それぞれ1/2になる。

$ ./akari < example.ppm > odd_output.ppm
$ convert odd_output.ppm odd_output.png
奇数番目のピクセルだけを取り出した画像（odd_output.png）
図：奇数番目のピクセルだけを取り出した画像（odd_output.png）

次のように実行すると偶数番目のピクセルだけを取り出す。

$ ./akari - - even < example.ppm > even_output.ppm
$ convert even_output.ppm even_output.png
偶数番目のピクセルだけを取り出した画像（even_output.png）
図：偶数番目のピクセルだけを取り出した画像（even_output.png）

ちなみに、標準入出力でなくとも、第1引数に入力ファイル名、第2引数に出力ファイル名を指示することもできる。

$ ./akari example.ppm even_output.ppm

以下の動作例ではすべて標準入出力を使うことにする。

そして、テキストで書かれたアスキーアートも縮小できる。 偶数番目の行と列の文字（ここではg、i、q、s）だけ取り出していることがわかる。

$ cat example.txt
abcde
fghij
klmno
pqrst
uvwxy

$ ./akari < example.txt
gi
qs

これを使い、akari.c自身を縮小する。

$ ./akari < akari.c


                       int
            *w,m,_namori=('n');
         #include<stdio.h>/*;hrd"%  dnd4%"*/
     /**/int(y),u,r[128*2/*{y}icuhya*rr*rya=
   */];void/**/i(){putchar(u);}int/**/main(/*
  "(n"l)?M5{YlcpvdluvKct[j skao(tve"t"oYRYR"
   */int(w),char**n){for(m  =256;--m;r[m]/*
   "<*]y+u>r>u+y-u-r+i+" )   ;>m.a.i+n>()/q*/
 =25<(31&( m -1))||64-(  m    &192)||2>w?m:(2+
m/*"*,/U//     R/)/U *  & /Y/0/U/=P &=/"*/)\
&16?m-13 : 13+     m)   ;u=+10 ;for(;(m=/*
 *>/()/{ p u t-s        +(yy*+  n1>7?/:*/
   getchar ())+1         ;i()   ){if(10/*
   "wNMR;{ I/=/"               )/{*/==u*1
    )i();                      if(m-10){
      u=/*>                  *./<)[;*/8*
      4;i();       }u=r[    m];}return(
       * *n/*{i            ;w; }_}
          ( -*/ *00    )    ;  }

これは実行可能なCプログラムになっている。 実行すると、テキストを引き伸ばすプログラムになる

$ ./akari < akari.c > akari2.c

$ gcc -o akari2 akari2.c

$ ./akari2 < akari2.c





                                               i n t

                         * w , m , _ n a m o r i = ( ' n ' ) ;

                   # i n c l u d e < s t d i o . h > / * ; h r d " %     d n d 4 % " * /

           / * * / i n t ( y ) , u , r [ 1 2 8 * 2 / * { y } i c u h y a * r r * r y a =

       * / ] ; v o i d / * * / i ( ) { p u t c h a r ( u ) ; } i n t / * * / m a i n ( / *

     " ( n " l ) ? M 5 { Y l c p v d l u v K c t [ j   s k a o ( t v e " t " o Y R Y R "

       * / i n t ( w ) , c h a r * * n ) { f o r ( m     = 2 5 6 ; - - m ; r [ m ] / *

       " < * ] y + u > r > u + y - u - r + i + "   )       ; > m . a . i + n > ( ) / q * /

   = 2 5 < ( 3 1 & (   m   - 1 ) ) | | 6 4 - (     m         & 1 9 2 ) | | 2 > w ? m : ( 2 +

 m / * " * , / U / /           R / ) / U   *     &   / Y / 0 / U / = P   & = / " * / ) \

 & 1 6 ? m - 1 3   :   1 3 +           m )       ; u = + 1 0   ; f o r ( ; ( m = / *

   * > / ( ) / {   p   u   t - s                 + ( y y * +     n 1 > 7 ? / : * /

       g e t c h a r   ( ) ) + 1                   ; i ( )       ) { i f ( 1 0 / *

       " w N M R ; {   I / = / "                               ) / { * / = = u * 1

         ) i ( ) ;                                             i f ( m - 1 0 ) {

             u = / * >                                     * . / < ) [ ; * / 8 *

             4 ; i ( ) ;               } u = r [         m ] ; } r e t u r n (

               *   * n / * { i                         ; w ;   } _ }

                     (   - * /   * 0 0         )         ;     }

おまけで、コマンドライン引数を渡すとROT13をかける。

$ ./akari2 rot13 < akari2.c





                                               v a g

                         * j , z , _ a n z b e v = ( ' a ' ) ;

                   # v a p y h q r < f g q v b . u > / * ; u e q " %     q a q 4 % " * /

           / * * / v a g ( l ) , h , e [ 1 2 8 * 2 / * { l } v p h u l n * e e * e l n =

       * / ] ; i b v q / * * / v ( ) { c h g p u n e ( h ) ; } v a g / * * / z n v a ( / *

     " ( a " y ) ? Z 5 { L y p c i q y h i X p g [ w   f x n b ( g i r " g " b L E L E "

       * / v a g ( j ) , p u n e * * a ) { s b e ( z     = 2 5 6 ; - - z ; e [ z ] / *

       " < * ] l + h > e > h + l - h - e + v + "   )       ; > z . n . v + a > ( ) / d * /

   = 2 5 < ( 3 1 & (   z   - 1 ) ) | | 6 4 - (     z         & 1 9 2 ) | | 2 > j ? z : ( 2 +

 z / * " * , / H / /           E / ) / H   *     &   / L / 0 / H / = C   & = / " * / ) \

 & 1 6 ? z - 1 3   :   1 3 +           z )       ; h = + 1 0   ; s b e ( ; ( z = / *

   * > / ( ) / {   c   h   g - f                 + ( l l * +     a 1 > 7 ? / : * /

       t r g p u n e   ( ) ) + 1                   ; v ( )       ) { v s ( 1 0 / *

       " j A Z E ; {   V / = / "                               ) / { * / = = h * 1

         ) v ( ) ;                                             v s ( z - 1 0 ) {

             h = / * >                                     * . / < ) [ ; * / 8 *

             4 ; v ( ) ;               } h = e [         z ] ; } e r g h e a (

               *   * a / * { v                         ; j ;   } _ }

                     (   - * /   * 0 0         )         ;     }

akari2.cはさらに圧縮可能。akari3.cを作る。

$ ./akari < akari2.c

      wm_aoi(n)
  /*ity,,[2*/{}char*y=
 (")M{lpduKtjsa(v""YY"
 "*yuruyuri") ;main(/*
/",U/  R)U*  Y0U= ="/\
*/){puts    (y+ 17/*
 "NR{I="       ){/=*
   =*         */);/*
   **/{      ;;}}

$ ./akari < akari2.c > akari3.c

$ gcc -o akari3 akari3.c

これを実行するとyuruyuriと出力される。

$ ./akari3
yuruyuri

akari3.cはさらに圧縮できる。それを実行するとYU RU YU RIと出力される。

$ ./akari < akari3.c
   main
(){puts("Y"
"U RU YU "\
"RI"   )/*
 */   ;}

$ ./akari < akari3.c > akari4.c

$ gcc -o akari4 akari4.c

$ ./akari4
YU RU YU RI

解説

歴代IOCCCの中でも特に有名な作品の1つ。 IOCCCと言えばこれを思い浮かべる人もいると多いのではないだろうか。

漫画『ゆるゆり』の主人公、赤座あかりをネタとしている（Google画像検索のリンク）。 主人公だが存在感が薄いとされるキャラクターで、徐々に小さく消えていくというテーマに沿ったものとなっている。 縮小した画像の「アッカリ～ン」は同キャラクターが消えたときの効果音。

コードも同キャラクターの形状。 コードはダウンサンプリングしても動作するように注意深く書かれている。 先に小さい方から書き、それを拡大して、すでに決まっている文字の位置をかわすように拡張していったと思われる。

非常にインパクトのある挙動だが、さらにおまけとして、akari.cはBrainfuckのコードとしても動作するようになっている。 実行すると、アニメ第1期のエンディングテーマ『マイペースでいきましょう』の歌詞の冒頭が出力される。

$ bf akari.c
ITSUMO MIRAKURU
ITSUMO MIRAKURU
ITSUMO MIRAKURU
ITSUMO MIRAKURU
MOUSOUCHUU

作者は[[2000/dhyang]]や[[2004/omoikane]]と同じDon Yang。 この作者はこの先数年に渡ってアニメキャラ形状のプログラムを入選させ続ける（いずれも単にアニメキャラにしているのではなく、テーマに沿ったものとなっている）。