Merge pull request #220 from khalidelboray/patch-6

Perl6 Challenge #1 Solution

1 files changed, 49 insertions, 0 deletions

diff --git a/challenge-011/khalid/perl6/ch-1.p6 b/challenge-011/khalid/perl6/ch-1.p6
new file mode 100644
index 0000000000..e7581d4b8b
--- /dev/null
+++ b/challenge-011/khalid/perl6/ch-1.p6
@@ -0,0 +1,49 @@
+Usage:
+  ch.p6 <kelvin>
+  ch.p6 [--kelvin=<K>]
+  ch.p6 [--celsius=<C>]
+  ch.p6 [--rankine=<R>]
+  ch.p6 [--fahrenheit=<F>]
+
+    <kelvin>            Kelvin Value
+    --kelvin=<K>        Kelvin Value
+    --celsius=<C>       Celsius Value
+    --rankine=<R>       Rankine value
+    --fahrenheit=<F>    Fahrenheit value
+
+subset K of Real:D where * >= 0;
+subset C of Str:D where * ~~ /'-'? \d */; 
+subset R of Int:D where * > 0;
+subset F of C;
+multi sub MAIN (
+    K $kelvin #= Kelvin Value
+) {
+    convert($kelvin);
+}
+multi sub MAIN ( 
+    K :$kelvin #= Kelvin Value
+) {
+    convert ($kelvin);
+}
+multi sub MAIN ( 
+    C :$celsius  #= Celsius Value
+) {
+    convert($celsius + 273.15);
+}
+multi sub MAIN (
+    R :$rankine #= Rankine value
+) {
+    convert($rankine / 1.8);
+}
+multi sub MAIN (
+    F :$fahrenheit #= Fahrenheit value
+) {
+    convert(($fahrenheit + 459.67) / 1.8);
+}
+sub convert ( K $kelvin is copy ) {
+    say "  { $kelvin }K";
+    say "  { $kelvin- 273.15 }C";
+    say "  { $kelvin * 1.8 - 459.67 }F";
+    say "  { $kelvin* 1.8 }R";
+}
+