Perl, 438 291 caracteres
Inspirado por el uso de Jeff Burdges de la compresión DEFLATE , el código rubí comprimido de Ventero y el uso de JB de Lingua :: EN :: Numbers , logré comprimir mi entrada a 291 caracteres (bueno, bytes) incluyendo el código de descompresión. Como el programa contiene algunos caracteres no imprimibles, lo he proporcionado en formato MIME Base64 :
dXNlIENvbXByZXNzOjpabGliO2V2YWwgdW5jb21wcmVzcyAneNolkMFqAkEMhu8+RVgELdaIXmXB
S2/FFyhF4k7cHTqTsclMZd++M3pJvo+QH5JiDJ9exkKrj/PqXOKV1bod77qj9b2UeGBZ7w/bpd9s
3rCDruf3uWtwS3qS/vfROy0xsho+oWbB3d+b19YsJHWGhIHp5eQ8GzqSoWkk/xxHH36a24OkuT38
K21kNm77ND81BceCWtlgoBAq4NWrM7gpyzDhxGKQi+bA6NIfG5K4/mg0d0kgTwwdvi67JHVeKKyX
l3acoxnSDYZJveVIBnGGrIUh1BQYqZacIDKc5Gvpt1vEk3wT3EmzejcyeIGqTApZmRftR7BH3B8W
/5Aze7In
Para descodificar el programa, puede usar el siguiente script de Perl auxiliar:
use MIME::Base64;
print decode_base64 $_ while <>;
Guarde la salida en un archivo llamado 12days.ply ejecútelo perl -M5.01 12days.pl. Como se señaló, debe tener el módulo Lingua :: EN :: Numbers instalado para que el código funcione.
En caso de que se pregunte, la parte legible del código simplemente se ve así:
use Compress::Zlib;eval uncompress '...'
donde ...representa 254 bytes de código Perl comprimido RFC 1950 . Sin comprimir, el código tiene 361 caracteres de longitud y se ve así:
use Lingua'EN'Numbers"/e/";s==num2en(12-$i++)." "=e,y"." "for@n=qw=drummers.drumming pipers.piping lords.a.leaping ladies.dancing maids.a.milking swans.a.swimming geese.a.laying golden.rings calling.birds french.hens turtle.doves.and=;say"on the ".num2en_ordinal($_)." day of christmas my true love gave to me @n[$i--..@n]a partridge in a pear tree
"for 1..12
Escribir este código fue un tipo extraño de ejercicio de golf: resulta que maximizar la repetición y minimizar el número de caracteres distintos utilizados es mucho más importante que minimizar el recuento de caracteres sin procesar cuando la métrica relevante es el tamaño después de la compresión .
Para exprimir los últimos caracteres, escribí un programa simple para probar pequeñas variaciones de este código para encontrar el que mejor se comprime. Para la compresión, utilicé la utilidad KZIP de Ken Silverman , que generalmente produce mejores raciones de compresión (a costa de la velocidad) que el Zlib estándar, incluso con la configuración de compresión máxima. Por supuesto, dado que KZIP solo crea archivos ZIP, luego tuve que extraer el flujo DEFLATE sin procesar del archivo y envolverlo en un encabezado y suma de verificación RFC 1950. Aquí está el código que usé para eso:
use Compress::Zlib;
use 5.010;
@c = qw(e i n s);
@q = qw( " );
@p = qw( = @ ; , );
@n = ('\n',"\n");
$best = 999;
for$A(qw(e n .)){ for$B(@q){ for$C(@q,@p){ for$D(@p){ for$E(@q,@p){ for$F(qw(- _ . N E)){ for$G("-","-"eq$F?():$F){ for$H(@c){ for$I(@c,@p){ for$N(@n){ for$X(11,"\@$I"){ for$Y('$"','" "',$F=~/\w/?$F:()){ for$Z('".num2en_ordinal($_)."'){
$M="Lingua'EN'Numbers";
$code = q!use MB/A/B;sDDnum2en(12-$H++).YDe,yCFC Cfor@I=qwEdrummersFdrumming pipersFpiping lordsGaGleaping ladiesFdancing maidsGaGmilking swansGaGswimming geeseGaGlaying goldenFrings callingFbirds frenchFhens turtleFdovesFandE;say"on the Z day of christmas my true love gave to me @I[$H--..X]a partridge in a pear treeN"for 1..12!.$/;
$code =~ s/[A-Z]/${$&}/g;
open PL, ">12days.pl" and print PL $code and close PL or die $!;
$output = `kzipmix-20091108-linux/kzip -b0 -y 12days.pl.zip 12days.pl`;
($len) = ($output =~ /KSflating\s+(\d\d\d)/) or die $output;
open ZIP, "<12days.pl.zip" and $zip = join("", <ZIP>) and close ZIP or die $!;
($dfl) = ($zip =~ /12days\.pl(.{$len})/s) or die "Z $len: $code";
$dfl = "x\xDA$dfl" . pack N, adler32($code);
$dfl =~ s/\\(?=[\\'])|'/\\$&/g;
next if $best <= length $dfl;
$best = length $dfl;
$bestcode = $code;
warn "$A$B$C$D$E$F$G$H$I $X $Y $best: $bestcode\n";
open PL, ">12days_best.pl" and print PL "use Compress::Zlib;eval uncompress '$dfl'" and close PL or die $!;
}}}}}}
print STDERR "$A$B$C$D$E$F\r";
}}}}}}}
Si esto parece un horrible kluge, es porque eso es exactamente lo que es.
Por interés histórico, aquí está mi solución original de 438 caracteres, que genera una salida más agradable, incluidos los saltos de línea y la puntuación:
y/_/ /,s/G/ing/for@l=qw(twelve_drummers_drummG eleven_pipers_pipG ten_lords-a-leapG nine_ladies_dancG eight_maids-a-milkG seven_swans-a-swimmG six_geese-a-layG five_golden_rGs four_callG_birds three_french_hens two_turtle_doves);s/e?t? .*/th/,s/vt/ft/for@n=@l;@n[9..11]=qw(third second first);say map("\u$_,\n","\nOn the $n[11-$_] day of Christmas,\nMy true love gave to me",@l[-$_..-1]),$_?"And a":A," partridge in a pear tree."for 0..11
Lo más destacado de esta versión es el par de expresiones regulares s/e?t? .*/th/,s/vt/ft/, que construyen los ordinales para 4 a 12 a partir de los cardenales al comienzo de las líneas de regalo.
Este código, por supuesto, también se puede comprimir usando el truco de Zlib descrito anteriormente, pero resulta que simplemente comprimir la salida es más eficiente, produciendo el siguiente programa de 338 bytes (en formato Base64, nuevamente):
dXNlIENvbXByZXNzOjpabGliO3NheSB1bmNvbXByZXNzICd42uWTwU7DMAyG730KP8DGOyA0bsCB
vYBp3MYicSo7W9e3xx3ijCIQDHZIUjn683+/k3ZPAjUSDKxWIeACZYC7qGw1o226hwWqHghSORKM
6FMtkGnT3cKEWpXDSMACCBOhQlWim+7jUKO+SGg5dT8XqAetiSD4nrmPBMDPvXywtllF18OgJH2E
SGJfcR+Ky2KL/b0roMeUWEZ4cXb7biQeGol4LZQUSECdyn4A0vjUBvnMXCcYiYy2uE24ONcvgdOR
pBF9lYDNKObwNnPOTnc5kYjH2JZotyogI4c1Ueb06myXH1S48eYeWbyKgclcJr2D/dnwtfXZ7km8
qOeUiXBysP/VEUrt//LurIGJXCdSWxeHu4JW1ZnS0Ph8XOKloIecSe39w/murYdvbRU+Qyc=
También tengo un archivo gzip de 312 bytes de la letra, construido a partir de la misma secuencia DEFLATE. Supongo que podrías llamarlo un "script zcat". :)