Select Code to Download

#! perl
use strict;
...
12.500000001
1_234_500_000_000_000_000_000_042.499999
13

float = 12345.6789, nearest int = 12346
float = 1_234_500_000_000_000_000_000_000.6789, nearest int = 12345000
+00000000000000001
...
float = 12.500000001, nearest int = 13
float = 1_234_500_000_000_000_000_000_042.499999, nearest int = 123450
+0000000000000000042
float = 13, nearest int = 13