Anonymous user
Arithmetic evaluation: Difference between revisions
→{{header|Tcl}}: use 'in' operator
m (→{{header|Tcl}}) |
(→{{header|Tcl}}: use 'in' operator) |
||
Line 1,462:
if [regexp {[()]} $args] {
eval s [string map {( "\[s " ) \]} $args]
} elseif {
s [s_group args *]
} elseif {
s [s_group args /]
} elseif {
s [s_group args +]
} elseif {
s [s_group args -]
} else {
| |||