Data commit

Task/Align-columns/E/align-columns-1.e

@@ -0,0 +1,29 @@
+pragma.enable("accumulator")
+
+def left(width, word) {
+  return word + " " * (width - word.size())
+}
+
+def center(width, word) {
+  def leftCount := (width - word.size()) // 2
+  return " " * leftCount + word + " " * (width - word.size() - leftCount)
+}
+
+def right(width, word) {
+  return " " * (width - word.size()) + word
+}
+
+def alignColumns(align, text) {
+    def split := accum [] for line in text.split("\n") { _.with(line.split("$")) }
+    var widths := []
+    for line in split {
+      for i => word in line {
+        widths with= (i, widths.fetch(i, fn{0}).max(word.size()))
+      }
+    }
+    return accum "" for line in split {
+      _ + accum "" for i => word in line {
+        _ + align(widths[i] + 1, word)
+      } + "\n"
+    }
+}

Task/Align-columns/E/align-columns-2.e

@@ -0,0 +1,30 @@
+? def text := "Given$a$text$file$of$many$lines,$where$fields$within$a$line$
+are$delineated$by$a$single$'dollar'$character,$write$a$program
+that$aligns$each$column$of$fields$by$ensuring$that$words$in$each$
+column$are$separated$by$at$least$one$space.
+Further,$allow$for$each$word$in$a$column$to$be$either$left$
+justified,$right$justified,$or$center$justified$within$its$column."; null
+
+? println(alignColumns(left, text))
+Given      a          text       file   of     many      lines,     where    fields  within  a      line
+are        delineated by         a      single 'dollar'  character, write    a       program
+that       aligns     each       column of     fields    by         ensuring that    words   in     each
+column     are        separated  by     at     least     one        space.
+Further,   allow      for        each   word   in        a          column   to      be      either left
+justified, right      justified, or     center justified within     its      column.
+
+? println(alignColumns(center, text))
+   Given        a        text     file    of      many     lines,     where   fields  within    a   line
+    are    delineated     by        a   single  'dollar' character,   write     a    program
+   that      aligns      each    column   of     fields      by     ensuring   that   words    in   each
+  column       are     separated   by     at     least       one     space.
+ Further,     allow       for     each   word      in         a      column     to      be   either left
+justified,    right   justified,   or   center justified   within      its   column.
+
+? println(alignColumns(right, text))
+      Given          a       text   file     of      many     lines,    where  fields  within      a line
+        are delineated         by      a single  'dollar' character,    write       a program
+       that     aligns       each column     of    fields         by ensuring    that   words     in each
+     column        are  separated     by     at     least        one   space.
+   Further,      allow        for   each   word        in          a   column      to      be either left
+ justified,      right justified,     or center justified     within      its column.