From da748048f9679814be0fc1bda4e35210e44d8f3b Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@gmail.com>
Date: Mon, 8 Mar 2021 10:07:20 +0000
Subject: Challenge 1 done

---
 challenge-103/simon-proctor/raku/ch-1.raku | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 challenge-103/simon-proctor/raku/ch-1.raku

(limited to 'challenge-103')

diff --git a/challenge-103/simon-proctor/raku/ch-1.raku b/challenge-103/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..3fdb1f105f
--- /dev/null
+++ b/challenge-103/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,25 @@
+#!/usr/bin/env raku
+
+use v6;
+
+#| Given a year output the Chinese year
+sub MAIN(
+    Int \year #= Western year
+) {
+    cycle()[(1924-year).abs % 60].say;
+}
+
+sub cycle() {
+    my @elements = lazy gather {
+	my $i = 0;
+	my @els = <Wood Wood Fire Fire Earth Earth Metal Metal Water Water>;
+	loop {
+	    take @els[$i];
+	    $i++;
+	    $i = 0 if $i > @els.end;
+	}
+    };
+
+    return ( @elements Z,
+    ( |<Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig> xx 5 ) ).map( *.join(" ") );    
+}
-- 
cgit