From 52a7ca4f612c774a2f87cab8d145b683f53c26ca Mon Sep 17 00:00:00 2001
From: Scimon Proctor <simon.proctor@gmail.com>
Date: Mon, 19 Jul 2021 09:36:05 +0100
Subject: Challenge 1

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

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;
+}
-- 
cgit