diff options
| author | max@tclers.tk (Reinhard Max) <max> | 2011-04-01 10:48:21 (GMT) |
|---|---|---|
| committer | max@tclers.tk (Reinhard Max) <max> | 2011-04-01 10:48:21 (GMT) |
| commit | bbacfff833b42c97168e94e25a02f4fe192897f4 (patch) | |
| tree | e2d46a7b5e2c62f378f3bc556de2b52dc7ed92f3 | |
| parent | f1ba381e5b3e12b1eac444ad26bf21ae8757d9ab (diff) | |
| download | tcl-bbacfff833b42c97168e94e25a02f4fe192897f4.zip tcl-bbacfff833b42c97168e94e25a02f4fe192897f4.tar.gz tcl-bbacfff833b42c97168e94e25a02f4fe192897f4.tar.bz2 | |
mathematical version of TIP#131
| -rw-r--r-- | library/init.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/library/init.tcl b/library/init.tcl index e6e69c3..d85fe2a 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -836,3 +836,14 @@ proc tcl::rmmadwiw {} { } binary format H* $logic } + +proc tcl::mathfunc::rmmadwiw {} { + set age [expr {9*6}] + set mind "" + while {$age} { + lappend mind [expr {$age%13}] + set age [expr {$age/13}] + } + set matter [lreverse $mind] + return [join $matter ""] +} |