Camel code 7/7

Hall of mirrors effect

This is the code that mirrors and prints the camels.

while (<DATA>) {
    # head-reducing code (skipped)
    $camel .= "\n";  # end of line
}
@camel1hump = split ( /\n/, $camel );
foreach (@camel1hump) {
    chomp; $Camel = $_;
    y/LJF7\173\175`\047/\061\062\063\064\065\066\067\070/;
    y/12345678/JL7F\175\173\047`/;
    $_ = reverse;
    print "$_\040$Camel\n";
}
foreach (@camel1hump) {
    chomp; $Camel = $_;
    y/LJF7\173\175`\047/12345678/;
    y/12345678/JL7F\175\173\047`/;
    $_ = reverse;
    print "\040$_$Camel\n";
}

In the shrinking loop, a "\n" character is added to each line.
@camel1hump holds every line of the reduced code.
Of the 16 possible characters, half of them have mirror images.
The two y/// do the same as y/LJF7\173\175`\047/JL7F\175\173\047`/
The same operation is repeated to print a slightly different string.
The disclaimer is printed, but you already know how.
Note that / and \ are not mirrored by this code, but it's not really a problem with the camel design.

Previous | Next