Релакс

10 PRINT "HELLO WORLD" 
20 END

program Hello(input, output) begin 
writeln('Hello World') 
end

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

 #include 
void main(void) { 
char *message[] = {
"Hello ", "World"
}; 
int i;
 for(i = 0; i < 2; ++i) printf("%s", message[i]); 
printf("\n"); 
} 

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

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

#!/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;

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

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

% cat 
Hello, world

10 PRINT "HELLO WORLD" 
20 END

mail -s "Hello, world" megaxakep@mail.ru 
Приветик. слушай, будь человеком, напиши программу, которая 
пишет "Hello, world."? мне ее надо к завтра 

% написать 
написать: Command not found. 
% письмо 
To: ^X ^F ^C 
% help письмо 
help: Command not found.
 % мля! 
!: Event unrecognized 
% logout 

PROGRAM HELLO PRINT *, 'Hello World' 
END

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