十几年前一guru同事在离职email里分享了一个99瓶啤酒的perl程序，target是打印：
99 bottles of beer on the wall, 99 bottles of beer.
Take one down and pass it around, 98 bottles of beer on the wall.
98 bottles of beer on the wall, 98 bottles of beer.
Take one down and pass it around, 97 bottles of beer on the wall.
....
2 bottles of beer on the wall, 2 bottles of beer.
Take one down and pass it around, 1 bottle of beer on the wall.
1 bottle of beer on the wall, 1 bottle of beer.
Go to the store and buy some more, 99 bottles of beer on the wall.那时我还没听说过Google。最近一查，发现有专门的网站：http://99-bottles-of-beer.net
比如Perl code: http://99-bottles-of-beer.net/download/658
$a=
"cpuu
\bmft p
\bg cff
\bs";$b
="po ui
\bf xbm
\bm";$c="
Ypv ublf p
\bof epxo qb
\btt ju bspvoe";
$a =~ s/\n//;$a =~
s/\s+/ /g; $b =~
s/\n// ; $b =~
s/\s+/ /g;$c =~
s/\n// ; $c =~
s/\s+/ /g;$a =~
y/b-z/a-z/;$b =~
tr/b-z/a-z/;$c =~
tr/b-z/a-z/ ; for(
$d=100;$d>0;$d--){
print"$d $a $b $d"
;print" $a,\n$c, "
;print($d-1);print
" $a $b.\n";} $x =
"cjc"; $y="dobbz";
$z="com";print"\n"
;print "- $x\@$y."
;print"$z \n\n"; http://99-bottles-of-beer.net/download/737 （可能需要旧Perl比如5.19之前的，不然会得到错误：Eval-group not allowed at runtime, use re 'eval' in regex ）：
''=~( '(?{' .('`' |'%') .('[' ^'-')
.('`' |'!') .('`' |',') .'"'. '\\$'
.'==' .('[' ^'+') .('`' |'/') .('['
^'+') .'||' .(';' &'=') .(';' &'=')
.';-' .'-'. '\\$' .'=;' .('[' ^'(')
.('[' ^'.') .('`' |'"') .('!' ^'+')
.'_\\{' .'(\\$' .';=('. '\\$=|' ."\|".( '`'^'.'
).(('`')| '/').').' .'\\"'.+( '{'^'['). ('`'|'"') .('`'|'/'
).('['^'/') .('['^'/'). ('`'|',').( '`'|('%')). '\\".\\"'.( '['^('(')).
'\\"'.('['^ '#').'!!--' .'\\$=.\\"' .('{'^'['). ('`'|'/').( '`'|"\&").(
'{'^"\[").( '`'|"\"").( '`'|"\%").( '`'|"\%").( '['^(')')). '\\").\\"'.
('{'^'[').( '`'|"\/").( '`'|"\.").( '{'^"\[").( '['^"\/").( '`'|"\(").(
'`'|"\%").( '{'^"\[").( '['^"\,").( '`'|"\!").( '`'|"\,").( '`'|(',')).
'\\"\\}'.+( '['^"\+").( '['^"\)").( '`'|"\)").( '`'|"\.").( '['^('/')).
'+_,\\",'.( '{'^('[')). ('\\$;!').( '!'^"\+").( '{'^"\/").( '`'|"\!").(
'`'|"\+").( '`'|"\%").( '{'^"\[").( '`'|"\/").( '`'|"\.").( '`'|"\%").(
'{'^"\[").( '`'|"\$").( '`'|"\/").( '['^"\,").( '`'|('.')). ','.(('{')^
'[').("\["^ '+').("\`"| '!').("\["^ '(').("\["^ '(').("\{"^ '[').("\`"|
')').("\["^ '/').("\{"^ '[').("\`"| '!').("\["^ ')').("\`"| '/').("\["^
'.').("\`"| '.').("\`"| '$')."\,".( '!'^('+')). '\\",_,\\"' .'!'.("\!"^
'+').("\!"^ '+').'\\"'. ('['^',').( '`'|"\(").( '`'|"\)").( '`'|"\,").(
'`'|('%')). '++\\$="})' );$:=('.')^ '~';$~='@'| '(';$^=')'^ '[';$/='`'; 有意思的是这个程序可能是用Acme::EyeDrops从一个简单的Perl程序转换来的：
关于99个啤酒瓶编程的相关网站很多，如：
https://codegolf.stackexchange.com/questions/2/99-bottles-of-beer
https://titanwolf.org/Network/Articles/Article?AID=01592803-8636-4fcd-ac1a-3cc92050a741
之所以想起旧事，是因为最近看了Dylan Beattie的<<The Art of Code>>
VIDEO 里面提到Oscar Toledo G. 2010年用1kB Javascript实现的mini chess:
<html>
#define P(a,b,c) a##b##c
#include/*++**++*/<curses.h>
int c,h, v,x,y,s, i,b; int
main () { initscr( ); P(cb,
rea, k)() ;///
P(n, oec, ho)(
)/* */ ;for (curs_set(0); s= x=COLS/2
; P( flu, shi, np)()){ timeout(y=c= v=0);///
P(c, lea, r)() ;for (P (
mva, d, dstr )(2, 3+x,
G) ; ; P( usl, eep, )(U)){//
P(m, vad, dstr )( y >>8,x,//
" "); for(i=LINES; /* */ i -->0
; mvinsch(i,0,0>(~c|i-h-H &h-i )?' '
:(i- h|h- i+H) <0?'|' :'=' ));
if(( i=( y +=v= getch( )>0?I:v+
A)>>8)>=LINES||mvinch(i*= 0<i, x)!=' '||' '
!=mvinch(i,3+x))break/*&% &*/; mvaddstr(y
>>8, x,0>v ?F:B ); i=--s
/-W; P(m, vpr, intw)(0,
COLS-9," %u/%u ",(0<i)* i,b=b<i?i:
b); refresh(); if(++ c==D){ c
-=W; h=rand()%(LINES-H-6
)+2; } } flash(); }}是个完全可编译可运行的Flappy bird程序(depends on libcurses-devel, 需要下载makefile , 里边定义了游戏参数)。实际上，上面的程序是The International Obfuscated C Code Contest 比赛2015年的优胜者之一。从1984年到2020年已经举办27届，优胜程序列在这里：https://www.ioccc.org/years-spoiler.html ，其中的每一个程序都一定会让每个C程序员惊叹不已。上面提到的Oscar Toledo G.也有5个程序获奖。
下面的是Youtube video关于Andy Sloane的Donut-shaped C code生成3D spinning donuts
VIDEO
Andy的C code source:
k ; double sin ()
, cos (); main (){ float A =
0 , B = 0 , i , j , z [ 1760 ]; char b [
1760 ]; printf ( " \x1b [2J" ); for (;;
){ memset ( b , 32 , 1760 ); memset ( z , 0 , 7040 )
; for ( j = 0 ; 6.28 > j ; j += 0.07 ) for ( i = 0 ; 6.28
> i ; i += 0.02 ){ float c = sin ( i ), d = cos ( j ), e =
sin ( A ), f = sin ( j ), g = cos ( A ), h = d + 2 , D = 1 /( c *
h * e + f * g + 5 ), l = cos ( i ), m = cos ( B ), n = s \
in ( B ), t = c * h * g - f * e ; int x = 40 + 30 * D *
( l * h * m - t * n ), y = 12 + 15 * D *( l * h * n
+ t * m ), o = x + 80 * y , N = 8 *(( f * e - c * d * g
)* m - c * d * e - f * g - l * d * n ); if ( 22 > y &&
y > 0 && x > 0 && 80 > x && D > z [ o ]){ z [ o ]= D ;;; b [ o ]=
".,-~:;=!*#$@" [ N > 0 ? N : 0 ];}} /*#****!!-*/
printf ( " \x1b [H" ); for ( k = 0 ; 1761 > k ; k ++)
putchar ( k % 80 ? b [ k ]: 10 ); A += 0.04 ; B +=
0.02 ;}} /*****####*******!!=;:~
~::==!!!**********!!!==::-
.,~~;;;========;;;:~-.
..,--------,*/
编译：
Updated on Oct 11, 2023: Just saw a Wolfenstein implementation with 600 line Gawk code, a 3D game in Text mode, though will feel dizzy when playing. Reference: https://hackaday.com/2016/01/15/wolfenstein-in-600-lines-of-code/:
sudo apt-get install gawk
git clone https://github.com/TheMozg/awk-raycaster.git
cd awk-raycaster/
gawk -f awkaster.awk
Posts
