У вашего любимого языка программирования только что был день рождения. Будь милым и пой песню Happy Birthday .

Конечно, вы должны сделать это, написав программу на этом языке. Программа не принимает никаких данных и записывает следующий текст в стандартный вывод или произвольный файл:

Happy Birthday to You
Happy Birthday to You
Happy Birthday Dear [your favourite programming language]
Happy Birthday to You

Вы должны заменить часть в скобках (и опустить скобки).

Это код гольфа - выигрывает самый короткий код.

ОБНОВИТЬ

Я рад, что этот вопрос вызвал большой интерес. Позвольте мне добавить дополнительную информацию о выигрыше. Как было заявлено изначально, этот вопрос относится к коду гольфа, поэтому самый короткий код выиграет. Победитель будет выбран в конце этой недели (19 октября).

Тем не менее, я также награждаю другие остроумные представления повышающими голосами (и я призываю всех сделать то же самое). Поэтому, хотя это соревнование по коду-гольфу, не очень короткие ответы также приветствуются.

Результаты

Поздравляет оптимизатор , победитель этого конкурса с его 42 байтами длинным, CJam представления .

CJam, 46 42 байта

"Happy Birthday to You
"___F<"Dear CJam
"@

Как это устроено:

"Happy Birthday to You
"___                          "Push "Happy Birthday to You\n" string to stack 4 times";
    F<                        "From the last string, take only first 15 characters. F is a";
      "Dear CJam              "preinitialized variable whose value is 15";
"                             "Push "Dear CJam\n" to stack";
 @                            "Take the third string from end and put it to end";

Это оставляет стек следующим образом в конце кода:

["Happy Birthday to You
" "Happy Birthday to You
" "Happy Birthday " "Dear CJam
" "Happy Birthday to You
"]

которые печатаются автоматически для вывода в виде

Happy Birthday to You
Happy Birthday to You
Happy Birthday Dear CJam
Happy Birthday to You

Попробуйте здесь (скопируйте код и запустите)

ЛОКОЛОД: 109 (105 с «правильным» написанием)

LOLCODE не очень хороший язык для игры в гольф, тем более что вы теряете всю красоту и выразительность при сокращении кода.

HAI
H R "HAPPY BIRTHDAY "
T R SMOOSH H "TO YOU"
VISIBLE T
VISIBLE T
VISIBLE SMOOSH H "DEAR LOLCODE"
VISIBLE T

Проверьте это с помощью loljs

Это мое предпочтительное исполнение весом 187 символов (для ясности добавлены пробелы):

HAI
H R "HAPPY BERFDAY "
IM IN YR LOOP UPPIN YR N TIL BOTH SAEM N AN 4
  VISIBLE H!
  BOTH SAEM N AN 2, O RLY?
    YA RLY
      VISIBLE "DEER LOLCODE"
    NO WAI
      VISIBLE "2U"
    OIC
IM OUTTA YR LOOP
KTHXBAI

Mathematica - пожелания дня рождения со штрих-кодом - слишком много байтов

Это печатает стихи и читает их вслух.

С Днем Рождения
С Днем Рождения
С Днем Рождения Уважаемый Mathematica
С Днем Рождения Вас

StringReplaceзаменяет каждую запятую на NewLine. Штрих-коды не могут содержать управляющие символы.

TI-Basic, 53 байта

Ну, так как все выкладывают свой любимый язык программирования, я мог бы также добавить один из моих старых любимых. За эти годы я потратил много времени (до того, как перешел на настоящие языки программирования), набирая команды в окне, вдвое меньше смартфона.

"HAPPY BIRTHDAY TO YOU
Disp Ans,Ans,sub(Ans,1,15)+"DEAR TI-BASIC
Ans

Мой калькулятор не поддерживает строчные буквы, и единственными переменными, которые могут быть строками, являются Str1, Str2 и т. Д.

Sed, 60 55 байт

(1 символ добавлен, потому что нет способа заставить sedработать без ввода.)

s/^/Happy Birthday To You/
h
G
G
G
s/To You/Dear sed/3

Конечно, не победитель, размещенный, чтобы продемонстрировать sedредкую s///особенность замены только n- ^го случая.

bash-4.3$ sed 's/^/Happy Birthday To You/;h;G;G;G;s/To You/Dear sed/3' <<< ''
Happy Birthday To You
Happy Birthday To You
Happy Birthday Dear sed
Happy Birthday To You

Сед (короче, но не интересно): 52 символа

s/^/Happy Birthday To You/
h
G
p
s/To You/Dear sed/

Образец прогона:

bash-4.3$ sed 's/^/Happy Birthday To You/;h;G;p;s/To You/Dear sed/' <<< ''
Happy Birthday To You
Happy Birthday To You
Happy Birthday Dear sed
Happy Birthday To You

C 73 байта

main(c){for(;c-5;)printf("Happy Birthday %s\n",++c-4?"To You":"Dear C");}

Питон, 61 60 59

H="\nHappy Birthday to You"
print(H*3)[:60]+"Dear Python"+H

ш, 52

H()(echo Happy Birthday ${@-to You});H;H;H Dear sh;H

ArnoldC , 228 байт

Давайте заставим Арнольда Шварценеггера петь ...

IT'S SHOWTIME
TALK TO THE HAND "Happy Birthday to You"
TALK TO THE HAND "Happy Birthday to You"
TALK TO THE HAND "Happy Birthday Dear ArnoldC"
TALK TO THE HAND "Happy Birthday to You"
YOU HAVE BEEN TERMINATED

выход:

Happy Birthday to You
Happy Birthday to You
Happy Birthday Dear ArnoldC
Happy Birthday to you

APL (48)

↑1⌽'Happy birthday '∘,¨(3/⊂'to you'),⊂'dear APL'

Язык программирования Шекспира , 3429 байт

никто не будет настолько безумен, чтобы принять участие в состязании по коду для игры в гольф с SPL, так что ...

Мои собственные слова, некоторое время назад. И все же, кто-то был достаточно сумасшедшим, чтобы сделать это. Да, да, я знаю. Слишком много байтов. Но SPL заслуживает включения сюда, я думаю. И поверьте мне, я приложил огромные усилия, чтобы «сыграть в гольф» эту программу, поэтому она несколько повторяется и использует в основном одни и те же слова (я всегда мог последовать совету DLosc , но это было бы слишком экстремально даже для меня) ,

A Happy Birth Day

Ajax, a hero
Ford, a man

          Act I: 1

          Scene I: 1

[Enter Ajax and Ford]

Ajax:
 You are nothing!

          Scene II: 2

Ford:
 Am I nicer than the sum of a big cow and a son?

Ajax:
 If so, we shall go to Scene V. You are as big as the sum of thyself and a cat!

          Scene III: 3

Ford:
 You are as red as the sum of a big red warm rich bold fair cat and a big rich fine son.
 Speak thy mind! You are as big as the sum of thyself and the sum of a cute fair fine
 rich cat and a hog! Speak thy mind! You are as big as the sum of thyself and the sum
 of a cute fair fine rich cat and a hog. Speak thy mind. Speak thy mind! You are as bold as
 the sum of thyself and the sum of a big fine fair cat and a cow. Speak thy mind! You are
 as big as a red old fair fine tiny cow. Speak thy mind! You are as old as the sum of
 thyself and the sum of a red old fair fine tiny cow and a big joy. Speak thy mind.
 You are as red as the sum of thyself and the sum of the sum of a red old fair fine
 tiny cow and a rich old red sky and a pig. Speak thy mind! You are as old as the sum
 of thyself and the sum of a big fine fair joy and a son. Speak thy mind. You are as
 red as the sum of thyself and a cute son. Speak thy mind! You are as cute as the sum
 of thyself and the sum of a bad fat vile pig and a fat bad lie. Speak thy mind! You are
 as fat as the sum of thyself and a vile evil war. Speak thy mind! You are as vile as the
 sum of thyself and the sum of a pig and a toad. Speak thy mind! You are as fair as the
 sum of thyself and the sum of a big fair hard fine son and a red fine fair joy. Speak
 thy mind! Are you as old as a big cow?

Ajax:
 If so, we shall go to Scene IV.

Ford:
 You are as big as a red old fair fine tiny cow. Speak thy mind! You are as old as the sum
 of thyself and the sum of the sum of a big red warm rich bold fair cat and a red old fair
 fine tiny cow and a bad hog. Speak thy mind! You are as big as the sum of thyself and the
 sum of a fat bad hog and a war. Speak thy mind! You are as big as a red old fair fine tiny
 cow. Speak thy mind! You are as old as the sum of thyself and the sum of a big red warm
 rich bold fair cat and a fat foul bad hog and a son. Speak thy mind. You are as fat as
 the sum of thyself and the sum of the sum of a big fair hard fine son and a big fine
 fair joy and a bad pig. Speak thy mind. 

Ajax:
 Let us return to Scene II.

          Scene IV: 4

Ford:
 You are as big as a red old fair fine tiny cow. Speak thy mind! You are as old as the
 sum of thyself and a big red warm rich bold fair cat and a warm sky. Speak thy mind.
 You are as fat as the sum of thyself and the sum of a red old fair fine tiny cow and a
 cat. Speak thy mind. You are as fat as the sum of thyself and a bad foul hog. Speak
 thy mind. You are as cute as the sum of thyself and the sum of a big fair hard fine
 son and a sky. Speak thy mind. You are as big as a red old fair fine tiny cow. Speak thy
 mind! You are as old as the sum of thyself and the sum of thyself and the sum of the sum
 of the sum of a red old fair fine tiny cow and a big fair hard fine son and a big joy and
 a son. Speak thy mind. You are as bad as the sum of thyself and the sum of a fat pig and a
 hog. Speak thy mind. You are as fat as the sum of thyself and a lazy pig. Speak thy mind.

Ajax:
 Let us return to Scene II.

          Scene V: 5

[Exeunt]

Смысл всего этого?

Хорошо, если вам интересно, как все это должно работать, позвольте мне попытаться объяснить мои рассуждения. Во-первых, переменные. Они должны происходить из шекспировских пьес, и, поскольку важен счет тарактеров, мы должны выбирать маленькие; Таким образом Ajaxи Fordпоявляются. После объявления им нужно описание (которое игнорируется, но все же); Я мог бы использовать одну букву, но хе.

Акт I, Сцена I

var Ajax, Ford; Ford = 0;

Мы выводим переменные на сцену и заставляем Ajaxсказать, Fordчто его значение будет равно 0.

Акт I, Сцена II

if (Ford > 2*1+1) goto Scene V; Ford = Ford + 1;

ОК, если значение, хранящееся в Ford, больше 3, программа переходит к сцене V; в противном случае его значение увеличивается.

Акт I, Сцена III

Ford = 2*2*2*2*2*2*1+2*2*2*1; print((char) Ford); Ford = Ford+2*2*2*2*1-1; print((char) Ford); Ford = Ford+2*2*2*2*1-1; print((char) Ford); print((char) Ford); Ford = Ford+2*2*2*1+1; print((char) Ford); Ford = 2*2*2*2*2*1; print((char) Ford); Ford = Ford+2*2*2*2*2*1+2*2*2*1+(-1); print((char) Ford); Ford = Ford+2*2*2*1+1; print((char) Ford); Ford = Ford+2*1; print((char) Ford); Ford = Ford+2*2*2*(-1)+2*2*(-1); print((char) Ford); Ford = Ford+2*2*(-1); print((char) Ford); Ford = Ford+2*(-1)+(-1); print((char) Ford); Ford = Ford+2*2*2*2*1+2*2*2*1; print((char) Ford); if (Ajax == 2*1) goto Scene IV; Ford = 2*2*2*2*2*1; print((char) Ford); Ford = Ford+2*2*2*2*2*2*1+2*2*2*2*2*1+2*(-1); print((char) Ford); Ford = Ford+2*2*(-1)+(-1); print((char) Ford); Ford = 2*2*2*2*2*1; print((char) Ford); Ford = Ford+2*2*2*2*2*2*1+2*2*2*(-1)+1; print((char) Ford); Ford = Ford+2*2*2*2*1+2*2*2*1+2*(-1); print((char) Ford); Ford = Ford+2*2*2*1+2*-1; print((char) Ford); goto Scene II;

Нагрузки и грузы линий. Идея состоит в том, чтобы поиграться со значением, хранящимся в нем Ford, выполняя загрузку и загрузку арифметических операций, чтобы получить число ASCII нужных букв, а затем мы сообщаем компилятору выводить число в символьной форме. Вот как ты пишешь Happy Birthday. Там в ifвнутри этой сцены: идея заключается в том , чтобы проверить , является ли это третья фраза песни; если это так, мы переходим к сцене IV; в противном случае мы продолжим писать to You. После этого мы возвращаемся к сцене II.

Акт I, Сцена IV

Ford = 2*2*2*2*2*1; print((char) Ford); Ford = Ford+2*2*2*2*2*2*1+2*2*1; print((char) Ford); Ford = Ford+2*2*2*2*2*1+1; print((char) Ford); Ford = Ford+2*2*(-1); print((char) Ford); Ford = Ford+2*2*2*2*1+1; print((char) Ford); Ford = 2*2*2*2*2*1; print((char) Ford); Ford = Ford+2*2*2*2*2*1+2*2*2*2*1+2*1+1; print((char) Ford); Ford = Ford+2*(-1)+(-1); print((char) Ford); Ford = Ford+2*2*(-1); print((char) Ford); goto Scene II;

То, как это работает, похоже на сцену выше: идея в том, чтобы писать Dear SPL.

Акт I, Сцена V

End.

Просто так.

Я до сих пор не нашел места, где это можно было бы проверить, к сожалению ...

Рубин, 54 байта

Я просто подумал: «Привет, пока нет ответа Ruby», но потом один появился за несколько секунд до этого. Ну что ж...

puts h="Happy Birthday to You",h,h[0,15]+"Dear Ruby",h

Любая любовь к PHP? 61 59 58 байт

$s="
Happy Birthday";echo$t="$s to You","$t$s Dear PHP$t";

Посмотрите это в действии @ http://sandbox.onlinephpfunctions.com/

Я просто не могу выбрать только один язык: /

BrainBack: 68

4 ["Happy birthday ">2 ->![<0 "to You
"]<[<0 "Dear BrainBack
"]<1 -]

BrainBack - это смесь BrainFuck и Forth, созданная для участия в PCG Mar 7, 2014

Расширенный BrainFuck : 79

{h|"Happy Birthday ">}{t|"to You
">}&h&t&h&t&h|"Dear Extended BrainFuck
">&h&t

День рождения EBF - 16 июля 2010

Схема: 96

(R5RS, Racket, R6RS REPL)

(map(lambda(e)(display"Happy Birthday ")(display(if e "to You\n" "Dear Scheme\n")))'(1 1 #f 1))

Схема родилась в декабре 1975 г. (NB: PDF)

Зозотез : 96

((:'R(\(l)(p'|Happy birthday |())(p(?(a l)'|to You|'|Dear Zozotez|))(?(d l)(R(d l)))))'(t t()t))

Тем не менее, это более правильно делать это по-французски (86):

((:'A(\(l)(p'|Joyeux anniversaire|())(p(a l))(?(d l)(A(d l)))))'(, , | Zozotez,| |.|))

Выход:

Joyeux anniversaire,
Joyeux anniversaire,
Joyeux anniversaire Zozotez,
Joyeux anniversaire.

Zozotez 'день рождения 19 июля 2011

Deadfish ( 2610 2391 символов)

Что это? Выход только вызов? Похоже, это работа для Deadfish !

iiisdsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiiiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioddddoiiiiiiiiiiiiiiiiioddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiiiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioddddoiiioiioiiioiiiiiiiiiiodddddddddddoddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiio

К сожалению, поскольку Deadfish выводит только целые числа, приведенный выше код выводит представления ASCII каждого символа в песне.

Если мы используем спецификацию, которая

Ошибки не признаются: оболочка просто добавляет символ новой строки!

тогда мы можем сыграть в гольф до 2391 символа:

iiisdsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiiofdddddddddddddddddddddddddddddddddddddddddddddoiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiiofdddddddddddddddddddddddddddddddddddddddddddddoiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiiiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioddddoiiiiiiiiiiiiiiiiioddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiiiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioddddoiiioiioiiioiiiiiiiiiiodddddddddddofddddddddddddddddddddddddddddddddoiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiio 

Примечание: Deadfish на самом деле не мой любимый язык, но я не удержался: P. Также игра в гольф в Deadfish сама по себе является забавной головоломкой.

JS, 83 байта

h="Happy Birthday to You\n",console.log(h,h,h.replace("to You\n","Dear")+" JS\n",h)

или 79 байтов @Ingo Bürk

h="Happy Birthday ",t="to You\n",console.log(h+t,h+t,h+"Dear Javascript\n",h+t)

или 71 байт @kapep

console.log(a=(b="Happy Birthday ")+"to You\n",a,b+"Dear Javascript\n",a)

или запустите на консоли эту страницу (42 байта)

eval($("#answer-39759 code:first").text())

R: 70 байт

Использует преимущества pasteи вектор рециркуляции.

writeLines(paste(rep("Happy Birthday",4),c(rep("to You",2),"Dear R")))

T-SQL, 89 87 байт

Изменить: Вероятно, не следует углублять эти старые вещи, но я просто заметил очевидное изменение в этом, чтобы восстановить пару байтов.

Используя STUFF для удаления ненужных частей строки, начальный индекс обеспечивается значениями в FROMпредложении, умноженными на 3

SELECT STUFF('Happy Birthday to You  Dear SQL',N,8,'')FROM(VALUES(24),(24),(15),(24))S(N)

GNU dc, 51

[Happy Birthday to You]d[Happy Birthday Dear dc]rdf

Perl - 58

say"Happy Birthday ".($_?"Dear Perl":"To You")for(0,0,1,0)

Бежать с:

perl -E'say"Happy Birthday ".($_?"Dear Perl":"To You")for(0,0,1,0)'

Просто для удовольствия:

perl -E'for(<HappyBirthday{0,1,2,3}>){s/B/ B/;s/2/ Dear Perl\n/;print s/\d/ To You\n/r}'

Python 507 байт

Распечатать """
H ap py- День рождения-до-у-у = Happy - День рождения
- к - уу = х аппи - в день рождения - д е
ar-Python = Ha ppy - Bir t hda y-to- Y o uHapp y -
B rthday - to - Y ou = H app
y - день рождения от-до -уу = H a ppy - B ир
"" ".replace (" \ n "," "). replace (" "," "). replace (" - "," ") .replace (" = "," \ n ") [: 92]

Не выигрывать призы ... но если вы внимательно посмотрите на это, есть немного искусства ASCII:

# # # ### ### # # ### ##### ### ##### # # ### # # # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # №
#### ##### ### ### # ### # ### # #### # # ##### # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # ### ##### # # # # # ### # # # # #

PowerShell - 69 64 59

1,1,0,1|%{"Happy Birthday "+("Dear $ShellId","To You")[$_]}

и 91

$a,$b,$c="Happy Birthday.To You.Dear PowerShell".Split(".");1..2|%{"$a $b"};"$a $c";"$a $b"

и 108

$a=@();$b,$c="To You.Dear PowerShell".Split(".");1..4|%{$a+="Happy Birthday $b"};$a[2]=$a[2]-replace$b,$c;$a

Руби, 56

x="Happy Birthday To You
"*4
x[59,6]="Dear Ruby"
puts x

Марбелоус , 151

Печатает Happy Birthdayкаждый раз, когда hbвызывается, с добавлением to youили Dear Marbelousдобавлением, в зависимости от того, является ли ввод 0или 1. Переданный мрамор hbне будет выведен, так как он застрянет в синхронизаторе &0.

03
00
02
01
hb
:hb
}0
=0&0
&1
&2//
746F20596F7544656172204D617262656C6F75730A
&0&0&0&0&0&0&1&1&1&1&1&1&1&1&1&1&1&1&1&1&2
486170707920426972746864617920

Ниже приведена доска hbс гексами, преобразованными в текст ascii:

CJam, 46 байтов

4,{"Happy Birthday "\2="Dear CJam""to You"?N}%

Попробуй это здесь.

4,                                             "Push [0,1,2,3].";
  {                                         }% "Map...";
   "Happy Birthday "                           "Push the string.";
                    \                          "Swap top two stack elements (string and
                                                array element)";
                     2=                        "Check equality with 2.";
                       "Dear CJam""to You"     "Push two more strings.";
                                          ?    "Select string based on result of 2=.";
                                           N   "Push a line break";

Это оставляет следующий массив в стеке:

["Happy Birthday " "to You" "\n" "Happy Birthday " "to You" "\n" "Happy Birthday " "Dear CJam" "\n" "Happy Birthday " "to You" "\n"]

Чье содержимое автоматически распечатывается в конце программы.

Альтернативно, с циклом for и тем же количеством символов:

4{"Happy Birthday "I2="Dear CJam""to You"?N}fI

Haskell: 75

h="Happy Birthday "
y=h++"to You"
main=mapM_ print[y,y,h++"Dear Haskell",y]

Вывод кода в ideone

Haskell один лайнер: 79

mapM_ print["Happy Birthday "++if x==3then"Dear Haskell"else"to You"|x<-[1..4]]

Вы можете попробовать один лайнер онлайн здесь: http://tryhaskell.org/

Var'aQ - 121

"Happy Birthday " ~ a cher "to you\n" tlheghrar ~ b cher b tlheghrar a "dear Var'aQ" tlheghrar tlheghrar b tlheghrar cha'

GolfScript: 54 символа

4,{"Happy Birthday "["To You""Dear GolfScript"]@2==n}%

Образец прогона:

bash-4.3$ golfscript.rb <<< '4,{"Happy Birthday "["To You""Dear GolfScript"]@2==n}%'
Happy Birthday To You
Happy Birthday To You
Happy Birthday Dear GolfScript
Happy Birthday To You

T-SQL (MS-совместимый): 75

print stuff(replicate('Happy Birthday to You '+char(10),4),62,6,'Dear SQL')

C # (75) (73)

Использование System.Diagnosticsс цельюDebug.Print

Обновить до кода @Abbas '

string x="\nHappy Birthday ",y=x+"to You";Debug.Print(y+y+x+"Dear C#"+y);

Обновить до @Tyress 'код (83) (76)

for(int i=0;i++<4;)Debug.Print("Happy Birthday "+(i!=3?"to You":"Dear C#"));

Выход:

Happy Birthday To You
Happy Birthday To You
Happy Birthday Dear C#
Happy Birthday To You