#!/usr/bin/perl

$name=$ARGV[0];
$incr=$ARGV[1];
$lim=$ARGV[2];

system("./$name.elf 50000 > /dev/null");

open(F,">$name.test");

sub conv
{
	my($n);
	$n = $_[0];
	$n =~ s/(\d+)m(\d+\.\d+)s/$1 $2/;
	my(@t);
	@t=split(" ",$n);
	return $t[0] * 60.0 + $t[1];
}

$j=$incr;
while ( $j <= $lim )
{
	open(H,"(time ./$name.elf $j) 2>&1 |");
	while(<H>)
	{
		chomp($_);
		@toks=split(" ",$_);
		if($toks[0] =~ /\d+/) { print F $_; }
		if($toks[0] eq "real") { print F " ",&conv($toks[1]); }
		if($toks[0] eq "user") { print F " ",&conv($toks[1]); }
		if($toks[0] eq "sys") { print F " ",&conv($toks[1]); }
	}
	print F "\n";
	close(H);
	$j += $incr;
}

close(F);