Root/usrp/sps/norm

1#!/usr/bin/perl
2
3for ($n = 0; <>; $n++) {
4    if ($_ > $ym || !defined $ym) {
5        $xm = $n;
6        chop($ym = $_);
7    }
8}
9
10print "$xm $ym $n\n";
11

Archive Download this file



interactive