나를 감동시킨 소스코드

미로찾기 좋아시나요?
한번 컴파일 해서 실행해 보시길 바랍니다.
절대로 트로이 따위는 아닙니다.
출처 : http://www.ioccc.org/1985/shapiro.c

#define P(X)j=write(1,X,1)
#define C 39
int M[5000]={2},*u=M,N[5000],R=22,a[4],l[]={0,-1,C-1,-1},m[]={1,-C,-1,C},*b=N,
*d=N,c,e,f,g,i,j,k,s;main(){for(M[i=C*R-1]=24;f|d>=b;){c=M[g=i];i=e;for(s=f=0;
s<4;s++)if((k=m[s]+g)>=0&&k=16!=M[k]>=16))a[f++
]=s;if(f){f=M[e=m[s=a[rand()/(1+2147483647/f)]]+g];j=j c|1<b++?b[-1]:e;}P(" ");for(s=C;--s;P("_")
)P(" ");for(;P("\n"),R--;P("|"))for(e=C;e--;P("_ "+(*u++/8)%2))P("| "+(*u/4)%2
);}

#define fine #define de #define/**/ /**/*#define*/
#define de #define
#define do de

do { begin
do you like (green eggs and ham++)?
do you eat them: in a box?
do you eat them with a fox?0
do } end

fine
fine, just fine.

/*@@@@@@@@@@@@=___
/@@@@@@@@@@@@@@@@@@@a
@@@@@@@@@@@@@@@@@@@@@
|@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@
\@=~ ~~@@@/
\ /
\ |
/@@@@@===__ |
@@@@@@@@@@@@==/
/@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@
/ ~~~====@@@@@@
/ ~~~/
| /
/____ |
@@@@@@@@=====__/
@@@@@@@@@@@@@@@@
/@@@@@@@@@@@@@@@
/@@@@@@@@@@@@@@@|
___/ ~~~~@@*/
char groo(p,q)int p;int q;{return
((char) (--q*q+ (p/10)*q+--p))
; }void grem /**/ (){ int x=0
; printf(" ")
;/**/ /**/ for(;x<16
; x++)printf
( "%c",groo(x
, 8)) ;printf
( "\n\n")
; }void cred(a
) int a;{int
x=0;printf
( "%c "
, /*_____===~*/ groo(a,8))
; for(;x<16
; x++)printf
( "%c",(char)
a*16+ x);printf(
"\n");}main(a
,b)int a;
char **b ;{int x=2;
do(x=0;x<4;x++)exit(0);
for(grem();x<1<<3+(int)b[0]
[0]%2;)cred (++x-1);}

확장된 Pascal 언어에는 이런 특이한게 있습니다.

즉 R 값이 아닌 L 값을 Casting하는 것이 가능하다는겁니다.

Program XX;
Type
TPoint = Record
x,y: Word;
end;
var
p : TPoint;
v : LongWord;
begin
// v의 High Bit 부분 2바이트에는 X 좌표, Low Bit 부분의 2바이트에는 Y 좌표값이 들어 있다고 합시다.
// 그러면 대개는 이렇게 코딩합니다.
p.x := Hi(v);
p.y := Lo(v);
// C 처럼 한다면
p.x := v shr 16; // p.x = v >> 16;
p,y := v and $FFFF; // p.y = v & 0xFFFF;
// 그러나 좀 아는 사람은 이렇게 합니다.
LongWord(p) := v;
// 이것은 memmove나 CopyMemory와 본질적으로 바를바없습니다만, 일단 생김새가 간단 명료하고 보기가 좋습니다.

end;

게임 프로그램 작성중에 스크립트를 사용해야 할
필요성이 있어서

0)스크립트 작성
1)줄 단위로 읽기
2)탭 단위로 나누기
3)스크립트 해석하기

요런식으로 포인터내,개행이네...하면서 프로그램
작성하다가............

요것을 봤을때....-_-;...
--------------------------------------------

void ScriptTranslate()
{
char EnemyName[20];
char EnemyType;//Enemy01이면 1,Item이면 m,StageClear이면 r
int x, y;
int itemtype;
int m_nMaxWidth,m_nMaxHeight;//중점을 맞추어 주는 가로 세로 값
int string_size;
int i=0;
int j=0;

while(NextCommandCount<=(FrameCount/2))
{
fscanf(Stage, "%s", EnemyName);
string_size = strlen(EnemyName);
EnemyType=EnemyName[string_size-1];

switch(EnemyType)
{
case 'N':
break;
case '1':
m_nMaxWidth=62;
m_nMaxHeight=62;
fscanf(Stage, "%d %d", &x, &y);

x=x+m_nMaxWidth/2;//중점 좌표로 변환
y=y+m_nMaxHeight;

while(now_enemy01_count {
if(Enemy01_C[now_enemy01_count].m_nUsed == NO)
{
Enemy01_C[now_enemy01_count] = CEnemy01(x,y,Player_C);
Enemy01_C[now_enemy01_count].m_nUsed = YES;
now_enemy01_count=0;
break;
}
else
{
now_enemy01_count++;
}
}
break;

case '2':
m_nMaxWidth=232;
m_nMaxHeight=100;
fscanf(Stage, "%d %d", &x, &y);

x=x+m_nMaxWidth/2;
y=y+m_nMaxHeight;

while(now_enemy02_count {
if(Enemy02_C[now_enemy02_count].m_nUsed == NO)
{
Enemy02_C[now_enemy02_count] = CEnemy02(x,y,Player_C);
Enemy02_C[now_enemy02_count].m_nUsed = YES;
now_enemy02_count=0;
break;
}
else
{
now_enemy02_count++;
}
}

break;

case '3':
m_nMaxWidth=100;
m_nMaxHeight=100;
fscanf(Stage, "%d %d", &x, &y);

x=x+m_nMaxWidth/2;
y=y+m_nMaxHeight;


while(now_enemy03_count {
if(Enemy03_C[now_enemy03_count].m_nUsed == NO)
{
Enemy03_C[now_enemy03_count] = CEnemy03(x,y);
Enemy03_C[now_enemy03_count].m_nUsed = YES;
now_enemy03_count=0;
break;
}
else
{
now_enemy03_count++;
}
}
break;

case '4':
m_nMaxWidth=65;
m_nMaxHeight=65;
fscanf(Stage, "%d", &y);

y=y+m_nMaxHeight;

while(now_enemy04_count {
if(Enemy04_C[now_enemy04_count].m_nUsed == NO)
{
Enemy04_C[now_enemy04_count] = CEnemy04(y);
Enemy04_C[now_enemy04_count].m_nUsed = YES;
now_enemy04_count=0;
break;
}
else
{
now_enemy04_count++;
}
}
break;

case '5':
m_nMaxWidth=55;
m_nMaxHeight=62;
fscanf(Stage, "%d", &y);

y=y+m_nMaxHeight;

while(now_enemy05_count {
if(Enemy05_C[now_enemy05_count].m_nUsed == NO)
{
Enemy05_C[now_enemy05_count] = CEnemy05(y);
Enemy05_C[now_enemy05_count].m_nUsed = YES;
now_enemy05_count=0;
break;
}
else
{
now_enemy05_count++;
}
}
break;

case '6':
m_nMaxWidth=250;
m_nMaxHeight=125;
fscanf(Stage, "%d", &y);

y=y+m_nMaxHeight;

while(now_enemy06_count {
if(Enemy06_C[now_enemy06_count].m_nUsed == NO)
{
Enemy06_C[now_enemy06_count] = CEnemy06(y,Player_C);
Enemy06_C[now_enemy06_count].m_nUsed = YES;
now_enemy06_count=0;
break;
}
else
{
now_enemy06_count++;
}
}
break;

case 'm':
m_nMaxWidth=115;
m_nMaxHeight=60;
fscanf(Stage, "%d %d", &y, &itemtype);

y=y+m_nMaxHeight;

while(now_itemessenger_count < MAXITEMMESSENGER)
{
if(ItemMessenger_C[now_itemessenger_count].m_nUsed == NO)
{
ItemMessenger_C[now_itemessenger_count] = CItemMessenger(y,itemtype);
ItemMessenger_C[now_itemessenger_count].m_nUsed = YES;
now_itemessenger_count=0;
break;
}
else
{
now_itemessenger_count++;
}
}
break;

case 'r': // StageClear
//AllDamage(GEnemyBullet, 100);
//AllDamage(Enemy, 1000);
//BGEffect = TRUE;
//Head->SetLife(99);
break;
case 'e': // Goto NextStage
//StageClear = TRUE;
break;

//case 9999:
// CurrentState = 6;
// break;

default:
break;
}
fscanf(Stage, "%d", &NextCommandCount);

}
FrameCount++;
}
--------------------------------------------

스크립트 파일은 요런식으로 이루어져 있었음..
----------------------------------------------
N
60 Item 400 502
200 Enemy03 630 100
200 Enemy03 630 200
230 Enemy03 630 100
230 Enemy03 630 200

fscanf을 이용해서 스크립트 파일을 분석한뒤
개체 생성...-_-..

00101111010100101000100001010100010111110101011001
11101011110111101010101000101101111101111000111110
01111110111011011010000101001010101010111010010100
11101001100100101001010101010110000001010101111101
11111000000010111111011111111011101010101010110101

물론 아직도 충분히 감동적이죠......

알고리즘 처음 공부할때였는데요.
Maximum Subsequence 구하는 문제의 O(n) 알고리즘이었는데,
정말 보고 놀랬었습니다.

암호에 가까운 리눅스 커널 소스
천재들이닷!!