diff options
| -rw-r--r-- | challenge-122/simon-proctor/raku/ch-1.raku | 19 |
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; +} |