h1

La evolución de un programador

05/25/2011

Wizdoc [Icon By Buuf]  Tips & Tricks.

Webeando por la red me encontré con esta joya que sólo los sistemólogos podrán entender: cómo uno va escribiendo su “hola mundo” de acuerdo al nivel jerárquico y experiencia. Completamente de acuerdo. Que lo disfruten:

Preparatoria

  10 PRINT “HELLO WORLD”
  20 END

Primer año de la universidad

  program Hello(input, output)
    begin
      writeln(‘Hello World’)
    end.

Último año de la universidad

  (defun hello
    (print
      (cons ‘Hello (list ‘World))))

Recién egresado / profesionista novato

  #include
  void main(void)
  {
    char *message[] = {“Hello “, “World”};
    int i;

    for(i = 0; i < 2; ++i)
      printf(“%s”, message[i]);
    printf(“\n”);
  }

Profesionista experimentado

  #include
  #include

  class string
  {
  private:
    int size;
    char *ptr;

  string() : size(0), ptr(new char[1]) { ptr[0] = 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 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);
  }

Programador master de masters

  [
  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\n”);
      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\n”, wcsPath);
  printf(“Text String %ws\n”, 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);
  }

Aprendiz de Hacker

  #!/usr/local/bin/perl
  $msg=”Hello, world.\n”;
  if ($#ARGV >= 0) {
    while(defined($arg=shift(@ARGV))) {
      $outfilename = $arg;
      open(FILE, “>” . $outfilename) || die “Can’t write $arg: $!\n”;
      print (FILE $msg);
      close(FILE) || die “Can’t close $arg: $!\n”;
    }
  } else {
    print ($msg);
  }
  1;

Hacker experimentado

  #include
  #define S “Hello, World\n”
  main(){exit(printf(S) == strlen(S) ? 0 : 1);}

Hacker avanzado

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

Hacker gurú

  % echo “Hello, world.”

Gerente Junior

  10 PRINT “HELLO WORLD”
  20 END

Gerente intermedio

  mail -s “Hello, world.” bob@b12
  Bob, podrias escribirme un programa que imprima “Hello, world.”?
  Lo necesito para mañana.
  ^D

Gerente Senior

  % zmail jim
  Necesito un programa “Hello, world.” para esta tarde.

Director

  % letter
  letter: Command not found.
  % mail
  To: ^X ^F ^C
  % help mail
  help: Command not found.
  % carajo!
  !: Event unrecognized
  % logout

One comment

  1. Ja ja ja ja, excelente…solo falto:

    .model small
    .stack
    .data
    saludo db “Hola mundo!!!”, “$”
    .code
    main proc ;Inicia proceso
    mov ax,seg saludo ;hmm ¿seg?
    mov ds,ax ;ds = ax = saludo
    mov ah,09 ;Function(print string)
    lea dx,saludo ;DX = String terminated by “$”
    int 21h ;Interruptions DOS Functions
    ;mensaje en pantalla
    mov ax,4c00h ;Function (Quit with exit code (EXIT))
    int 21h ;Interruption DOS Functions
    main endp ;Termina proceso
    end main

    Tomado de :http://mis-algoritmos.com/hola-mundo-en-ensamblador



Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: