awk/raindrops: 1st iteration

awk/README.md

@@ -22,3 +22,4 @@
 - [luhn](./luhn/README.md)
 - [series](./series/README.md)
 - [atbash-cipher](./atbash-cipher/README.md)
+- [raindrops](./raindrops/README.md)

awk/raindrops/README.md

@@ -37,4 +37,11 @@ You'll need to implement the logic inside the `BEGIN` block.
 
 ### Based on
 
-A variation on FizzBuzz, a famous technical interview question that is intended to weed out potential candidates. That question is itself derived from Fizz Buzz, a popular children's game for teaching division. - https://en.wikipedia.org/wiki/Fizz_buzz
+A variation on FizzBuzz, a famous technical interview question that is intended to weed out potential candidates. That question is itself derived from Fizz Buzz, a popular children's game for teaching division. - https://en.wikipedia.org/wiki/Fizz_buzz
+
+### My Solution
+
+- [my solution](./raindrops.awk)
+- [awkunit tests](./raindrops_test.awk)
+- [test cases](./test-cases.awk)
+- [run-tests](./run-tests-awk.txt)

awk/raindrops/awkunit.awk

@@ -0,0 +1 @@
+../.lib/awkunit.awk

awk/raindrops/raindrops.awk

@@ -1,7 +1,55 @@
+#!/usr/bin/gawk --lint --file
+
+@load "ordchr"
+
 # These variables are initialized on the command line (using '-v'):
-# - num
+# - num -> ^([0-9]+$
+
+function raindrops(number) {
+    sounds = ""
+
+    if (length(number) == 0) {
+        return "error: nothing has no sound"
+    }
+
+    if (number == 0) {
+        return number
+    }
+
+    if (number % 3 == 0) {
+        sounds = sounds "Pling"
+    }
+
+    if (number % 5 == 0) {
+        sounds = sounds "Plang"
+    }
+
+    if (number % 7 == 0) {
+        sounds = sounds "Plong"
+    }
+
+    if (length(sounds) == 0) {
+        sounds = number
+    }
+
+    return sounds
+}
 
 BEGIN {
-    print "Implement this solution" > "/dev/stderr"
-    exit 1
+    # let's make sure direction isn't being used to inject code
+    if (! match(num, /^[0-9]+$/)) {
+        print "error: invalid number [" num "], the only supported numbers are ^[0-9]+$"
+        exit 1
+    }
+
+    print raindrops(num)
+
+    exit 0
+}
+
+{
+    # using this section got us stuck waiting for input that is only given via variables
+}
+
+END {
 }

awk/raindrops/raindrops_test.awk

@@ -0,0 +1,75 @@
+#!/usr/bin/gawk --lint --file
+
+@include "awkunit"
+@include "test-cases"
+@include "raindrops"
+
+passed = 0
+testCount = 0
+
+function _debugTestPre() {
+    printf "Test %s:\n", (passed + 1)
+    printf "     input -> [%s]\n", input
+}
+
+function _debugTestPost() {
+    passed = passed + 1
+    printf "    output -> [%s]\n", got
+    printf "    result -> passed\n\n"
+}
+
+function testRaindrops_empty() {
+    input = ""
+    want = "error: nothing has no sound"
+
+    # _ = split(input, a, " ")
+
+    _debugTestPre()
+    got = raindrops(input)
+
+    assertEquals(got, want)
+    _debugTestPost()
+}
+
+function casesRaindrops() {
+    printf "Running %d test cases\n\n", length(cases)
+    caseNum = 0
+
+    # Associative arrays don't preserve insert order.
+    for (key in cases) {
+        input = key
+        want = cases[key]
+
+        # _ = split(input, a, " ")
+
+        _debugTestPre()
+        got = raindrops(input)
+
+        assertEquals(got, want)
+        _debugTestPost()
+    }
+}
+
+BEGIN {
+    exit 0
+}
+
+END {
+    cmd = "grep --no-filename --count ^function\\ test *_test.awk"
+    cmd | getline testCount
+
+    printf "\nRunning %d tests...\n\n", testCount
+
+    testCount = testCount + length(cases)
+
+    # running tests with a lot of duplication
+    testRaindrops_empty()
+
+    # running tests with reduced duplication
+    casesRaindrops()
+
+    print "\n" passed " out of " testCount " tests passed!"
+
+    # add exit here to keep it from looping
+    exit 0
+}