Anonymous user
Ethiopian multiplication: Difference between revisions
m
→{{header|Tcl}}: closer match with varnames from other examples
(→Tcl: Added implementation) |
m (→{{header|Tcl}}: closer match with varnames from other examples) |
||
Line 186:
# Wrapper to set up the logging
proc ethiopianMultiply {a b {
if {$
set wa [expr {[string length $a]+1}]
set wb [expr {$wa+[string length $b]-1}]
| |||