Data commit

Task/Abbreviations-automatic/Nim/abbreviations-automatic-1.nim

@@ -0,0 +1,31 @@
+import sets
+import unicode
+
+type Runes = seq[Rune]
+
+var linenum = 0
+for line in lines("days.txt"):
+  inc linenum
+  if line.len > 0:
+
+    # Extract the day names and store them in a sorted list of sequences of runes.
+    var days: seq[Runes]
+    for day in line.splitWhitespace():
+      days.add(day.toLower.toRunes)
+    if days.len != 7:
+      echo "Wrong number of days at line ", linenum
+
+    # Build the abbreviations and store them in a set.
+    var index = 0
+    while true:
+      var abbrevs: HashSet[seq[Rune]]
+      for day in days:
+        abbrevs.incl(day[0..min(index, day.high)])
+      if abbrevs.card == 7:
+        # All abbreviations are different: fine!
+        break
+      inc index
+    echo index + 1, " ", line
+
+  else:
+    echo line

Task/Abbreviations-automatic/Nim/abbreviations-automatic-2.nim

@@ -0,0 +1,31 @@
+import algorithm
+import unicode
+
+type Runes = seq[Rune]
+
+var linenum = 0
+for line in lines("days.txt"):
+  inc linenum
+  if line.len > 0:
+
+    # Extract the day names and store them in a sorted list of sequences of runes.
+    var days: seq[Runes]
+    for day in sorted(line.toLower.splitWhitespace()):
+      days.add(day.toRunes)
+    if days.len != 7:
+      echo "Wrong number of days at line ", linenum
+
+    # Compare the first letters of successive day names, incrementing the upper index if necessary.
+    var index = 0             # Equal to abbreviation length - 1.
+    var prevday = days[0]
+    for idx in 1..days.high:
+      let currday = days[idx]
+      if currday == prevday:
+        echo "Double encountered at line ", linenum
+      while currday[0..min(index, currday.high)] == prevday[0..min(index, prevday.high)]:
+        inc index
+      prevday = currday
+    echo index + 1, " ", line
+
+  else:
+    echo line