scip/rpnc
1
0
Fork 0
mirror of https://codeberg.org/scip/rpnc.git synced 2025-12-17 12:31:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed converters

Browse Source
This commit is contained in:
Thomas von Dein
2020-03-29 20:36:02 +02:00
parent 93ca7421ed
commit e270d6de7a
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
rpnc
View File

@@ -3,6 +3,7 @@
use Term::ReadLine; use Term::ReadLine;
use Data::Dumper; use Data::Dumper;
use Getopt::Long; use Getopt::Long;
use Data::Dumper;
use strict; use strict;
use warnings; use warnings;
@@ -174,18 +175,18 @@ my %func = (
}, },
# converters: # converters:
# gallons to liters # gallons to liters
'tl' => sub { return $_[0] * 3.785 }, 'tl' => sub { return $_[-1] * 3.785 },
# yards to meters # yards to meters
'tm' => sub { return $_[0] * 91.44 }, 'tm' => sub { return $_[-1] * 91.44 },
# miles to kilometers # miles to kilometers
'tk' => sub { return $_[0] * 1.609 }, 'tk' => sub { return $_[-1] * 1.609 },
# inches to cm # inches to cm
'tc' => sub { return $_[0] * 2.54 }, 'tc' => sub { return $_[-1] * 2.54 },
# to 'bytes # to 'bytes
'tkb' => sub { return $_[0] / 1000 }, 'tkb' => sub { return $_[-1] / 1000 },
'tmb' => sub { return $_[0] / 1000 / 1000}, 'tmb' => sub { return $_[-1] / 1000 / 1000},
'tgb' => sub { return $_[0] / 1000 / 1000 / 1000 }, 'tgb' => sub { return $_[-1] / 1000 / 1000 / 1000 },
'ttb' => sub { return $_[0] / 1000 / 1000 / 1000 / 1000 }, 'ttb' => sub { return $_[-1] / 1000 / 1000 / 1000 / 1000 },
); );
# math constants, always upper case letters, usable via eval{} # math constants, always upper case letters, usable via eval{}