Вот почитал я значит темку "Как сказать "Я тебя люблю!" на 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 Return
AmigaE
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 tell
Befunge
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('Я тебя люблю.') END
Haskell
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('Я тебя люблю') end
Pascal
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 "Я тебя люблю!" end
SNOBOL4 & SPITBOL
OUTPUT = 'Я тебя люблю!' END
Turing
loop put "Я тебя люблю" end loop
Xip
@Class love : XipObject { @Public { saylove(); } } @Define love; @Method love::saylove() { "Я тебя люблю"->print(); } @Local w = :love->new(); w->saylove();
Отредактировано KaVaBUnGO (2010-12-06 13:26:24)