Old lady swallowed a fly

Present a program which emits the lyrics to the song I Knew an Old Lady Who Swallowed a Fly, taking advantage of the repetitive structure of the song's lyrics.

Old lady swallowed a fly is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

C

Boring, ad hoc dictionary based decompression. The encoder was arguably more interesting, though. <lang c>#include <stdio.h>

char *dict[] = { "\x5""fly,\x6\xc\x1\xa,/That wr\xd""and w\xd" "and t\xdinside her;\x3\xa\xe\xc\x8 //\x5\x10;/" "How absurd\x11\x10.\x2\xc\x1\xf;/Fancy that,\x11\xf!" "\x9 \x1\x12;/What\xbhog,\x11\x12;\x3\x12\x4\xf,\x9\x1" "cow,\x6w how s\x13\xb""cow;\x3""cow\x4\x12,\x3\x12\x4\xf," "\x9\x1horse.../She's dead, of course!/",

"\x8//\x5", "\x3\x10\x4\xa,\x3\xa\xe", "/S\x13 the ", " to \xf""ch the ", "There was an old lady who\x7""ed\xb", "/I don't kno", " swallow", " s\x13\xb""fly - Perhaps she'll die!", "\x3\xf\x4\x10,\x2\xc", "spider", " a ", "w why", "iggled ", "\x4""fly;\x6", "cat", "bird", " to\x7\xb", "dog", "he\x7""ed", };

void writeout(char *s) { do { if (*s < 32) writeout(dict[(int)*s]); else putchar(*s == '/' ? '\n' : *s); } while (*++s); }

int main() { writeout(dict[0]); return 0; }</lang>

PHP

This example is incorrect. Please fix the code and remove this message. Details: The program does not produce the correct lyrics. (See talk page)

<lang php><?php

$swallowed = array(

 array('swallowed' => 'fly.',
       'reason' => "I don't know why she swallowed the fly."),
 array('swallowed' => 'spider,',
       'aside' => "which wiggled and jiggled and tickled inside her.",
       'reason' => "She swallowed the spider to catch the fly"),
 array('swallowed' => 'bird.',
       'aside' => "How absurd! To swallow a bird!",
       'reason' => "She swallowed the bird to catch the spider,"),
 array('swallowed' => 'cat.',
       'aside' => "Imagine that! To swallow a cat!",
       'reason' => "She swallowed the cat to catch the bird."),
 array('swallowed' => 'dog.',
       'aside' => "What a hog! To swallow a dog!",
       'reason' => "She swallowed the dog to catch the cat."),
 array('swallowed' => 'horse',
       'aside' => "She's dead, of course. She swallowed a horse!",
       'reason' => "She swallowed the horse to catch the dog."));

foreach($swallowed as $creature) {

 print "I knew an old lady who swallowed a " . $creature['swallowed'] . "\n";
 if(array_key_exists('aside', $creature))
   print $creature['aside'] . "\n";

 $reversed = array_reverse($swallowed);
 $history = array_slice($reversed, array_search($creature, $reversed));

 foreach($history as $note)
 {
   print $note['reason'] . "\n";
 }

 if($swallowed[count($swallowed) - 1] == $creature)
   print "But she sure died!\n";
 else
   print "Perhaps she'll die." . "\n\n";

}</lang>