#!/usr/bin/perl -w

use 5.034;

# Essay on dual optimization, by convention called 'biopt'

my $c;
my ($minAx, $minAy, $minBx, $minBy) = (9e99) x 4;

while (++$c){
    my ($x, $y) = getpair();

    # METHOD A
    
    if ($x <= $minAx && $y <= $minAy){
	($minAx, $minAy) = ($x, $y);
	say "$c) $0 TYPE A:  $x  $y";
    }

    # METHOD B
    
    if ($x+$y < $minBx+$minBy){
	($minBx, $minBy) = ($x, $y);
	say "$c) $0 TYPE B:  $x  $y";
    }
}


exit 2;


sub getpair {
    return (rand(), rand()) if wantarray;
    return rand();
}