rgen3 Dec 24 2011 at 01:00

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

7 min

3.3K

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

Хочу сделать вам небольшой подарок: поздравления с новым годом на более чем 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" %>
<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"

Tags:

Hubs:

Lumber room