Messagepar Eilraet » ven. juil. 29, 2011 6:45 pm
Je revenais sagement de mon boulot quand un coup d'oeil à mon compteur m'informa que je roulais à 80 km/h. Etant donné que j'étais en ville, limité à 50 donc et que je suivais des voitures qui n'avaient pas spécialement l'air d'aller vite je dois admettre que j'ai été un peu surpris, mais de toutes façons un feu venait de passer au rouge, m'obligeant donc à m'arrêter.
A
l'arrête arrêt (édité

) mon compteur indiquait 30 km/h ...
perl -E 'say s/(.*r).*\K/, \l$1.\n/r, ${["Take one down and pass it around. ", "Go to the store and buy some more. "]}[/N/], $::b{$_} // $a, "\n" for reverse sort { $a <=> $b } keys %{ { %::b = map { ($a, $b) = ($_, $a) } map { join "", "$_ bottle", "s" x !/^1$/, " of beer on the wall" } "No more", 1..99 } };'