Hello World

Teck posted this over on strafeRight and I thought it was pretty good, so I'm putting it here as well. It is a funny look at how people code "Hello World" depending on their age and job. You can find the original article on GNU.org.

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("\n"); } 

Seasoned professional

#include  #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 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); } 

System Administrator

 #include  #include  main() { char *tmp; int i=0; /* on y va bourin */ tmp=(char *)malloc(1024*sizeof(char)); while (tmp[i]="Hello Wolrd"[i++]); /* Ooopps y'a une infusion ! */ i=(int)tmp[8]; tmp[8]=tmp[9]; tmp[9]=(char)i; printf("%s\n",tmp); } 

Apprentice 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; 

Experienced Hacker

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

Seasoned Hacker

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

Guru Hacker

 % cat Hello, world. 

New Manager (do you remember?)

 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 

Research Scientist

    PROGRAM HELLO PRINT *, 'Hello World' END 

Older research Scientist

    WRITE (6, 100) 100 FORMAT (1H ,11HHELLO WORLD) CALL EXIT END