Tu lenguaje de programación favorito acaba de cumplir años. Sé amable y canta la canción de feliz cumpleaños .

Por supuesto, debe lograr esto escribiendo un programa en ese idioma. El programa no realiza ninguna entrada y escribe el siguiente texto en la salida estándar o en un archivo arbitrario:

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

Debe sustituir la parte entre corchetes (y omitir los corchetes).

Este es un código de golf: el código más corto gana.

ACTUALIZAR

Me alegra que la pregunta haya despertado gran interés. Permítanme agregar información adicional sobre la puntuación. Como se indicó originalmente, esta pregunta es un código de golf, por lo que el código más corto va a ganar. El ganador será elegido a finales de esta semana (19 de octubre).

Sin embargo, también estoy premiando otras presentaciones ingeniosas con votos positivos (y animo a todos a que también lo hagan). Por lo tanto, aunque este es un concurso de código de golf, las respuestas no tan cortas también son bienvenidas.

Resultados

Felicitaciones a Optimizer , el ganador de este concurso con su 42 bytes de longitud, Cjam presentación .

CJam, 46 42 bytes

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

Cómo funciona:

"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";

Esto deja la pila como sigue al final del código:

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

que se imprimen automáticamente para imprimir como

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

Pruébelo aquí (copie el código y ejecútelo)

LOLCODE: 109 (105 con ortografía "correcta")

LOLCODE no es un gran lenguaje para el golf, especialmente porque pierdes toda la belleza y expresividad al acortar el código.

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

Pruébalo usando loljs

Esta es mi versión preferida, con un peso de 187 caracteres (espacios añadidos para mayor claridad):

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

Deseos de cumpleaños de Mathematica- código de barras - demasiados bytes

Esto imprime los versos y los lee en voz alta.

Feliz cumpleaños a ti
Feliz cumpleaños a ti
Feliz cumpleaños Estimado Mathematica
Feliz cumpleaños a ti

StringReplacereemplaza cada coma con una NewLine. Los códigos de barras no pueden contener caracteres de control.

TI-Basic, 53 bytes

Bueno, como todos están poniendo su lenguaje de programación favorito, también podría agregar uno de mis viejos favoritos. Pasé mucho tiempo a lo largo de los años (antes de graduarme en lenguajes de programación reales) escribiendo comandos en una ventana del tamaño de un teléfono inteligente.

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

Mi calculadora no admite letras minúsculas, y las únicas variables que pueden ser cadenas son Str1, Str2, etc.

Sed, 60 55 bytes

(Se agregó 1 carácter porque no hay forma de hacer sedque funcione sin entrada).

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

Ciertamente no es un ganador, publicado para demostrar sedrara 's s///función de reemplazar sólo el n ^º ocurrencia.

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

Sed (más corto pero no interesante): 52 caracteres

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

Ejecución de muestra:

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 bytes

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

Python, 61 60 59

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

sh, 52

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

ArnoldC , 228 bytes

Hagamos que Arnold Schwarzenegger cante ...

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

salida:

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'

Lenguaje de programación Shakespeare , 3429 bytes

nadie se enloquecerá lo suficiente como para entrar en un desafío de código de golf con SPL, así que ...

Mis propias palabras, hace un tiempo. Y, sin embargo, alguien estaba lo suficientemente loco como para hacerlo. Si si lo se. Demasiados bytes. Pero SPL merece ser incluido aquí, creo. Y creer en mí, he hecho un esfuerzo descomunal para "golf" este programa, que es por eso que es un poco repetitivo y utiliza en su mayoría las mismas palabras (que siempre podría haber seguido la sugerencia de DLosc , pero eso sería demasiado extremo incluso para mí) .

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]

¿El significado de todo esto?

OK, si tienes curiosidad acerca de cómo se supone que funciona todo esto, déjame intentar explicar mi razonamiento. En primer lugar, las variables. Deben provenir de obras de Shakesperian y, dado que el recuento de caracteres es importante, tenemos que elegir las pequeñas; así, Ajaxy Fordaparece. Necesitan una descripción después de ser declarados (que se ignora, pero aún así); Podría haber usado una sola letra, pero je.

Acto I, Escena I

var Ajax, Ford; Ford = 0;

Traemos las variables al escenario y hacemos Ajaxsaber Fordque su valor será 0.

Acto I, Escena II

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

OK, si el valor almacenado en Fordes mayor que 3, el programa salta a la escena V; de lo contrario, su valor se incrementa.

Acto I, escena 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;

Cargas y cargas de líneas. La idea es jugar con el valor almacenado Ford, haciendo cargas y cargas de operaciones aritméticas para obtener el número ASCII de las letras deseadas, luego le decimos al compilador que muestre el número en forma de caracteres. Así es como escribes Happy Birthday. Hay una ifescena dentro de esta escena: la idea es verificar si esta es la tercera frase de la canción; si es así, saltamos a la escena IV; de lo contrario seguimos adelante, para escribir to You. Después de eso, volvemos a la Escena II.

Acto I, escena 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;

La forma en que esto funciona es similar a la escena anterior: la idea es escribir Dear SPL.

Acto I, escena V

End.

Así.

Todavía no he encontrado ningún lugar donde esto pueda ser probado, desafortunadamente ...

Ruby, 54 bytes

Solo pensé "Oye, todavía no hay una respuesta de Ruby", pero luego apareció una pocos segundos antes de esta. Oh bien...

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

¿Algún amor por PHP? 61 59 58 bytes

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

Véalo en acción @ http://sandbox.onlinephpfunctions.com/

Simplemente no puedo decidir sobre un solo idioma: /

BrainBack: 68

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

BrainBack es una mezcla entre BrainFuck y Forth, hecha para un desafío de PCG Mar 7, 2014

BrainFuck extendido : 79

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

El cumpleaños de EBF es el 16 de julio de 2010

Esquema: 96

(R5RS, Raqueta, R6RS REPL)

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

Scheme nació en diciembre de 1975 (Nota: PDF)

Zozotez : 96

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

Sin embargo, se siente más bien hacer esto en francés (86):

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

Salida:

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

El cumpleaños de Zozotez es el 19 de julio de 2011

Deadfish ( 2610 2391 caracteres)

¿Qué es esto? ¿Un único desafío de salida? ¡ Parece que es un trabajo para Deadfish !

iiisdsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiiiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioddddoiiiiiiiiiiiiiiiiioddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiiiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioddddoiiioiioiiioiiiiiiiiiiodddddddddddoddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiio

Desafortunadamente, debido a que Deadfish solo genera números enteros, el código anterior genera las representaciones ASCII de cada personaje de la canción.

Si usamos la especificación que

No se reconocen los errores: ¡el shell simplemente agrega un carácter de nueva línea!

entonces podemos jugar golf hasta 2391 caracteres:

iiisdsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiiofdddddddddddddddddddddddddddddddddddddddddddddoiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiiofdddddddddddddddddddddddddddddddddddddddddddddoiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiiiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioddddoiiiiiiiiiiiiiiiiioddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiiiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioddddoiiioiioiiioiiiiiiiiiiodddddddddddofddddddddddddddddddddddddddddddddoiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiiiiiiiiooiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddoddddddddddddddddddddddddsiioiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiioiiiiiiiiioiioddddddddddddoddddodddoiiiiiiiiiiiiiiiiiiiiiiiiodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddsdddddodddddodddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddodddddddddddddddddddddddsiiiiiiiioiiiiiiiiiiiiiiiiiiiiiioiiiiiio 

Nota: Deadfish no es mi idioma favorito, pero no pude resistirme: P. También jugar al golf en Deadfish es un divertido rompecabezas en sí mismo.

JS, 83 bytes

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

o 79 bytes por @Ingo Bürk

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

o 71 bytes por @kapep

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

o ejecutar en la consola esta página (42 bytes)

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

R: 70 bytes

Aprovecha pastey recicla vectores.

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

T-SQL, 89 87 bytes

Editar: Probablemente no debería estar dragando estas cosas viejas, pero acabo de notar un cambio obvio en esto para reclamar un par de bytes.

Usando STUFF para eliminar partes no deseadas de la cadena, el índice inicial es proporcionado por los valores en la FROMcláusula multiplicados por 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)

Corre con:

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

Solo por diversión:

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 bytes

impresión """
H ap py- Bir th day -to-Y ou = Happy - B rt hday
- to - Y ou = H appy - B irthday - D e
ar-P ython = Ha ppy - Bir t hda y -to- Y o uHapp y -
B irthday - to - Y ou = H app
y - B irth day -to-Y ou = H a ppy - B ir
"" ".replace (" \ n "," "). replace (" "," "). replace (" - "," ") .replace (" = "," \ n ") [: 92]

No ganar ningún premio ... pero si lo miras con cuidado, hay algo de arte ASCII:

# # # ### ### # # ### ##### ### ##### # # ### # # # #
¿Qué hay de nuevo?
#### ##### ### ### # ### # ### # #### # # ##### # #
¿Qué hay de nuevo?
# # # # # # # ### ##### # # # # # ### # # # #

PowerShell - 69 64 59

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

y 91

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

y 108

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

Rubí, 56

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

Marbelous , 151

Se imprime Happy Birthdaycada vez que hbse llama, con uno to youo Dear Marbelousanexos, en función de si la entrada es 0o 1. La canica pasada hbno se emitirá, ya que se atascará en el sincronizador &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

A continuación se muestra el tablero hb, con hexadecimal convertido a texto ascii:

CJam, 46 bytes

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

Pruébalo aquí.

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";

Esto deja la siguiente matriz en la pila:

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

Cuyo contenido se imprime automáticamente consecutivamente al final del programa.

Alternativamente, con un bucle for y el mismo recuento de caracteres:

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]

Código de salida en ideone

Haskell un trazador de líneas: 79

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

Puedes probar el one liner en línea aquí: 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 caracteres

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

Ejecución de muestra:

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 (compatible con MS): 75

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

C # (75) (73)

Utilizando System.Diagnosticscon el propósito deDebug.Print

Actualice al código de @Abbas

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

Actualizar a código de @Tyress ' (83) (76)

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

Salida:

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