number.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; strict;
comment	@# @;


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


desc
@Extract just the essential facts from LK output.
@


1.1
log
@Initial revision
@
text
@#! @@PERL@@
# @@configure_input@@
# number.pl
# Extract just the essential facts from LK output.
while (<>) {
	if (m/(\d+.\d+) user seconds/) {
		print $1,"\n";  # Time
	} elsif (m/^LK \d/) { # The version banner.
		print;
	} elsif (m/^Initial tour length:/) {
		print;
	} elsif (m/^Length:/) {
		print;
	}
}
@