#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw/:all :hireswallclock/;

my @ARGV0=@ARGV;
my @pre=map "pics/$_/", '00'..'16';

cmpthese 1000, { blazar => \&blazar,
                 aristotle =>\&aristotle }, 'all';

sub blazar {
    @ARGV=@ARGV0;
    while (<>) {
        chomp;
        my $cnt;
        for my $p (@pre) {
            local $_ = $p . $_;
            if (-e) {
                # print;
                push @pre, splice @pre, 0, $cnt if $cnt;
                last;
            }
            $cnt++;
        }
    } 
}

sub aristotle {
    @ARGV=@ARGV0;
    while ( <> ) {
        chomp;
        for my $i ( 0 .. $#pre ) {
            local $_ = $pre[ $i ] . $_;
            next if not -e;
            # print;
            @pre[ 0 .. $i ] = @pre[ $i, 0 .. $i - 1 ] if $i;
            last;
        }
    }
}

__END__

##</code><code>##

sub blazar {
    @ARGV=@ARGV0;
    while (<>) {
        chomp;
        my $cnt;
        for my $p (@pre) {
            local $_ = $p . $_;
            if (-e) {
                # print;
                @pre[0..$cnt] = @pre[$cnt,0..$cnt-1] if $cnt;
                last;
            }
            $cnt++;
        }
    } 
}

sub aristotle {
    @ARGV=@ARGV0;
    while ( <> ) {
        chomp;
        for my $i ( 0 .. $#pre ) {
            local $_ = $pre[ $i ] . $_;
            next if not -e;
            # print;
            @pre[ 0 .. $i ] = @pre[ $i, 0 .. $i - 1 ] if $i;
            last;
        }
    }
}

sub naive {
    @ARGV=@ARGV0;
    while (<>) {
        chomp;
        for my $p (@pre) {
            local $_ = $p . $_;
            # print,
              last if -e;
        }
    } 
}