18 lines
332 B
Perl
Executable File
18 lines
332 B
Perl
Executable File
#!/usr/bin/env perl
|
|
# Copyright 2016-2020 The Hush developers
|
|
# Released under the GPLv3
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
my $x = 12.5 * 100000000;
|
|
my $n = 0;
|
|
while ($n<=31) {
|
|
#printf "$n,%.16g,%.16g,%.16g\n", $x, $x*0.90, $x*0.1;
|
|
printf "$n,%d,%d,%d\n", $x, $x*0.90, $x*0.1;
|
|
$x = $x / 2;
|
|
$n++;
|
|
exit if ($x <= 0);
|
|
}
|
|
|