27 lines
598 B
Perl
Executable File
27 lines
598 B
Perl
Executable File
#!/usr/bin/env perl
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $supply = 0.0;
|
|
my $block = 0;
|
|
my $amount = 12.5;
|
|
my $halvings = 0;
|
|
|
|
while ($supply <= 21_000_000) {
|
|
#while ($halvings <= 64 && $amount >= 1e-8) {
|
|
$block++;
|
|
if ($block < 5) {
|
|
$amount = 40_000;
|
|
} else {
|
|
# Halving every 840000 blocks
|
|
if ($block % 840_000 == 0) {
|
|
$amount /= 2;
|
|
$halvings++;
|
|
}
|
|
$amount = 12.5 / (2**$halvings);
|
|
}
|
|
$supply += $amount;
|
|
# block, current supply, block reward amount, number of halvings
|
|
print "$block,$supply,$amount,$halvings\n";
|
|
}
|