TWC338

2 files changed, 57 insertions, 0 deletions

diff --git a/challenge-338/deadmarshal/modula-3/Ch1/src/Ch1.m3 b/challenge-338/deadmarshal/modula-3/Ch1/src/Ch1.m3
new file mode 100644
index 0000000000..0873efdae8
--- /dev/null
+++ b/challenge-338/deadmarshal/modula-3/Ch1/src/Ch1.m3
@@ -0,0 +1,53 @@
+MODULE Ch1 EXPORTS Main;
+
+IMPORT SIO;
+
+VAR
+  A1 := ARRAY[0..2],[0..3] OF INTEGER{
+  ARRAY[0..3] OF INTEGER{4,4,4,4},
+  ARRAY[0..3] OF INTEGER{10,0,0,0},
+  ARRAY[0..3] OF INTEGER{2,2,2,9}};
+
+  A2 := ARRAY[0..2],[0..1] OF INTEGER{
+  ARRAY[0..1] OF INTEGER{1,5},
+  ARRAY[0..1] OF INTEGER{7,3},
+  ARRAY[0..1] OF INTEGER{3,5}};
+  
+  A3 := ARRAY[0..1],[0..2] OF INTEGER{
+  ARRAY[0..2] OF INTEGER{1,2,3},
+  ARRAY[0..2] OF INTEGER{3,2,1}};
+
+  A4 := ARRAY[0..2],[0..2] OF INTEGER{
+  ARRAY[0..2] OF INTEGER{2,8,7},
+  ARRAY[0..2] OF INTEGER{7,1,3},
+  ARRAY[0..2] OF INTEGER{1,9,5}};
+
+  A5 := ARRAY[0..3],[0..2] OF INTEGER{
+  ARRAY[0..2] OF INTEGER{10,20,30},
+  ARRAY[0..2] OF INTEGER{5,5,5},
+  ARRAY[0..2] OF INTEGER{0,100,0},
+  ARRAY[0..2] OF INTEGER{25,25,25}};
+
+PROCEDURE HighestRow(VAR A:ARRAY OF ARRAY OF INTEGER):INTEGER =
+  VAR
+    Max := FIRST(INTEGER);
+    Sum:INTEGER;
+  BEGIN
+    FOR I := FIRST(A) TO LAST(A) DO
+      Sum := 0;
+      FOR J := FIRST(A[I]) TO LAST(A[I]) DO
+        INC(Sum,A[I,J])
+      END;
+      IF Sum > Max THEN Max := Sum END;
+    END;
+    RETURN Max
+  END HighestRow;
+  
+BEGIN
+  SIO.PutInt(HighestRow(A1)); SIO.Nl();
+  SIO.PutInt(HighestRow(A2)); SIO.Nl();
+  SIO.PutInt(HighestRow(A3)); SIO.Nl();
+  SIO.PutInt(HighestRow(A4)); SIO.Nl();
+  SIO.PutInt(HighestRow(A5)); SIO.Nl()
+END Ch1.
+
diff --git a/challenge-338/deadmarshal/modula-3/Ch1/src/m3makefile b/challenge-338/deadmarshal/modula-3/Ch1/src/m3makefile
new file mode 100644
index 0000000000..643b33d043
--- /dev/null
+++ b/challenge-338/deadmarshal/modula-3/Ch1/src/m3makefile
@@ -0,0 +1,4 @@
+import("libm3")
+import("libsio")
+implementation("Ch1")
+program("Ch1")