Camel code 6/7

Jivaro code (cont.)

@dromedary1 and @camel1hump hold the individual characters of two successive lines.

while (@dromedary1) {
    my $camel1hump = 0; my $CAMEL = 3;
    if ( defined( $_ = shift (@dromedary1) ) && /\S/ ) { $camel1hump += 1 << $CAMEL; }
    $CAMEL--;
    if ( defined( $_ = shift (@dromedary1) ) && /\S/ ) { $camel1hump += 1 << $CAMEL; }
    $CAMEL--;
    if ( defined( $_ = shift (@camel1hump) ) && /\S/ ) { $camel1hump += 1 << $CAMEL; }
    $CAMEL--;
    if ( defined( $_ = shift (@camel1hump) ) && /\S/ ) { $camel1hump += 1 << $CAMEL; ; }
    $camel .= ( split ( //, "\040..m`{/J\047\134}L^7FX" ) )[$camel1hump];
                            #    ..m`{/J '   \  }L^7FX
}

The four lines set the four bits of $camel1hump depending on the blank state of the character under its scrutiny.
Notice that there is no need to fill the second line up to 69 characters, since the first line is already long enough for both lists.
The resulting number in 0 .. 15 is converted into the corresponding character.
At the end of the loop $camel holds the concatenated string representing the two munged lines.

Previous | Next