diff --git a/exercises/practice/matrix/.meta/example.sml b/exercises/practice/matrix/.meta/example.sml index 06e1190..dc49754 100644 --- a/exercises/practice/matrix/.meta/example.sml +++ b/exercises/practice/matrix/.meta/example.sml @@ -5,8 +5,8 @@ local val cells: string -> string list = String.tokens (fn (c: char) => c = #" ") - fun extract (index: int) (l: string list): string = - List.nth (l, index - 1) + fun extract (index: int) (l: string list): string = + List.nth (l, index - 1) in fun row (s: string, index: int): int list = map (valOf o Int.fromString) ((cells o extract index o lines) s) @@ -14,3 +14,4 @@ in fun column (s: string, index: int): int list = map (valOf o Int.fromString o extract index o cells) (lines s) end + diff --git a/exercises/practice/matrix/matrix.sml b/exercises/practice/matrix/matrix.sml index ce45ea8..8043862 100644 --- a/exercises/practice/matrix/matrix.sml +++ b/exercises/practice/matrix/matrix.sml @@ -3,3 +3,4 @@ fun row (s: string, index: int): int list = fun column (s: string, index: int): int list = raise Fail "'column' is not implemented" +