Форум АНТИЧАТ

Hello world

18.05.2007, 03:47

~~tclover~~

Banned

Регистрация: 13.12.2005

Сообщений: 1,091

Провел на форуме:
9751364

Репутация: 1847

Hello world

How the way people code "Hello World" varies depending on their age and job:
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 <stdio.h>
 
 void main(void)
 {
  char *message[] = {"Hello ", "World"};
  int i;
  for(i = 0; i < 2; ++i)
  printf("%s", message[i]);
  printf("\n");
 }

Seasoned professional

Код:

 #include <iostream.h>
 #include <string.h>
 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 <stdio.h>
 #include <stdlib.h>
 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 <stdio.h>
 #include <string.h>
 #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