quilime/semitones.pl Secret

## semitones.pl
#!/bin/perl

# prints:
# semitone - fine
# 0  - 0
# 1  - 59
# 2  - 122
# 3  - 189
# 4  - 260
# 5  - 335
# 6  - 414
# 7  - 498
# 8  - 587
# 9  - 682
# 10 - 782
# 11 - 888
# 12 - 1000
my $m = 2 ** (1/12);
foreach my $s (0..12) {
    print int(0.5 + 1000 * $m ** $s-1000), "\n";
}
	#!/bin/perl

	# prints:
	# semitone - fine
	# 0 - 0
	# 1 - 59
	# 2 - 122
	# 3 - 189
	# 4 - 260
	# 5 - 335
	# 6 - 414
	# 7 - 498
	# 8 - 587
	# 9 - 682
	# 10 - 782
	# 11 - 888
	# 12 - 1000
	my $m = 2 ** (1/12);
	foreach my $s (0..12) {
	print int(0.5 + 1000 * $m ** $s-1000), "\n";
	}