Anime For You - Форум сообщества Анимешников ^__^

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Anime For You - Форум сообщества Анимешников ^__^ » Любовь и Секс » Наш ответ Чемберлену


Наш ответ Чемберлену

Сообщений 1 страница 5 из 5

1

Вот почитал я значит темку "Как сказать "Я тебя люблю!" на 88 языках" и решил сделать такую же, но для извращенцев(программистов). Я не стал брать все языки, т.к это весьма геморно, а ограничился наиболее известными =)

Итак-с, приступим-с...

Как сказать "Я тебя люблю" на выборке из n языков, где  n Єhttp://upload.wikimedia.org/math/6/2/4/624e4cf68723f677d53e8cf2272f348a.png

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)

0

2

*писк из под стола* мааааааааать........  :canthearyou:

0

3

Riddie-Belk^^ написал(а):

*писк из под стола* мааааааааать........

ну это не для нас писалось, так что не расстраивайся ^^

0

4

Следует подметить на сколько каваен код на языке Befunge  http://monstric.j-net.ru/get/photo/fullsize/ce.gif

0

5

KaVaBUnGO написал(а):

Следует подметить на сколько каваен код на языке Befunge  http://monstric.j-net.ru/get/photo/fullsize/ce.gif

ахахахах)))

0


Вы здесь » Anime For You - Форум сообщества Анимешников ^__^ » Любовь и Секс » Наш ответ Чемберлену