diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-03-13 18:56:22 +0100 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-03-23 18:03:40 +0100 |
| commit | fb5a1a56bb6ae9367b51405912bd50ad579d2a33 (patch) | |
| tree | 509d07b993c48e3677edd4f7a84298bc2b270d6e | |
| parent | 0c8aae2d4fa7930eba3fbeeef21864f97f7b67e7 (diff) | |
| download | perlweeklychallenge-club-fb5a1a56bb6ae9367b51405912bd50ad579d2a33.tar.gz perlweeklychallenge-club-fb5a1a56bb6ae9367b51405912bd50ad579d2a33.tar.bz2 perlweeklychallenge-club-fb5a1a56bb6ae9367b51405912bd50ad579d2a33.zip | |
Challenge 011 task 1
| -rwxr-xr-x | challenge-011/jo-37/perl/ch-1.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-011/jo-37/perl/ch-1.pl b/challenge-011/jo-37/perl/ch-1.pl new file mode 100755 index 0000000000..63f4a768d3 --- /dev/null +++ b/challenge-011/jo-37/perl/ch-1.pl @@ -0,0 +1,13 @@ +#!/usr/bin/perl + +use v5.16; +use warnings; + +# 212 F - 32 F = 180 degF = 100 K, i.e. 1.8 degF = 1 K +# Fahrenheit to Kelvin: (F - 32)/1.8 + 273.15 +# Celsius to Kelvin: C + 273.15 +# (x - 32)/1.8 + 273.15 = x + 273.15 +# x - 32 = 1.8 * x +# -32 = 0.8 * x +# x = -40 +say -40; |