Data update

Task/Abbreviations-automatic/R/abbreviations-automatic.r

@@ -0,0 +1,21 @@
+library(stringi)
+
+abbrev <- function(w) {
+  w1 <- stri_split_fixed(w," ") %>% unlist()
+  if (length(w1) != 7) stop("Error: not enough days in the week.")
+  maxv <- max(sapply(w1,\(x) nchar(x)))
+  for (i in 1:maxv) {
+    tl <- stri_sub(w1,1,i) %>% unique() %>% length()
+    if (tl == 7) return(i)
+  }
+}
+
+# Main
+lines <- readLines("daysOfWeek.txt")
+for (l in lines) {
+  if (nchar(l) == 0) {
+    cat("\n")
+  } else {
+    cat(paste(abbrev(l),l),"\n")
+  }
+}

Task/Abbreviations-automatic/Wren/abbreviations-automatic.wren

@@ -1,7 +1,7 @@
 import "io" for File
-import "/pattern" for Pattern
-import "/seq" for Lst
-import "/fmt" for Fmt
+import "./pattern" for Pattern
+import "./seq" for Lst
+import "./fmt" for Fmt
 
 var p = Pattern.new("+1/s")
 var lines = File.read("days_of_week.txt").split("\n").map { |l| l.trim() }