ch-1.p6

1 files changed, 14 insertions, 0 deletions

diff --git a/challenge-011/ozzy/perl6/ch-1.p6 b/challenge-011/ozzy/perl6/ch-1.p6
new file mode 100644
index 0000000000..656cf2aca4
--- /dev/null
+++ b/challenge-011/ozzy/perl6/ch-1.p6
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl6
+
+sub T_F ( Num $T_C ) {  $T_C * (212-32)/100 + 32  }
+sub T_C ( Num $T_F ) { ($T_F - 32) * 100/(212-32) }
+
+sub MAIN (
+    Str $T #= Temperature
+)
+{
+    my $Tn = $T.Num;
+
+    printf("%7.2f degrees Celcius    is equal to %7.2f degrees Fahrenheit.\n", $Tn, T_F($Tn));
+    printf("%7.2f degrees Fahrenheit is equal to %7.2f degrees Celcius.\n", $Tn, T_C($Tn));
+}