Вот почитал я значит темку "Как сказать "Я тебя люблю!" на 88 языках" и решил сделать такую же, но для извращенцев(программистов). Я не стал брать все языки, т.к это весьма геморно, а ограничился наиболее известными =)
Итак-с, приступим-с...
Как сказать "Я тебя люблю" на выборке из n языков, где n Є
A+
while (1) sys.write{1;"Я тебя люблю\n";12};ALGOL
BEGIN
FILE F (KIND=REMOTE);
EBCDIC ARRAY E [0:13];
REPLACE E BY "Я тебя люблю!";
WHILE TRUE DO
BEGIN
WRITE (F, *, E);
END;
END.Ada
with Text_Io; use Text_Io;
procdure love is
begin
put ("Я тебя люблю!");
end love;Alpha4
{set %M,"1"}
{do
{write 1,1,"Я тебя люблю!"}
while %M = "1"}abc
WHILE (1=1) :
WRITE "Я тебя люблю "Action!
; love.ACT
Proc Main()
; Internal hardware value for the
; last key pressed.
Byte CH=764
; Clear last-key-pressed value
CH=255
; Main Loop:
While CH=255 Do
PrintE("Я тебя люблю")
Od
ReturnAmigaE
PROC main()
WriteF('Я тебя люблю!')
ENDPROC
And repeating one:D Programming language
import std.stdio; int main() { writefln("Я тебя люблю!"); return 0; }LUA
MessageBox(0,"",0,0,"Я тебя люблю");
Rebol
in console mode
print {Я тебя люблю}People Code
MessageBox(0,"",0,0,"Я тебя люблю");
AppleScript
tell application "Scriptable Text Editor"
make new window
activate
set contents of window 1 to "Я тебя люблю!" & return
end tellBefunge
v >v"Я тебя люблю!"0< ,: ^_25*,@
Blitz II
WBStartup While True NPrint "Я тебя люблю!" Wend End
c
#include <stdio.h>
main()
{
for(;;)
{
printf ("Я тебя люблю!\n");
}
}c++
#include <iostream.h>
main()
{
for(;;)
{
cout << "Я тебя люблю! ";
}}C#
class Love
{
static void Main () {
System.Console.Write("Я тебя люблю!");
}
}Codeworks
user tell "Я тебя люблю". Euphoria while 1 do puts(1,"Я тебя люблю!\n") end while
Fortran
implicit none
logical DONE
DO while (.NOT. DONE)
write(*,10)
END DO
10 format('Я тебя люблю.')
ENDHaskell
main = print("Я тебя люблю")HTML
<HTML> <HEAD> <TITLE>Я тебя люблю Page!</TITLE> </HEAD> <BODY> Я тебя люблю! </BODY> </HTML>
Java
class love {
public static void main (String args[]) {
for (;;) {
System.out.print("Я тебя люблю ");
}
}
}JavaScript
<TITLE>
love in JavaScript
</TITLE>
<SCRIPT>
document.write ("Я тебя люблю!")
</SCRIPT>LaTeX
\documentclass{article}
\begin{document}
\begin{center}
\Huge{Я тебя люблю}
\end{center}
\end{document}Lisp
; LISP
(DEFUN love ()
(PRINT (LIST 'Я 'тебя 'люблю)))matlab
while 1,
disp('Я тебя люблю')
endPascal
Program love (Input, Output);
Begin
Writeln ('Я тебя люблю!');
End.Perl
print "Я тебя люблю!\n" while (1);
Prolog
love :-
printstring("Я тебя люблю!!!!").
printstring([]).
printstring([H|T]) :- put(H), printstring(T).Python
print "Я тебя люблю!"
Ruby
for i in 1..1
puts "Я тебя люблю!"
endSNOBOL4 & SPITBOL
OUTPUT = 'Я тебя люблю!' END
Turing
loop
put "Я тебя люблю"
end loopXip
@Class love : XipObject
{
@Public
{
saylove();
}
}
@Define love;
@Method love::saylove()
{
"Я тебя люблю"->print();
}
@Local w = :love->new();
w->saylove();Отредактировано KaVaBUnGO (2010-12-06 13:26:24)


