Stratos: Punto de Encuentro de Desarrolladores

¡Bienvenido a Stratos!

Acceder

Foros





The Evolution of a Programmer

Iniciado por Mars Attacks, 04 de Febrero de 2003, 06:17:42 PM

« anterior - próximo »

Mars Attacks

                                He estado buceando por la sección de chistes de informáticos de www.marqueze.net y me ha gustado éste:





High School/Jr.High



10 PRINT "HELLO WORLD"

20 END



First year in College

program Hello(input, output)

begin

writeln(`Hello World`)

end.





Senior year in College

(defun hello

(print

(cons `Hello (list `World))))





New professional

#include

void main(void)

{

char *message[] = {"Hello ", "World"};

int i;



for(i = 0; i < 2; ++i)

printf("%s", message[i]);

printf(" ");

}





Seasoned professional

#include

#include



class string

{

private:

int size;

char *ptr;



public:

string() : size(0), ptr(new char(``)) {}



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 string &s)

{

return(stream << s.ptr);

}



string &string::operator=(const char *chrs)

{

if (this != &chrs)

{

delete [] ptr;

size = strlen(chrs);

ptr = new char[size + 1];

strcpy(ptr, chrs);

}

return(*this);

}



int main()

{

string str;



str = "Hello World";

cout << str << endl;



return(0);

}





Master Programmer

[

uuid(2573F8F4-CFEE-101A-9A9F-00AA00342820)

]

library LHello

{

// bring in the master library

importlib("actimp.tlb");

importlib("actexp.tlb");



// bring in my interfaces

#include "pshlo.idl"



[

uuid(2573F8F5-CFEE-101A-9A9F-00AA00342820)

]

cotype THello

{

interface IHello;

interface IPersistFile;

};

};



[

exe,

uuid(2573F890-CFEE-101A-9A9F-00AA00342820)

]

module CHelloLib

{



// some code related header files

importheader();

importheader();

importheader();

importheader("pshlo.h");

importheader("shlo.hxx");

importheader("mycls.hxx");



// needed typelibs

importlib("actimp.tlb");

importlib("actexp.tlb");

importlib("thlo.tlb");



[

uuid(2573F891-CFEE-101A-9A9F-00AA00342820),

aggregatable

]

coclass CHello

{

cotype THello;

};

};





#include "ipfix.hxx"



extern HANDLE hEvent;



class CHello : public CHelloBase

{

public:

IPFIX(CLSID_CHello);



CHello(IUnknown *pUnk);

~CHello();



HRESULT __stdcall PrintSz(LPWSTR pwszString);



private:

static int cObjRef;

};





#include

#include

#include

#include

#include "thlo.h"

#include "pshlo.h"

#include "shlo.hxx"

#include "mycls.hxx"



int CHello::cObjRef = 0;



CHello::CHello(IUnknown *pUnk) : CHelloBase(pUnk)

{

cObjRef++;

return;

}



HRESULT __stdcall CHello::PrintSz(LPWSTR pwszString)

{

printf("%ws ", pwszString);

return(ResultFromScode(S_OK));

}





CHello::~CHello(void)

{



// when the object count goes to zero, stop the server

cObjRef--;

if( cObjRef == 0 )

PulseEvent(hEvent);



return;

}



#include

#include

#include "pshlo.h"

#include "shlo.hxx"

#include "mycls.hxx"



HANDLE hEvent;



int _cdecl main(

int argc,

char * argv[]

) {

ULONG ulRef;

DWORD dwRegistration;

CHelloCF *pCF = new CHelloCF();



hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);



// Initialize the OLE libraries

CoInitializeEx(NULL, COINIT_MULTITHREADED);



CoRegisterClassObject(CLSID_CHello, pCF, CLSCTX_LOCAL_SERVER,

REGCLS_MULTIPLEUSE, &dwRegistration);



// wait on an event to stop

WaitForSingleObject(hEvent, INFINITE);



// revoke and release the class object

CoRevokeClassObject(dwRegistration);

ulRef = pCF->Release();



// Tell OLE we are going away.

CoUninitialize();



return(0); }



extern CLSID CLSID_CHello;

extern UUID LIBID_CHelloLib;



CLSID CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-00AA00342820 */

0x2573F891,

0xCFEE,

0x101A,

{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }

};



UUID LIBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-00AA00342820 */

0x2573F890,

0xCFEE,

0x101A,

{ 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }

};



#include

#include

#include

#include

#include

#include "pshlo.h"

#include "shlo.hxx"

#include "clsid.h"



int _cdecl main(

int argc,

char * argv[]

) {

HRESULT hRslt;

IHello *pHello;

ULONG ulCnt;

IMoniker * pmk;

WCHAR wcsT[_MAX_PATH];

WCHAR wcsPath[2 * _MAX_PATH];



// get object path

wcsPath[0] = ``;

wcsT[0] = ``;

if( argc > 1) {

mbstowcs(wcsPath, argv[1], strlen(argv[1]) + 1);

wcsupr(wcsPath);

}

else {

fprintf(stderr, "Object path must be specified ");

return(1);

}



// get print string

if(argc > 2)

mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1);

else

wcscpy(wcsT, L"Hello World");



printf("Linking to object %ws ", wcsPath);

printf("Text String %ws ", wcsT);



// Initialize the OLE libraries

hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);



if(SUCCEEDED(hRslt)) {





hRslt = CreateFileMoniker(wcsPath, &pmk);

if(SUCCEEDED(hRslt))

hRslt = BindMoniker(pmk, 0, IID_IHello, (void **)&pHello);



if(SUCCEEDED(hRslt)) {



// print a string out

pHello->PrintSz(wcsT);



Sleep(2000);

ulCnt = pHello->Release();

}

else

printf("Failure to connect, status: %lx", hRslt);



// Tell OLE we are going away.

CoUninitialize();

}



return(0);

}









Apprentice Hacker

#!/usr/local/bin/perl

$msg="Hello, world. ";

if ($#ARGV >= 0) {

while(defined($arg=shift(@ARGV))) {

$outfilename = $arg;

open(FILE, ">" . $outfilename) || die "Can`t write $arg: $! ";

print (FILE $msg);

close(FILE) || die "Can`t close $arg: $! ";

}

} else {

print ($msg);

}

1;









Experienced Hacker

#include

#define S "Hello, World "

main(){exit(printf(S) == strlen(S) ? 0 : 1);}









Seasoned Hacker

% cc -o a.out ~/src/misc/hw/hw.c

% a.out









Guru Hacker

% echo "Hello, world."









New Manager

10 PRINT "HELLO WORLD"

20 END









Middle Manager

mail -s "Hello, world." bob@b12

Bob, could you please write me a program that prints "Hello,

world."?

I need it by tomorrow.

^D









Senior Manager

% zmail jim

I need a "Hello, world." program by this afternoon.









Chief Executive

% letter

letter: Command not found.

% mail

To: ^X ^F ^C

% help mail

help: Command not found.

% damn!

!: Event unrecognized

% logout



                               

ethernet

Ya lo habia leido, no obstante me mirare el codigo del COM XDD

saludos

Mars Attacks

                                Bueno, si vas corto de COTW, pones éste en plan cachondo  :ojo:                                

ethernet

si voy "corto" de cotw's ?? XDD me sobran, por eso pongo varios a la semana xDD. Aprovechando la ocasion; nadie se anima? :D

saludos

CordayUK

                                el programador de verdad.... :-D



C:WINNTsystem32>debug

-e 100

14EA:0100  BA.ba   00.08   00.01   00.b4   00.09   00.cd   00.21   00.c3

14EA:0108  00.48   00.65   00.6c   00.6c   00.6f   00.20   00.57   00.6f

14EA:0110  00.72   00.6c   00.64   00.21   00.24

-d 100

14EA:0100  BA 08 01 B4 09 CD 21 C3-48 65 6C 6C 6F 20 57 6F   ......!.Hello

Wo

14EA:0110  72 6C 64 21 24 00 00 00-00 00 00 00 34 00 D9 14

rld!$.......4...

14EA:0120  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

................

14EA:0130  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

................

14EA:0140  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

................

14EA:0150  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

................

14EA:0160  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

................

14EA:0170  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00

................

-g 0

Hello World!

AX=0924  BX=0000  CX=0000  DX=0108  SP=FFF0  BP=0000  SI=0000  DI=0000

DS=14EA  ES=14EA  SS=14EA  CS=14EA  IP=0000   NV UP EI PL NZ NA PO NC

14EA:0000 CD20          INT     20



probarlo ;-) hello word en 20 bytes!!                                

Astharoth

                                Jajjajajajaja xDDDDDD

Lo conocia...  pero vamos, lo que mas me acojona es que menos los ultimos los he escrito todos xD
Inclusive el de Corday xD

¿Acabare haciendo de chief lo que sea?
¿Me suicidare antes?

Despues de ver la peli de trabajo basura y leer cosas como estas a veces pienso si no habria sido mejor que mis padres me amputaran las manos al verme tocar un ordenador de pequeño xD

Saludos, Astharoth.

PS: Saludos y recuerdos de un pobre y triste programador al borde del suicidio xD                                

synchrnzr

                                Siento que he pasado por varias de esas etapas X'DDD

Por cierto, veo q hay unos #include huerfanitos, supongo que será pq el foro te filtró los tags < y > ^_^'

sync                                

donald

                                pues sí que complicais el saludo los coders..   :loco:  :ojo:                                
Me paso por aquí de cuando en cuando (1 vez cada 3 o 4 meses) ...así que si no respondo a algo no es por antipático. ;) Posteo, y me acuerdo del foro tres meses después... ;)    :-S

Ionicboy

                                Otro mas:

Forum poster:



:jaja: 8)  :enfadado:  :jaja:  :oops:  Hello world!  :D  :D  :o


Taluegooo                                

Mars Attacks

                                :jaja: 8)  :enfadado:  :jaja:  :oops:  Hello world!  :D  :D  :o

Sólo era para ver cómo quedaba...                                






Stratos es un servicio gratuito, cuyos costes se cubren en parte con la publicidad.
Por favor, desactiva el bloqueador de anuncios en esta web para ayudar a que siga adelante.
Muchísimas gracias.