Matrix: create exercise (#33)

Test has canonical test version 1.3.0: exercism/problem-specifications#1578.

Author: glennj

config.json

@@ -73,6 +73,17 @@
         "lists"
       ]
     },
+    {
+      "slug": "matrix",
+      "uuid": "32ad6c64-82ae-434e-83e1-1cf11eecc3cc",
+      "core": true,
+      "unlocked_by": null,
+      "difficulty": 3,
+      "topics": [
+        "lists",
+        "transforming"
+      ]
+    },
     {
       "slug": "series",
       "uuid": "6893e956-8e80-4a3e-a622-6b76a65495c4",

exercises/matrix/.meta/version

@@ -0,0 +1 @@
+1.3.0

exercises/matrix/README.md

@@ -0,0 +1,65 @@
+# Matrix
+
+Given a string representing a matrix of numbers, return the rows and columns of
+that matrix.
+
+So given a string with embedded newlines like:
+
+```text
+9 8 7
+5 3 2
+6 6 7
+```
+
+representing this matrix:
+
+```text
+    1  2  3
+  |---------
+1 | 9  8  7
+2 | 5  3  2
+3 | 6  6  7
+```
+
+your code should be able to spit out:
+
+- A list of the rows, reading each row left-to-right while moving
+  top-to-bottom across the rows,
+- A list of the columns, reading each column top-to-bottom while moving
+  from left-to-right.
+
+The rows for our example matrix:
+
+- 9, 8, 7
+- 5, 3, 2
+- 6, 6, 7
+
+And its columns:
+
+- 9, 5, 6
+- 8, 3, 6
+- 7, 2, 7
+
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.
+
+## Running the tests
+To run the test suite, execute one of the following commands:
+
+```bash
+tclsh matrix.test            # Will stop testing after the first failure.
+RUN_ALL=1 tclsh matrix.test  # Will run all tests and report all failures.
+```
+
+## Feedback, Issues, Pull Requests
+The [exercism/tcl](https://github.com/exercism/tcl) repository on GitHub is
+the home for all of the Tcl exercises on Exercism.
+
+If you have feedback about an exercise, or want to help implementing a new
+one, head over there and create an issue.  We'll do our best to help you!
+
+## Source
+
+Warmup to the `saddle-points` warmup. [http://jumpstartlab.com](http://jumpstartlab.com)
+

exercises/matrix/example.tcl

@@ -0,0 +1,28 @@
+oo::class create Matrix {
+    constructor {inputString} {
+        variable rows
+        set rows [lmap line [split $inputString \n] {split $line}]
+    }
+
+    method row {n} {
+        my variable rows
+        return [lindex $rows $n-1]
+    }
+
+    method column {n} {
+        my variable rows
+        return [lmap row $rows {lindex $row $n-1}]
+    }
+}
+
+proc matrixFrom {inputString} {
+    Matrix new $inputString
+}
+
+proc row {matrix n} {
+    $matrix row $n
+}
+
+proc column {matrix n} {
+    $matrix column $n
+}

exercises/matrix/matrix.tcl

@@ -0,0 +1,11 @@
+proc matrixFrom {inputString} {
+    throw NOT_IMPLEMENTED "Implement this procedure."
+}
+
+proc row {matrix n} {
+    throw NOT_IMPLEMENTED "Implement this procedure."
+}
+
+proc column {matrix n} {
+    throw NOT_IMPLEMENTED "Implement this procedure."
+}

exercises/matrix/matrix.test

@@ -0,0 +1,90 @@
+#!/usr/bin/env tclsh
+set version 1.3.0
+package require tcltest
+namespace import ::tcltest::*
+source "matrix.tcl"
+
+proc fail_fast {} {
+    return [expr {
+        ![info exists ::env(RUN_ALL)]
+        || [string is boolean -strict $::env(RUN_ALL)]
+        && !$::env(RUN_ALL)
+    }]
+}
+
+proc failed {} {
+    return [expr {$::tcltest::numTests(Failed) > 0}]
+}
+
+if {[fail_fast]} {
+    proc test args {
+        if {[failed]} {::tcltest::configure -skip *}
+        uplevel [list ::tcltest::test {*}$args]
+    }
+}
+
+proc cleanupTests {} {
+    set failed [failed]
+    uplevel 1 ::tcltest::cleanupTests
+    if {$failed} {exit 1}
+}
+
+if {$::argv0 eq [info script]} {
+
+    # row tests
+    test matrix-1.1 "extract row from one number matrix" -body {
+        set matrix [matrixFrom "1"]
+        row $matrix 1
+    } -returnCodes ok -result {1}
+
+    test matrix-1.2 "can extract row" -body {
+        set matrix [matrixFrom "1 2\n3 4"] 
+        row $matrix 2
+    } -returnCodes ok -result {3 4}
+
+    test matrix-1.3 "extract row where numbers have different widths" -body {
+        set matrix [matrixFrom "1 2\n10 20"]   
+        row $matrix 2
+    } -returnCodes ok -result {10 20}
+
+    test matrix-1.4 "can extract row from non-square matrix" -body {
+        set matrix [matrixFrom "1 2 3\n4 5 6\n7 8 9\n8 7 6"]   
+        row $matrix 3
+    } -returnCodes ok -result {7 8 9}
+
+    test matrix-1.5 "can extract row from non-square matrix with no corresponding column" -body {
+        set matrix [matrixFrom "1 2 3\n4 5 6\n7 8 9\n8 7 6"]   
+        row $matrix 4
+    } -returnCodes ok -result {8 7 6}
+
+
+    # column tests
+    test matrix-2.1 "extract column from one number matrix" -body {
+        set matrix [matrixFrom "1"]    
+        column $matrix 1
+    } -returnCodes ok -result {1}
+
+    test matrix-2.2 "can extract column" -body {
+        set matrix [matrixFrom "1 2 3\n4 5 6\n7 8 9"]  
+        column $matrix 3
+    } -returnCodes ok -result {3 6 9}
+
+    test matrix-2.3 "can extract column from non-square matrix" -body {
+        set matrix [matrixFrom "1 2 3\n4 5 6\n7 8 9\n8 7 6"]   
+        column $matrix 3
+    } -returnCodes ok -result {3 6 9 6}
+
+    test matrix-2.4 "can extract column from non-square matrix with no corresponding row" -body {
+        set matrix [matrixFrom "1 2 3 4\n5 6 7 8\n9 8 7 6"]
+        column $matrix 4
+    } -returnCodes ok -result {4 8 6}
+
+    test matrix-2.5 "extract column where numbers have different widths" -body {
+        set matrix [matrixFrom "89 1903 3\n18 3 1\n9 4 800"]   
+        column $matrix 2
+    } -returnCodes ok -result {1903 3 4}
+
+
+    cleanupTests
+}
+