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

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

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

А+

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" %>
<%
Response.Write('Happy New Year!');
%>


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 <stdio.h>

int main(int argc, char *argv[])
{
printf("Happy New Year\n");
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
HappyNewYear
:

# definiert das Startobjekt, welches man mittels URL aufrufen kann
:out main

Hope

"Happy New Year\n";

HTML

Happy New Year

Happy New Year



IBM EXEC

&CONTROL
*
&TYPE Happy New Year!
*
&EXIT 0

Icon

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

Javascript Happy New Year






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

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



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"