HoHoHo

#!/usr/bin/perl

my %Deer = (
  Dasher  => 'Now',
  Dancer  => 'Now',
  Prancer => 'Now',
  Vixen   => 'and',
  Comet   => 'On',
  Cupid   => 'On',
  Donder  => 'On',
  Blitzen => 'and',
  Now => {
    Dasher  => 'Dancer',
    Dancer  => 'Prancer',
    Prancer => 'Vixen',
    'and'   => { Vixen => 'Comet' },
  },
  On => {
    Comet  => 'Cupid',
    Cupid  => 'Donder',
    Donder => 'Blitzen',
    'and'  => { Blitzen => 0 },
  },
);

local $away;
print dash('Dasher'), <DATA>;

sub dash {
  my($deer, $from) = @_;
  return unless $deer;
  local $str;
  my $next;
  my $harness = $Deer{$deer};
  unless ($harness eq 'and') {
    $next = $Deer{$Deer{$deer}}{$deer};
    $harness .= ',';
    $harness = "! $harness" if $away;
  }
  else {
    $next = $Deer{$from}{$harness}{$deer};
    $harness = " $harness";
  }
  $str .= "$harness $deer";
  $str .= "!\n" if $away;
  $away = !$away;
  $str . dash($next, $Deer{$deer});
}

__DATA__
To the top of the porch!
To the top of the wall!
Now dash away! dash away!
Dash away all!
[download]

P.S. Yes, Donder.

Comment on HoHoHo Download Code

Replies are listed 'Best First'.
Re: HoHoHo by radiantmatrix (Parson) on Dec 02, 2004 at 21:15 UTC
Slick. Very slick. ++! I couldn't help, when reading: `To the top of the porch! To the top of the wall!` [download] Thinking: `seek PORCH, 0, 0; seek WALL, 0, 0;` [download] Does this mean I've been coding too long today? radiantmatrix `require General::Disclaimer; s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}`	[reply] [d/l] [select]
Re^2: HoHoHo by mojotoad (Monsignor) on Dec 03, 2004 at 06:26 UTC
Perhaps, perhaps indeed. So far, my history of Perl Poetry has been somewhat inverted from the typical style found in these parts -- rather than try to make perl code actually look poetic I usually try and encode a pun or ironic point into the structure and execution, aesthetics be damned! It could be more obfu than poetic. <shrug> Matt	[reply]
Re^3: HoHoHo by radiantmatrix (Parson) on Dec 03, 2004 at 15:00 UTC
I certainly didn't mean to criticise you. This is a fantastic piece of poetry, and the fact that running it produces the plain-text version of the verse is great! radiantmatrix `require General::Disclaimer; s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}`	[reply]
Re: HoHoHo by wolfger (Deacon) on Dec 02, 2004 at 16:45 UTC
Nice work. I also enjoyed your link to Donder, although I still prefer "Thunder & Lightning".... -- Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0	[reply]
Re: HoHoHo by Anonymous Monk on Dec 02, 2004 at 10:54 UTC
`>$ cat HoHoHo Where's my money? >$` [download]	[reply] [d/l]