View difference between Paste ID: wPNUKYmy and XQT08gzn

 #!/usr/bin/perl
 use strict;
 use warnings;
 
-my $bitcoin = "/path/to/bitcoind";
+my $bitcoin = "/home/diablo/code/bitcoin/bitcoin-0.8.1-linux/bin/64/bitcoind";
 my $start_btc = "33";
 
 my $command = "listtransactions \"\" 99999999999999999";
 my $filter1 = "| grep amount | grep ";
 my $filter2 = " | wc -l";
 
 my %search = (
 	64000 => '1.004',
 	60000 => '1.071',
 	56000 => '1.147',
 	52000 => '1.235',
 	48000 => '1.338',
 	32768 => '1.957',
 	0 => '0.005',
 );
 
 my $count = 0.0;
-my $winnings = 1.0;
+
-my $lost = 0.0;
+
 foreach my $level (sort { $search{$a} <=> $search{$b} } keys %search) {
 	my $amount = $search{$level};
 
 	my $c = `$bitcoin $command $filter1 $amount $filter2`;
 	my $m = $c * $amount;
 
 	$c =~ s/\n//;
 
 	if($level != 0) {
 		printf("%5u: %4u tries = %8.3f BTC\n", $level, $c, $m);
 	} else {
-		$winnings *= $amount;
+
 	}
 
-		$lost++;
+
 	$money += $m;
 }
 
 printf "\n";
 
 printf("Total: %4u tries = %8.3f BTC\n", $count, $money);
 
 my $avg_winnings =$money/$count;
 
-printf("Average winning: %f%%\n", (($money/$count) - 1) * 100);
+printf("Average winning: %f%%\n", (($avg_winnings - 1) * 100));
-printf("Actual winnings: %f%%\n", $winnings - $lost);
+
 my $winnings = $start_btc;
 
 for(my $i = 0; $i < $count; $i += $winnings - $start_btc) {
 	$winnings *= $avg_winnings;
 }
 
 printf("Actual winnings: %f%%\n", $winnings);