Lumber room
24 December 2011

Поздравление с Новым 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"

+33
546 56
Comments 69