Tcl-i cannot find the error:Can somebody help me...

[admin]

i have compile this coding in JCreator and get the output...the output should look like this:215 960 1220 1775<br /><br />but when i try to transfer the source code in TCl i cannot find where is the error> Can somebody help me solve my problem.<br /><!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1--><br />set size 5;<br /><br />proc mkmatrix {rows cols} {<br />    set count 1;<br />    set mx

• <br />      for { set i 0 } { $i < $rows } { incr i } {<br />    set row
  • <br />    for { set j 0 } { $j < $cols } { incr j } {<br />       lappend row $count;<br />       incr count;<br />       }<br />         lappend mx $row;<br />     }<br />      return $mx;<br /> }<br /><br />    proc mmult {m1 m2} {<br />         set cols [lindex $m2 0]<br />           foreach row1 $m1 {<br />              set row
    • <br />            set i 0<br />            foreach - $cols {<br />               set elem 0<br />                foreach elem1 $row1 row2 $m2 {<br />                  set elem [expr {$elem + $elem1 * [lindex $row2 $i]}]<br />                } <br />                lappend row $elem<br />                  incr i<br />               }<br />              lappend result $row<br />       }<br />       return $result<br />}<br /><br />proc main {} {<br />      global argv size<br />      set num [lindex $argv 0]<br />       if {$num < 1} {<br />      set num 1<br />      }<br /><br />      set m1 [mkmatrix $size $size]<br />      set m2 [mkmatrix $size $size]<br />      while {$num > 0} {<br />          incr num -1<br />          set m [mmult $m1 $m2]<br />      }<br /><br />      puts "[lindex [lindex $m 0] 0] [lindex [lindex $m 2] 3] [lindex [lindex $m 3] 2] [lindex [lindex $m 4] 4]"<br />}<br /><br />main<!--c2--></div><!--ec2--><br /><br /><span class='edit'>This post has been edited by <b>William_Wilson</b>: 13 Jan, 2008 - 08:23 AM</span>
      </div>