mstelratio.pl.in,v

Lin-Kernighan heuristic for the TSP and minimum weight perfect matching

head	1.1;
access;
symbols
	zero-five-zero:1.1
	zero-four-seventeen:1.1
	zero-four-ten:1.1
	zero-four-nine:1.1
	zero-four-eight:1.1
	zero-four-five:1.1
	zero-four-three:1.1
	zero-four-zero:1.1;
locks
	neto:1.1;
comment	@# @;


1.1
date	97.11.07.22.21.34;	author neto;	state Exp;
branches;
next	;


desc
@Compute MST element length ratios.
@


1.1
log
@Initial revision
@
text
@#! @@PERL@@
# @@configure_input@@
# mstelratio.pl
# Find and print the ratios of successive lengths.
# Input is a sequence non-decreasing floating point numbers, one to a line.

$line_no = 0;
while( <> ) {
	$line = $_;
	if ( $line_no++ > 0 ) {
		print $line/$last,"\n";
	}
	$last=$line;
}
@