weeks 27-40, 259 in Nim

3 files changed, 61 insertions, 0 deletions

diff --git a/challenge-032/archargelod/README b/challenge-032/archargelod/README
new file mode 100644
index 0000000000..6cd57e1074
--- /dev/null
+++ b/challenge-032/archargelod/README
@@ -0,0 +1 @@
+Solution by archargelod
diff --git a/challenge-032/archargelod/nim/ch_1.nim b/challenge-032/archargelod/nim/ch_1.nim
new file mode 100755
index 0000000000..70d030f3e2
--- /dev/null
+++ b/challenge-032/archargelod/nim/ch_1.nim
@@ -0,0 +1,37 @@
+#!/usr/bin/env -S nim r -d:release --verbosity:0 --hints:off
+import std/[parseutils, tables]
+
+proc countUniqLines(input: string): CountTable[string] =
+  var index = 0
+  while index < input.len:
+    let lineLength = input.skipUntil('\n', index)
+    let line = input[index ..< index+lineLength]
+    result.inc(line)
+
+    index += lineLength + 1
+
+when isMainModule:
+  import std/unittest
+
+  const
+    Expected = {"apple": 3, "banana": 1, "cherry": 2}
+    Test = """
+apple
+banana
+apple
+cherry
+cherry
+apple"""
+
+  template checkTable(table, tuples: typed) =
+    for (val, cnt) in tuples:
+      check table[val] == cnt
+
+  when defined(csv):
+    for val, cnt in countUniqLines(Test):
+      echo val, ',', cnt
+  else:
+    suite "Count instances":
+      test "Example 1":
+        checkTable(countUniqLines(Test), Expected)
+
diff --git a/challenge-032/archargelod/nim/ch_2.nim b/challenge-032/archargelod/nim/ch_2.nim
new file mode 100755
index 0000000000..ecdc9c099b
--- /dev/null
+++ b/challenge-032/archargelod/nim/ch_2.nim
@@ -0,0 +1,23 @@
+#!/usr/bin/env -S nim r -d:release --verbosity:0 --hints:off
+import std/[strutils]
+
+proc barGraph(valuePairs: openarray[(string, int)], magnitude = 1): string =
+  const minOffset = 8
+  for (label, value) in valuePairs:
+    let offset = ' '.repeat(max(0, minOffset - label.len))
+    result &= label & offset & " | " & '#'.repeat(value * magnitude) & '\n'
+
+when isMainModule:
+  import std/unittest
+
+  const
+    Test = {"apple": 3, "banana": 1, "cherry": 2}
+    Expected = """
+apple    | ############
+banana   | ####
+cherry   | ########
+"""
+
+  suite "ASCII bar chart":
+    test "Example 1":
+      check barGraph(Test, 4) == Expected