Wishing you a multilingual Christmas

C#:

var Christmas = "beer ";
var NewYear = "more beer";

if (Christmas + NewYear == "beer more beer")
    Console.WriteLine("festive hangover");

C++:

string Christmas = "beer ";
string NewYear = "more beer";
if (Christmas + NewYear == "beer more beer")
  cout << "festive hangover\n";

Haskell:

let after a b = if b ++ a == "beer more beer" then "festive hangover" else ""
let Christmas = "beer "
let NewYear = "more beer"
main = putStrLn $ NewYear `after` Christmas

D:

string Christmas = "beer ";
string NewYear = "more beer";
if (Christmas ~ NewYear == "beer more beer")
  writeln("festive hangover");

IBM RPGIV

FXMASDF cf e workstn

D Christmas S 10 inz("beer")

D NewYear S 10 inz("more beer")

/free

if %trimR(Christmas) + %trimR(NewYear) = "beer more beer"

warning = ""festive hangover"

exfmt     message_rec

/end-free

Bash:

CHRISTMAS='beer '
NEW_YEAR='more beer'

if [[ $CHRISTMAS$NEW_YEAR='beer more beer' ]]; then
  echo 'festive hangover'
fi

Go:

package main

func main() {
  christmas := "beer "
  newYear := "more beer"
  if christmas+newYear == "beer more beer" {
    println("festive hangover")
  }
}

Tcl:

set christmas "beer "
set newYear "more beer"
if {"$christmas$newYear" == "beer more beer"} {
  puts "festive hangover"
}

(oh, also, please don't use === for equality in Ruby, it works in this case, but String === "beer more beer" would also be true. So can you change it to == instead? Pretty please :)

How can I use code syntax for actionscript ?

Perl

$Xmas= "beer ";
$NewYear = "more beer";
if ($Xmas.$NewYear eq "beer more beer") {
  print "festive hangover";}

Lua

christmas="beer "
newYear="more beer"
if christmas..newYear=="beer more beer" then
    print ("festive hangover")
end

Java

public static void main(String[] args) {
    String xmas = "beer ";
    String newYear = "more beer";

    if ((xmas + newYear).equals("beer more beer")) {
        System.out.println("festive hangover");
    }

}

Lisp

(let ((a "beer ")(b "more beer"))
 (if (string= (concatenate 'string a b) "beer more beer")
  (print "festive hangover")))
</code></pre>

@hauleth Did you perhaps mean ~? + doesn't do that in D...

Erlang:

-module(xmas).
-export([main/0]).

main() ->
    Xmas = "beer ",
    NewYear = "more beer",

    case Xmas ++ NewYear of
        "beer more beer" ->
            io:fwrite("festive hangover~n");
        _ ->
            ok
    end.

Erlang (recursive approach):

-module(xmas).
-export([main/0]).

drink(Beer="beer") ->
    drink([Beer|"more beer"]);

drink(["beer"|"more beer"]) ->
    io:fwrite("festive hangover~n").

main() ->
    drink("beer").

F#

let Christmas, NewYear = "beer ", "more beer"
if Christmas + NewYear = "beer more beer" then printfn "festive hangover"

Swift
let Christmas="beer "
let NewYear="more beer"

if Christmas+NewYear=="beer more beer" {
     println("festive hangover")
}