diff options
| -rw-r--r-- | challenge-134/abigail/tcl/ch-2.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-134/abigail/tcl/ch-2.tcl b/challenge-134/abigail/tcl/ch-2.tcl index 534913afcd..1b09d5d2eb 100644 --- a/challenge-134/abigail/tcl/ch-2.tcl +++ b/challenge-134/abigail/tcl/ch-2.tcl @@ -11,8 +11,7 @@ while {[gets stdin line] >= 0} { array set seen { } for {set i 1} {$i <= $n} {incr i} { for {set j 1} {$j <= $m} {incr j} { - set p [expr $i * $j] - set seen($p) 1 + set seen([expr $i * $j]) 1 } } puts [array size seen] |