# 17:                 $minimumAmount = $1 / $2;
14             <;> nextstate(main 941 pmonks.pl:17) v:*,&,$
15             <#> gvsv[*1] s
16             <#> gvsv[*2] s
17             <2> divide[$minimumAmount:939,947] sK/TARGMY,2
# 18:                 $amount = $1;
18             <;> nextstate(main 941 pmonks.pl:18) v:*,&,$
19             <#> gvsv[*1] s
1a             <0> padsv[$amount:940,947] sRM*
1b             <2> sassign vKS/2
# 19:                 $weight = $2;
1c             <;> nextstate(main 941 pmonks.pl:19) v:*,&,{,$
1d             <#> gvsv[*2] s
1e             <0> padsv[$weight:940,947] sRM*
1f             <2> sassign vKS/2

##</code><code>##

20     <0> pushmark s
21     <0> padsv[$div:961,963] l
22     <0> padsv[$amount:961,963] l
23     <0> padsv[$weight:961,963] l
24     <0> pushmark sRM*
25     <0> padsv[$minimumAmount:961,963] lRM*
26     <0> padsv[$gamount:961,963] lRM*
27     <0> padsv[$gweight:961,963] lRM*
28     <2> aassign[t27] vKS

##</code><code>##

# 69:     my $input = ${$_[0]};
1  <;> nextstate(main 970 pmonks.pl:69) v:*,&,$
2  <#> aelemfast[*_] s
3  <1> rv2sv sK/3
4  <0> padsv[$input:970,973] sRM*/LVINTRO
5  <2> sassign vKS/2

##</code><code>##

# 59:     my $input = ${(shift)};
1  <;> nextstate(main 965 pmonks.pl:59) v:*,&,$
2  <#> gv[*_] s
3  <1> rv2av[t3] sKRM/3
4  <1> shift sKP/1
5  <1> rv2sv sK/3
6  <0> padsv[$input:965,968] sRM*/LVINTRO
7  <2> sassign vKS/2

##</code><code>##

C:\Documents and Settings\Owner\Desktop>perl pmonks.pl
badarivu2 0.921875
arivu2 8.9530200958252
arivu3 8.59366011619568
arivu4 8.54677510261536
choroba 22.8123989105225
arivu 13.078125

C:\Documents and Settings\Owner\Desktop>

##</code><code>##

#!/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;