Anonymous user
Ethiopian multiplication: Difference between revisions
m
→{{header|Tcl}}: explanatory comment
m (→{{header|Tcl}}: explanatory comment) |
|||
Line 1,348:
=={{header|Tcl}}==
<lang tcl># This is how to declare functions - the mathematical entities - as opposed to procedures
proc tcl::mathfunc::halve n {expr {$n / 2}}
proc tcl::mathfunc::even n {expr {($n & 1) == 0}}
| |||