Peas

Save as Peas with no extension.

mmm("porridge");

sub mmm {
  for ("hot,", "cold,", "in the pot,") {
    print "$0 $_[0] $_$/";
  }
  print "nine days old.$/";
}
[download]

It displays the nursery rhyme we are all familiar with.

I wasn't going for obfuscation so that is why I put this in poetry.

Comment on Peas Download Code

Replies are listed 'Best First'.
Re: Peas by mojotoad (Monsignor) on Dec 17, 2002 at 06:12 UTC
Joining the ideas of Mr. Muskrat and fredopalus... `#!/usr/bin/perl mmm("$0 porridge"); mmm("Some like it"); sub mmm { for ("hot,", "cold,", "in the pot,") { print "$_[0] $_$/"; } print "nine days old.$/$/"; }` [download] Matt	[reply] [d/l]
Re: Peas by fredopalus (Friar) on Dec 17, 2002 at 00:13 UTC
And to finish it... `print "some like it hot,\n some like it cold,\n some like it in the po +t nine days old";` [download] Update: The whole rhyme: Peas porridge hot, Peas porridge cold, Peas porridge in the pot Nine days old. Some like it hot, Some like it cold, Some like it in the pot Nine days old.	[reply] [d/l]