Challenge 1

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-122/simon-proctor/raku/ch-1.raku b/challenge-122/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..5c685c3dd0
--- /dev/null
+++ b/challenge-122/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub avg($avg,$val) {
+    state $count = 1;
+    my $sum = $avg*$count;
+    $sum += $val;
+    $count++;
+    $sum / $count;
+}
+
+#| Given a list of numbers print the average of the list with each point in the list
+multi sub MAIN( *@N ) {
+    ( [\[&avg]] @N ).join(", ").say;
+}
+
+#| Read from STDIN and output the running average after each number
+multi sub MAIN() {
+    .say for [\[&avg]] $*IN.lines;
+}