#$n = 25; #$search = "max"; #$search = "min"; for ($i = 0;$i < $n;$i++) { $freq[$i] = -1; if ($search eq "max") { $theta[$i] = 0; } else { $theta[$i] = 99999; } } while ($line = <>) { chomp ($line); ($f, $t) = split(' ',$line); for ($i = 0;$i < $n;$i++) { if ((($t < $theta[$i]) && ($search eq "min")) || (($t > $theta[$i]) && ($search eq "max"))) { for ($j = $n - 1;$j > $i;$j--) { $freq[$j] = $freq[$j - 1]; $theta[$j] = $theta[$j - 1]; } $freq[$i] = $f; $theta[$i] = $t; last; } } } for ($i = 0;$i < $n;$i++) { if ($freq[$i] != -1) { printf "F%d $freq[$i] $theta[$i]\n", $i+1; } }