Select Code to Download

#! /usr/bin/perl
use warnings;
use strict;
...
   my ( $up, $low ) = @_;
   $low + ( $up - $low ) * ( 0.4 + rand 0.2 );
}

Script executed at Sun Apr 24 16:40:08 2016
equal seconds is 39783
moonstring    jstr    outer    inner    guess
...
after ending contraction, outer is 2457496.69942669
after ending contraction, inner is 2457496.699421
duration in seconds is 30.7171538472176