Эволюция программиста

[maskman]

1. Старший курс школы.
10 PRINT "HELLO WORLD"
20 END

2. Младший курс института.
program Hello(input,output)
begin
writeln('Hello World')
end.

3. Старший курс института.
(defun hello
(print
(cons' Hello (list 'World))))

4. Молодой специалист.
#include
void main(void)
{
char *message[] = {"Hello ","World"};
int i;
for(i = 0; i < 2; ++i)
printf("%s", message[i]);
printf("\n");
}

5. Опытный профессионал.
#include
class string
{ private:
int size;
char *ptr;
public:
string() : size(0), ptr(new char('\0')) {}
string(const string &s) : size(s.size)
{
ptr = new char[size + 1];
strcpy(ptr, s.ptr);
}
~string()
{
delete [] ptr;
}
friend ostream &operator << (ostream &, const string &);
string &operator = (const char *);
};
ostream &operator << (ostream &stream, const tring &s)
{
return(stream << s.ptr);
}
string &string::operator = (const char *chrs)
{
if(this != &chr)
{
delete [] ptr;
size = strlen(chrs);
ptr = new char[size + 1];
strcpy(ptr, chr);
}
return(*this);
}
int main()
{
string str;
str = "Hello World";
cout << str << endl;
return(0);
}

6. Системный администратор.
#include
main()
{ char *tmp;
int i=0;
/*Хапнем побольше*/
tmp = (char *)malloc(1024*sizeof(char));
while (tmp[i]="Hello World"[i++]);
/*Блин, лажанулся*/
i = (int)tmp[8];
tmp[8] = tmp[9];
tmp[9] = (char)i;
printf("%s\n",tmp);
}

7. Hачинающий хакер.
#!/usr/local/bin/perl
$msg="Hello, World.\n";
if ($#ARGV >= 0)
{
while(defined($arg=shift(@ARGV)))
{
$outfilename = $arg;
open(FILE, ">" . $outfile name) || die "Can't close $arg:$!\n";
}
} else {
print($msg);
}
1;

8. Понаторевший хакер.
#include
#define S "Hello, World\n"
main()
{exit(printf(S)==strlen(S)?0:1);}

9. Закаленный ххакер.
% cc -o a.out
~/src/misc/hw/hw.c
% a.out

10. Хакер-гуру.
% cat
Hello, World.
^D

11. Младший менеджер.
10 PRINT "HELLO WORLD"
20 END

12. Менеджер среднего уровня.
% mail -s "Hello, World."
bob@b12
Боб, не могли бы Вы написать для меня программу "Hello, World."?
Она понадобится мне завтра.
^D

13. Старший менеджер.
% zmail jim
Мне нужна программа "Hello, World.", и немедленно!

14. Президент компании.
% letter
letter: Command not found.
% mail
To: ^X ^F ^C
% help mail
help: Command not found.
% Черт!
!: Event unrecognized.
% logout

[elenah]

да ,странно это все и запутано...
и кому это надобыло такое придумывать ума не приложу короче

A:\>format_C:

[maskman]

elenah

Программисты я думаю поймут, да и не программисты тоже....
А

A:\>format_C:

Это немного из другой оперы (не путать с поаулярным браузером)

[maskman]

Program Party;
Uses Vine, Zakus, Condoms;
{$I Variable.Pas}

{ Файл с описаниями пеpеменных,типов и дpyгих ф-ций и }
{ пpоцедyp, а также модyлей Vine, Zakus и Condoms }
{ - в одном из следyющих выпyсков CAD/CAM NEWS. }

Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Buy(Drugs);
Call(Friends);
Call(Girls);
End;{ Prepare }

Procedure Drinks;
Begin
Open(Bottles);
Repeat
Drink(Next(Gramms100));
Zakus:=Eat(Next(Foods));
Until TwoViewInEyes;
End;{ Drinks }

Procedure Dances;
Begin
Music:=True;
Call(OneGirl);
Go(DancingRoom);
With Music.Jump Do Begin
If Girl(Drink)>Normal(Drink) Then Begin
Touch(AssOfGirl);
Touch(BrestOfGirl);
End
Else Begin
Go(DrinkingRoom);
Let`s(Girl):=Drinks(More);
Return(DancingRoom);
End;
End;
End;{ Dances }

Procedure Drug;
Var
Good, VeryGood: Virtual, Abstract;
Begin
If Drugs=False Then Goto NoDrugsNow;
Case Drug Of
Plan: Repeat Smoke(Plan) Until Good;
Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
Wheels: While Not(VeryGood) Do
Begin
Swallow(Wheel6);
Wait(Minutes30);
End;
End; { Case }
End; { Drug }


Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If WhoGirl Then Write(?Are yor sodomite ??!?);
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
HowMany:=0;
Repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Brest,OtherPartsOfBody);
Repeat
Asm
PUSH YourPenis
POP YourPenis
End;
Until YouHaveOrgasm;
Case HowMany of
Inc(HowMany);
If (HowMany mod 15 = 0) then Write(?You are BIG man !!!?);
Until NOT YourPenisStay;
End;{ Fuck }

Begin { Party - Main Program }
Prepare;
Drinks;
If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
Dances;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

Г Л О С С А Р И Й ( Б А З А Р И К )

Prepare - пpиготовления
Buy - кyпить
Drug - наpкотик
TwoViewInEyes - двоение в глазах
Touch - касание, пpикосновение
Ass - задница
Brest - сиськи
More - больше
Dark - темный
OtherPartsOfBody - дpyгие части тела
FaceDown - моpдой вниз (об стол)