mirror of
git://projects.qi-hardware.com/ben-wpan.git
synced 2025-03-23 07:58:54 +02:00
11 lines
133 B
Plaintext
11 lines
133 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
for ($n = 0; <>; $n++) {
|
||
|
|
if ($_ > $ym || !defined $ym) {
|
||
|
|
$xm = $n;
|
||
|
|
chop($ym = $_);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print "$xm $ym $n\n";
|