#!/usr/bin/perl
use strict;
use warnings;

my $bitcoin = "/path/to/bitcoind";
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 $money = 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);
        $winnings *= $amount;
    } else {
        printf(" Fail: %4u tries = %8.3f BTC\n", $c, $m);
        $lost++;
    }

    $count += $c;
    $money += $m;
}

printf "\n";

printf("Total: %4u tries = %8.3f BTC\n", $count, $money);
printf("Average winning: %f%%\n", (($money/$count) - 1) * 100);
printf("Actual winnings: %f%%\n", $winnings - $lost);