#!/usr/bin/perl

use warnings;
use strict;

#use Benchmark 'cmpthese';
use Time::HiRes 'time';

sub arivu {
    my $input = shift;
    open my $FH, '<', $input or die;
    my $minimumAmount = 1e12;
    my ($amount, $weight);
    while (<$FH>) {
        if (/(\d+) (\d+)/) {
            if ($minimumAmount > ($1/$2)) {
                $minimumAmount = $1 / $2;
                $amount = $1;
                $weight = $2;
            }
        }
    }
    close $FH;
    return "$amount\t$weight\n";
} # arivu

sub choroba {
    my $input = shift;
    open my $FH, '<', $input or die;
    my $minimumAmount = 1e12;
    my ($amount, $weight);
    while (<$FH>) {
        my ($a, $w) = split;
        if (defined $a and defined $w and
            (my $ratio = $a / $w) < $minimumAmount) {
            $minimumAmount = $ratio;
            $amount = $a;
            $weight = $w;
        }
    }
    close $FH;
    return "$amount\t$weight\n";
} # choroba

sub arivu2 {
    my $input = ${(shift)};
    my( $start, $minimumAmount, $end, $amount, $weight, $div, $gamount, $gweight) = (0, 1e12, length($input));
    do{
        $amount = substr($input, $start, index($input, ' ', $start)-$start);
        $start += length($amount) + 1;
        $weight = substr($input, $start, index($input, "\n", $start)-$start);
        $start += length($weight) + 1;
        ($minimumAmount, $gamount, $gweight) = ($div, $amount, $weight) if ($minimumAmount > ($div = $amount/$weight));
    }while($start != $end);
    return "$gamount\t$gweight\n";
} # arivu2

sub arivu3 {
    my $input = ${(shift)};
    my( $start, $minimumAmount, $end, $amount, $weight, $div, $gamount, $gweight) = (0, 1e12, length($input));
    do{
        $start += length($amount = substr($input, $start, index($input, ' ', $start)-$start)) + 1;
        $start += length($weight = substr($input, $start, index($input, "\n", $start)-$start)) + 1;
        ($minimumAmount, $gamount, $gweight) = ($div, $amount, $weight) if ($minimumAmount > ($div = $amount/$weight));
    }while($start != $end);
    return "$gamount\t$gweight\n";
} # arivu3
sub arivu4 {
    my $input = ${$_[0]};
    my( $start, $minimumAmount, $end, $amount, $weight, $div, $gamount, $gweight) = (0, 1e12, length($input));
    do{
        $start += length($amount = substr($input, $start, index($input, ' ', $start)-$start)) + 1;
        $start += length($weight = substr($input, $start, index($input, "\n", $start)-$start)) + 1;
        ($minimumAmount, $gamount, $gweight) = ($div, $amount, $weight) if ($minimumAmount > ($div = $amount/$weight));
    }while($start != $end);
    return "$gamount\t$gweight\n";
} # arivu4

my $input;
$input .= (join ' ', map int(1 + rand 1000), 1 .. 2) . "\n" for 1 .. 1000;

#cmpthese(-1, {arivu => sub {arivu \$input},
#              choroba => sub {choroba \$input},
#              choroba2 => sub {choroba2 \$input},
#             });

my $time;
$time = time;
for(0..500) {
    arivu2 \$input;
}#ignore first time, arivu1 and arivu2 same body, diff times
print "badarivu2 ".(time-$time)."\n";
$time = time;
for(0..5000) {
    arivu2 \$input;
}
print "arivu2 ".(time-$time)."\n";
$time = time;
for(0..5000) {
    arivu3 \$input;
}
print "arivu3 ".(time-$time)."\n";
$time = time;
for(0..5000) {
    arivu4 \$input;
}
print "arivu4 ".(time-$time)."\n";
$time = time;
for(0..5000) {
    choroba \$input;
}
print "choroba ".(time-$time)."\n";
$time = time;
for(0..5000) {
    arivu \$input;
}
print "arivu ".(time-$time)."\n";
#print arivu \$input;
#print choroba \$input;
#print choroba2 \$input;