#!/usr/bin/perl -w use strict; print "cp sinon.c run.c\n"; my $score = 0; for(my $i = 2; $i < 42; $i += 2) { print "echo 't = $i, score = $score'\n"; if( $i % 4 == 0 ) { print "gcc -O0 run.c -o run && ./run | tee run.c\n"; $score += 11; } if( $i % 6 == 0 ) { print "gcc -O2 run.c -o run && ./run | tee run.c\n"; $score += 17; } print "sleep 2\n"; }