1 files changed, 110 insertions, 0 deletions
diff --git a/challenge-286/peter-meszaros/tcl/ch-2.tcl b/challenge-286/peter-meszaros/tcl/ch-2.tcl
new file mode 100755
index 0000000000..a19d191260
--- /dev/null
+++ b/challenge-286/peter-meszaros/tcl/ch-2.tcl
@@ -0,0 +1,110 @@
+#!/usr/bin/env tclsh
+#
+# Task 2: Order Game
+# 
+# Submitted by: Mohammad Sajid Anwar
+# 
+# You are given an array of integers, @ints, whose length is a power of 2.
+# 
+# Write a script to play the order game (min and max) and return the last
+# element.
+# 
+# Example 1
+# 
+#     Input: @ints = (2, 1, 4, 5, 6, 3, 0, 2)
+#     Output: 1
+# 
+#     Operation 1:
+# 
+#         min(2, 1) = 1
+#         max(4, 5) = 5
+#         min(6, 3) = 3
+#         max(0, 2) = 2
+# 
+#     Operation 2:
+# 
+#         min(1, 5) = 1
+#         max(3, 2) = 3
+# 
+#     Operation 3:
+# 
+#         min(1, 3) = 1
+# 
+# Example 2
+# 
+#     Input: @ints = (0, 5, 3, 2)
+#     Output: 0
+# 
+#     Operation 1:
+# 
+#         min(0, 5) = 0
+#         max(3, 2) = 3
+# 
+#     Operation 2:
+# 
+#         min(0, 3) = 0
+# 
+# Example 3
+# 
+#     Input: @ints = (9, 2, 1, 4, 5, 6, 0, 7, 3, 1, 3, 5, 7, 9, 0, 8)
+#     Output: 2
+# 
+#     Operation 1:
+# 
+#         min(9, 2) = 2
+#         max(1, 4) = 4
+#         min(5, 6) = 5
+#         max(0, 7) = 7
+#         min(3, 1) = 1
+#         max(3, 5) = 5
+#         min(7, 9) = 7
+#         max(0, 8) = 8
+# 
+#     Operation 2:
+# 
+#         min(2, 4) = 2
+#         max(5, 7) = 7
+#         min(1, 5) = 1
+#         max(7, 8) = 8
+# 
+#     Operation 3:
+# 
+#         min(2, 7) = 2
+#         max(1, 8) = 8
+# 
+#     Operation 4:
+# 
+#         min(2, 8) = 2
+# 
+
+package require tcltest
+
+set cases {
+    {{2 1 4 5 6 3 0 2}                 1 "Example 1"}
+    {{0 5 3 2}                         0 "Example 2"}
+    {{9 2 1 4 5 6 0 7 3 1 3 5 7 9 0 8} 2 "Example 3"}
+}
+
+proc order_game {lst} {
+
+    while {[llength $lst] != 1} {
+        set l {}
+        for {set i 0} {$i < [llength $lst]} {incr i 2} {
+            set v [lsort [list [lindex $lst $i] [lindex $lst [expr $i + 1]]]]
+            lappend l [lindex $v [expr $i / 2 % 2]]
+        }
+        set lst $l
+    }
+    return [lindex $lst 0]
+}
+
+tcltest::configure -verbose {pass}
+foreach case $cases {
+    tcltest::test [lindex $case 2] {} {
+        order_game [lindex $case 0]
+    } [lindex $case 1]
+}
+
+exit 0
+
+