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

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Hello world (https://forum.antichat.xyz/showthread.php?t=40279)

tclover 18.05.2007 03:47

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

(c) http://www.gnu.org/fun/jokes/helloworld.html

blaga 18.05.2007 03:57

Я половину языков не знаю. ((

tclover 18.05.2007 04:07

Код:

main(){exit(printf(S) == strlen(S) ? 0 : 1);}
- эт конечно ппц, и правда труЪ хакерский код, даже красиво блин
PS там правда не хватает хидера одного, так как exit определён в stdlib, но всё равно :)
//прим. tcl - exit передаёт код возврата вызывающему процессу, стало быть в тернарном выражении
printf(S) == strlen(S) ? 0 : 1 будет 0, так как printf вернёт тоже самое что и strlen.
PPS просто код понравился :)

Petr 18.05.2007 04:19

Код:

shutdown -r
:rolleyes: А больше и не надо ;)

A110ut 18.05.2007 04:32

хакерске хэловорлды рулят =)

ps: Sandjuro:"shutdown -r - больше и не надо". надо. во-превых компутер иногда надо выключать, а во-вторых надо указывать когда именно. так что не надо нас об манывать

blaga 18.05.2007 04:53

shutdown -s -t 600 - через 10 минут мой комп вырубиться. Это я по рпивычке на ентер нажал. ((

tclover 18.05.2007 04:56

нажми shutdown -a
если успеешь :)

blaga 18.05.2007 04:59

хе. успел. )) а я и не знал что эту фигню можно снять. ))

Petr 18.05.2007 05:24

Помню был вирус какой-то каторый такоеже окно показывал, было дело давно я его подвхавтиол про -a не знал тогда, вот опять задумался сработает ли :\

A110ut, если ты это смог прочесть - то больше и не надо ;)

tclover 18.05.2007 14:50

=\


Время: 22:41