diff options
| author | Abigail <abigail@abigail.be> | 2021-10-15 18:11:26 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-10-15 18:11:26 +0200 |
| commit | 5e7ec3c8c5229a7b9926e0cfb3fc2cdf1485cf35 (patch) | |
| tree | 1f218f360e9ef8f639e8e2e4cd995990383a6db0 | |
| parent | f0d8b22f9615988160e4c8f2f64ec74cd21d795b (diff) | |
| download | perlweeklychallenge-club-5e7ec3c8c5229a7b9926e0cfb3fc2cdf1485cf35.tar.gz perlweeklychallenge-club-5e7ec3c8c5229a7b9926e0cfb3fc2cdf1485cf35.tar.bz2 perlweeklychallenge-club-5e7ec3c8c5229a7b9926e0cfb3fc2cdf1485cf35.zip | |
Optimize
| -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] |