1 line
49 B
Text
1 line
49 B
Text
proc cross_sum {s} {expr [join [split $s ""] +]}
|
proc cross_sum {s} {expr [join [split $s ""] +]}
|