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

24 Дек
2011

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

Хочу сделать вам небольшой подарок: поздравления с новым годом на более чем 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" %>
<%
Response.Write('Happy New Year!');
%>


ASSEMBLER (Intel 80×86; 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"
По материалам Хабрахабр.



загрузка...

Комментарии:

Наверх