Поздравление с Новым 2012 годом на 150 языках

    Уважаемые Хабравчане!
    Поздравляю вас с наступающим новым годом! Желаю Вам творческих успехов, карьерного, интеллектуального и духовного роста!

    Хочу сделать вам небольшой подарок: поздравления с новым годом на более чем 150 языках программирования!

    image

    А+



    a Happy New Year in A+
    ‘Happy New Year’


    ABAP


    Report Happy_New_Year.
    Write: "Happy New Year".


    ABC


    WRITE “Happy New Year”


    ADA


    -- Happy New Year
    with Text_IO;
    use Text_IO;
    procedure HappyNewYear is
    begin
        Put_Line("Happy New Year");
    end HappyNewYear;


    Alep


    # Happy New Year in Aleph
    println "Happy New Year"


    Algae


    printf("Happy New Year\n");


    ALGOL


    'begin'
       outstring(2, 'Happy New Year');
    'end'


    Amos


    PRINT "Happy New Year"


    APL


    ‘Happy New Year’


    ASP (Active Server Page)


    <%@ language="javascript" %>
    <html><body>
    <%
      Response.Write('Happy New Year!');
    %>
    </body></html>


    ASSEMBLER (Intel 80x86; DOS,MASM)


    .MODEL tiny
    .CODE
            ORG 100h
    HAPPY          PROC
            MOV     AH,09h
            LEA     DX,msg
            INT     21h                     ;Display Happy New Year
            MOV     AX,4C00h                ;Exit to DOS
            INT     21h
    HAPPY          ENDP
            msg     DB      'Happy New Year$'
            END     HAPPY


    awk


    BEGIN {
      print "Happy New Year"
    }


    BASIC


    PRINT "Happy New Year"


    BCPL


    GET "LIBHDR"
    
    LET START () BE
    $(
        WRITES ("Happy New Year!*N")
    $)     


    BETA


    (#
    do
       'Happy New Year' -> putline
    #)
    


    Blue


    class HappyNewYear is
    ==
    == HappyNewYear-Klasse
    ==  
    interface
        creation is
          == Erzeugt das HappyNewYear-Objekt
          do
            printIt
          end creation
      routines
        printIt is
          == prints Happy New Year
          do
            print("Happy New Year\n")
          end printIt
    end class


    Brain


    #! this is also a single line comment
    {- and a multi-liine
       comment. -}
    "Happy New Year" println.


    C


    #include <stdio.h>
    main() {
       printf("Happy New Year\n");
    }


    C#


    using System;
    class HappyNewYear {
       static void Main() {
          Console.WriteLine("Happy New Year");
       }
    }


    C++


    #include<iostream>
    int main(){
     std::cout<<"Happy new year!"<<std::endl;
     return 0;
    }


    Click


    #include <stdio.h>
    
    cilk void main()
    {
       printf("Happy New Year\n");
    }


    CLAIRE


    [ main() -> printf("Happy New Year\n") ]


    Clipper


    ? "Happy New Year"
    quit


    COBOL


    IDENTIFICATION DIVISION.
    PROGRAM-ID. HappyNewYear.
    AUTHOR. Fabritius.
    
    ENVIRONMENT DIVISION.
    CONFIGURATION SECTION.
    INPUT-OUTPUT SECTION.
    
    DATA DIVISION.
    FILE SECTION.
    WORKING-STORAGE SECTION.
    LINKAGE SECTION.
    
    PROCEDURE DIVISION.
    DISPLAY "Happy New Year".
    STOP RUN. 


    Concirrent Clean


    module HappyNewYear
    import StdEnv
    
    Start :: String
    Start = "Happy New Year"
    


    Cook


    [print "Happy New Year"];


    COSY INFINITY


    BEGIN ;
       WRITE 6 'Happy New Year' ;   { 6 ist Stdout }
    END ;


    C-Talk


    cout << "Happy New Year\n";


    Curl


    {curl 1.7 applet}
    {applet license = "personal"}
    Happy New Year


    Cyclon


    #include <stdio.h>
    
    int main() {
      printf("Happy New Year\n");
      return 0;
    }


    Dbase


    ? "Happy New Year"
    return


    DOS Batch


    @ECHO OFF
    ECHO Happy New Year
    Dylan
    define method Happy-New-Year()
          format-out("Happy New Year\n");       
    end method Happy-New-Year;
    
    Happy-New-Year();


    E


    println( "Happy New Year" )


    Eiffel


    indexing
            title:  "Happy New Year";        
            author: "rgen3";
            
    class MAIN creation
            make
                    
    feature
            make is
            do
               io.put_string("Happy New Year");
               io.new_line
            end -- make
    end -- class MAIN


    Emerald



    const HappyNewYear ==
    
       object HappyNewYear
          process
             stdout.putstring["Happy New Year\n"]
             stdin.close
             stdout.close
          end process
       end HappyNewYear


    Erlang


    io:fwrite("Happy New Year~n").    %% im Eingabemodus


    Euphoria


    puts (1, "Happy New Year\n")


    FISh


    output "Happy New Year" ;;


    FOP


    .box
    Happy New Year !!!
    .ende


    Forth


    ." Happy New Year"


    Fortran

    PROGRAM HappyNewYear
       PRINT *, "Happy New Year"
    END PROGRAM HappyNewYear


    FOX


    ? "Happy New Year"
    return


    Gofer


    show "Happy New Year"


    Haskell


    -- file: Main.hs
    -- compile: ghc --make Main -o main
    
    module Main (main) where
    
    main = putStr "Happy New Year\n"


    HB (Hyper Builder)


    # definiere ein Objekt HappyNewYear
    :set HappyNewYear
    <b>HappyNewYear</b>
    :
    
    # definiert das Startobjekt, welches man mittels URL aufrufen kann
    :out main
    <html><head></head><body>
    <HappyNewYear>   <!-- ruft das Objekt HappyNewYear auf -->
    </body></html>


    Hope


    "Happy New Year\n";


    HTML


    <html>
    <head>
       <title>Happy New Year</title>
    </head>
    <body>
       Happy New Year
    </body>
    </html>


    IBM EXEC


    &CONTROL
    *
    &TYPE Happy New Year!
    *
    &EXIT 0
    
    <h4>Icon</h4>

    procedure main(args)
       write("Happy New Year\n")
    end


    J


    'Happy New Year'


    Java (Applet)


    import java.applet.*;
    import java.awt.*;
    
    public class HappyNewYear extends Applet {
       public void paint(Graphics g) {
          g.drawString("Happy New Year",10,10);
       }


    JavaScript


    <html>
      <head>
        <title>Javascript Happy New Year</title>
      </head>
      <body>
    
        <script>
           document.write("Happy New Year!");
        </script>
    
      </body>
    </html>


    K


    ` 0:"Happy New Year\n"


    LaTeX


    \documentclass[a4paper]{report}
    \title{Happy New Year in LaTeX}
    \begin{document}
    Happy New Year
    \end{document}


    Leda


    include "std.led";
    
    begin
       print("Happy New Year");
    end;


    LIRL


    print "Happy New Year"


    Lisp


    (print "Happy New Year")


    Logo


    print [Happy New Year]


    Lout


    @SysInclude {doc}
    @Doc @Text @Begin
    Happy New Year
    @End @Text


    Lua


    print("Happy New Year\n")


    Make


    main-target: 
        @echo "Happy New Year"


    Mercury


    % compile with:
    %   mmake Happy.depend
    %   mmake Happy
    
    :- module Happy.
    :- interface.
    :- import_module io.
    
    % di=desctructive input, uo=unique output
    :- pred main(io__state::di, io__state::uo) is det.
    
    :- implementation.
    
    % "-->" tells that we are using DCG (definite clause grammar), which frees us
    % from threading some extra arguments through the code.
    main --> io__write_string("Happy New Year\n").


    merd


    "Happy New Year!".println


    Miranda


    "Happy New Year!"


    Moby


    module Main {
      val () = ConsoleIO.print "Happy New Year\n"
    }


    Modula


    MODULE HappyNewYear;
    
    FROM InOut IMPORT WriteString, WriteLn;
    
    BEGIN
       WriteString('Happy New Year');
       WriteLn;
    END HappyNewYear.


    MUMPS


    HAPPY   W "Happy New Year",!
            Q


    NESL


    print_string("Happy New Year\n");


    Oberon


    MODULE HappyNewYear;
    
    IMPORT Out;
    
    BEGIN
       Out.Open;
       Out.String('Happy New Year');
    END HappyNewYear.


    Objective-C


    void main()
    {
       printf("Happy New Year\n");
    }


    Objective Calm


    print_string("Happy New Year\n");;


    Obliq


    sys_printText("Happy New Year\n");


    Octave


    printf("Happy New Year\n")


    Oz/Mozart


    % Happy New Year!!!
    
    {Show 'Happy New Year'}


    Parrot


    print "Happy New Year\n"


    Pascal


    PROGRAM HappyNewYear;
    
    BEGIN
       WRITELN('Happy New Year');
    END.


    Perl


    print "Happy New Year\n";


    Phantom


    (* Happy New Year! *)
    
    module HappyNewYear;
    
    import stdio;
    
    begin
       stdio.puts("Happy New Year\n");
    end HappyNewYear.


    PHP



    <?php
       echo "Happy New Year\n";
    ?>


    Pico


    {
       "da es in Pico keine Kommentare gibt,";
       "verwende ich einfach Strings.";
       
       display('Happy New Year', eoln)
    }


    Pike


    void main()
    {
       write("Happy New Year\n");
    }


    PL/0E


    PROGRAM HappyNewYear;
    
    BEGIN
       WRITELN('Happy New Year');
    END.


    PL/1


    HAPPY: PROCEDURE OPTIONS (MAIN);
    
      PUT SKIP LIST('HAPPY NEW YEAR!');
    
    END HAPPY;


    PL/SQL


    BEGIN
      DBMS_OUTPUT.put_line('Happy New Year');
    END;


    Pliant


    console "Happy New Year" eol


    Posrscript


    % Happy New Year
    
    /Courier findfont 
    28 scalefont
    setfont
    0 0 moveto
    (Happy New Year) show     % Text links unten ausgeben
    showpage


    Profan


    PRINT "Happy New Year"


    Prolog


    ?- write('Happy New Year'), nl.


    Python


    print "Happy New Year"


    R


    print("Happy New Year")


    Rebol


    [Title: "Happy New Year"
    Date: 1-Jan-2012
    File: %webscan.r
    Author: "Rgen3"
    Version: 1.2.3
    print "Happy New Year"]


    REXX


    SAY "Happy New Year"


    Ruby


    "Happy New Year\n".display


    Sather


    class MAIN is
    
       main is
          #OUT + "Happy New Year\n";
       end; -- main
       
    end; -- class MAIN


    Sceme


    (display "Happy New Year")


    Shell-Sprachen


    echo Happy New Year


    Simula


    begin
       OutText("Happy New Year");
       OutImage
    end


    Sina


    class HappyNewYear interface
       methods
          show returns nil;      
       inputfilters
          disp: Dispatch = {inner.*};    
    end;
    
    class HappyNewYear implementation
       methods      
          show
          begin
             self.printLine('Happy New Year');
          end;      
    end;
    
    
    main
       temps
          Happy: HappyNewYear;   
       begin
          Happy.show
       end


    Sirius


    PROGRAM Happy_New_Year
       OUTPUT ('Happy New Year')
    END


    Sisal


    define main
    
    function main(returns array [Character])
       "Happy New Year"
    end function


    Smalltalk


    'Happy New Year' out.


    SML


    print "Happy New Year\n";


    SNOBOL


    OUTPUT = 'Happy New Year'
    END


    SQL


    SELECT 'Happy New Year'


    Superbase


    ? "Happy New Year!"


    Tcl


    puts "Happy New Year"
    TI-83 Graphing Calculator
    :Disp "Happy New Year"


    TOM


    implementation class HappyNewYear
    
       int main Array argv
       {
          [[[stdio out] print "Happy New Year"] nl];
          return 0;
       }
    
    end;
    
    implementation instance HappyNewYear end;


    Turing


    put "Happy New Year"


    TXL


    define program
        [repeat token]
    end define
    
    % Main transformation rule - whatever the input,
    % transform it into Happy New Year
    function main
        replace [program]
            _ [program]
        by
            "Happy New Year"
    end function


    UFO


    main : String is
       "Happy New Year\n"


    VHDL


    ENTITY HappyNewYear IS
    END HappyNewYear;
    
    ARCHITECTURE bhv OF HappyNewYear IS
    
    BEGIN
    
    ASSERT FALSE
    REPORT "HAPPY NEW YEAR"
    SEVERITY NOTE;
    
    END bhv;


    Vim



    :echo "Happy New Year"  


    WebL



    PrintLn("Happy New Year");


    WML (Wireless Markup Language)


    <?xml version="1.0"?>
    <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
    
    <!-- Happy New Year in WML -->
    <wml>
       <card id="Happy_New_Year" title="Happy New Year">
          <p>Happy New Year</p>
       </card>
    </wml>


    XPL0


    code Text=12;
    Text(0, "Happy New Year");


    Yacas


    WriteString("Happy New Year");


    YAFL


    DEFINITION MODULE HappyNewYear;
    
       CLASS HappyClass;
          METHOD CREATE;
          METHOD Main;
       END HappyClass;
       
    END HappyNewYear;
    
    IMPLEMENTATION MODULE HappyNewYear;
       FROM Streams IMPORT StdOut;
     
       CLASS HappyClass;
                
          METHOD CREATE;         
             BEGIN
             -- wird aufgerufen um das Objekt zu initialisieren
             Main;
             END;
             
          METHOD Main;
             BEGIN
             StdOut.WriteLine ("Happy New Year");
             END Main;
             
       END HappyClass;
       
    END HappyNewYear;


    Yoix


    import yoix.stdio.*;
    
    printf("Happy New Year\n");


    Yorick


    write, "Happy New Year\n"
    Share post

    Similar posts

    AdBlock has stolen the banner, but banners are not teeth — they will be back

    More
    Ads

    Comments 69

      +1
      Еще целая рабочая неделя впереди, а у народа уже праздничное настроение…
        0
        Сочельник ведь, праздник уже почти наступил. Теперь люди празднуют зимой два рождества + два новых года)
          –1
          Видимо просто меня неправильно воспитали в русской православной среде.
        +9
        В C++ следовало бы использовать поточный вывод.
          +5
          в смысле
          #include<iostream>
          int main(){
           std::cout<<"Happy new year!"<<std::endl;
           return 0;
          }
          
            0
            Да и «return 0;» не нужен.
              +2
              return 0 не нужен если бы там был void
                0
                и без void'а он не нужен: main — единственная функция, не требующая явного указания этого оператора
              0
              using namespace std не?
                +6
                strlen("std::") * 2 == 10
                strlen ("using namespace std;") > 10


                не говоря о том, что использование этой директивы — плохой тон, т.к. загрязняется глобальная область видимости
            +63
            Ищем Hello world на 150 языках
            заменяем «Hello world» на «Happy new year!»
            ????
            PROFIT
              –13
              Да, дело не в «profite», просто хочу поделиться праздничным настроением )
                –3
                Да. На работе админы тоже считают дни до праздника, втихаря разливают коньяк и клали на свою работу. На бою вечно что-то падает, ни один тестовый стенд до ума допилить не хотят. Хочется временами вырвать патчкорд и задушить парочку. С наступающим всех.
              • UFO just landed and posted this here
                +1
                Да, было бы прилично указать, что это не оригинальный материал, и даже не перевод. Если только автор топика по какой-то причине не любит комментировать код на немецком.
                  +2
                  Вот, собственно, первоисточник
                  www.ntecs.de/old-hp/uu9r/lang/html/lang-all.en.html
                  +4
                  А где же так любимый тут Brainfuck?
                    +7
                    Как-то так, только сильно длинно:
                    >++++++++++[>+++++++>++++++++++>
                    +++++++++++>+++++++++++>++++++++
                    ++++>+++>++++++++>++++++++++>+++
                    +++++++++>+++>+++++++++>++++++++
                    ++>++++++++++>+++++++++++><<<<<<
                    <<<<<<<<<-]>++>--->++>++>+>++>-->+>
                    ->++>->+>--->++++><<<<<<<<<<<<<<<>.
                    >.>.>.>.>.>.>.>.>.>.>.>.>.

                    Оптимизировать лень :-)
                      +18
                      Тут же контекстной заменой не обойдешься, надо разбираться, видимо, автор не осилил.
                        0
                        я ждал этого вопроса :)
                        +1
                        а разве есть такой язык — Parrot? Это, вроде бы, виртуальная машина для динамических языков (например, Perl 6)
                          +1
                          Тем не менее внутри него есть внутренний ассемблер под который тоже можно писать
                          это так же как писать под llvm или RTL
                            +2
                            Довольно высокоуровневой ассемблер, как я погляжу)
                            +1
                            vim — тоже не язык, а редактор =)
                            • UFO just landed and posted this here
                              +4
                              Как и html, вроде тоже не язык программирования.
                              0
                              Спасибо, человечище, искренне стал улыбаться на ~4-5 пункте, начал ржать от радости на ~9+ :)
                                0
                                Анимация просто песня
                                  +2
                                  Да, мне тоже захотелось ударить того, кто это сделал.
                                  +9
                                  CSS:
                                  body:after{content:'Happy new year!'}
                                    +4
                                    Вариант на Visual Basic:

                                    Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
                                    Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
                                    
                                    Sub Main()
                                        TextOut GetWindowDC(0), 0, 0, "Happy new year!", 15
                                    End Sub
                                    
                                      0
                                      messagebox?
                                        0
                                        Тогда уж родной MsgBox
                                          0
                                          Я думал об этом, но решил сделать по аналогии с JavaScript (да и многими другими языками), ведь там не используется alert, а используется writeln.
                                        0
                                        Seems legit.
                                          0
                                          неоптимально
                                            +7
                                            Q\A _
                                            q1 H r q2
                                            q2 a r q3
                                            q3 p r q4
                                            q4 p r q5
                                            q5 y r q6
                                            q6 _ r q7
                                            q7 N r q8
                                            q8 e r q9
                                            q9 w r p1
                                            p1 _ r p2
                                            p2 Y r p3
                                            p3 e r p4
                                            p4 a r p5
                                            p5 r n p6
                                            p6 ! r p7
                                            p7 halt


                                            Машина Тьюринга
                                              +1
                                              Мне бы точно задолбалось форматировать статью.
                                                0
                                                о да))))))))))))
                                                я бы тоже задолбалась)
                                                но ТС все таки молодец)))
                                                ахах
                                                повеселил
                                                  +8
                                                  Отсыпьте вашего настроения.
                                                  –1
                                                  В почти любом современном текстовом редакторе можно заменить любое слово, или сочетание слов во всем тексте сразу.
                                                  +7
                                                  Я не мог просто сидеть сложа руки.

                                                  Исходник (сжатый, чтобы влезть в 1Kb): gist.github.com/1516371
                                                  Результат: habrastorage.org/storage2/26e/666/758/26e666758c10a42e01aa2f72a3b3facf.png
                                                  • UFO just landed and posted this here
                                                      0
                                                      Так и есть. Автор немного опечатался.
                                                      Dylan — динамический объектно-ориентированный язык программирования, нацеленный на быструю разработку программ, разработанный, прежде всего, усилиями Apple. (wiki)

                                                      +2
                                                      Я могу есть стекло, оно мне не вредит.
                                                        +3
                                                        Что ж, а я напишу самое лаконичное поздравление с новым годом
                                                        y

                                                        Это написано на языке YHQ9+. Для тех, кто до сих пор не использует этот замечательный язык, я выкладываю код интерпретатора на Python: pastebin.ca/2096143

                                                        PS. Pastebin.com лежит =(
                                                          +1
                                                          Язык программирования Google Go:
                                                          package main;
                                                          
                                                          func main() {
                                                              print("Happy New Year!\n");
                                                          }
                                                          
                                                            0
                                                            <зануда>Для Erlang'а скорее будет io:format(«happy New Year!~n»).</зануда> но это не принципиально :)
                                                              0
                                                              А меня SQL не устраивает, что за просто SELECT один :)
                                                                +1
                                                                image
                                                                  +7
                                                                  1C

                                                                  Процедура Сформировать()
                                                                  Предупреждение(«С новый годом!»);
                                                                  КонецПроцедуры;

                                                                  =)
                                                                    +3
                                                                    Прям предупреждение?:)
                                                                      +3
                                                                      Строгое.
                                                                  • UFO just landed and posted this here
                                                                      +1
                                                                      Все, распечатаю и гостям листинги на тарелку вместо салфеток :)
                                                                        +2
                                                                        А где же sh/bash/zsh? А ещё коменты на немецком непонятны.
                                                                          +1
                                                                          Ах, да, ещё, кто такой: AUTHOR. Fabritius.Это в COBOL'е.
                                                                          +4
                                                                          Ruby

                                                                          «Happy New Year\n».display

                                                                          ЭЭЭЭЭ…

                                                                          puts «Happy New Year» ??
                                                                            0
                                                                            ошибка: Objective Calm -> Objective Caml
                                                                              +2
                                                                              На Java (не апплет) почему-то нет:

                                                                              class HappyNewYear {
                                                                                  public static void main( String[] args ) {
                                                                                      System.out.prinln("Happy New Year!");
                                                                                  }
                                                                              }
                                                                              
                                                                              • UFO just landed and posted this here
                                                                                  +1
                                                                                  Странно, что про Delphi забыли:

                                                                                  program Helloworld;
                                                                                  {$APPTYPE CONSOLE}
                                                                                  begin
                                                                                    writeln('Hello, world!');
                                                                                  end.
                                                                                    0
                                                                                    И про Groovy:

                                                                                    'Ha' + 'p'*2 + 'y New Year'
                                                                                      +1
                                                                                      package main
                                                                                      import fmt "fmt"
                                                                                      	
                                                                                      func main() {
                                                                                          fmt.Printf("Happy New Year")
                                                                                      }


                                                                                      Если выше уже не привели листинг на языке Go.
                                                                                        0
                                                                                        Странно что добавили Octave, но проигнорили Matlab. Октава все-таки клон Матлаба, и язык оттуда один в один скопирован.
                                                                                          0
                                                                                          Когда увидел елку, из моих глаз начала течь красная жидкость.
                                                                                            0
                                                                                            На Objcetive-C надо было тогда уж делать с использованием классов, например так:

                                                                                            #import <Cocoa/Cocoa.h>
                                                                                            
                                                                                            int main()
                                                                                            {
                                                                                                NSDate * today = [NSDate date];
                                                                                                NSDateFormatter * formatter = [[NSDateFormatter alloc] init];
                                                                                                [formatter setDateFormat: @"YYYY"];
                                                                                                NSString * message = [NSString stringWithFormat: @"Happy New Year %@!", [formatter stringFromDate: today]];
                                                                                                NSLog(@"%@", message);
                                                                                                [formatter release];
                                                                                            }
                                                                                            
                                                                                              0
                                                                                              На чистом JavaScript скорей console.log('Happy new year!');
                                                                                              Кстати было бы забавней, если бы каждому языку программирования еще и соответствовали разные языки у строки «Happy new year!».

                                                                                              Only users with full accounts can post comments. Log in, please.