diff options
| author | max <max@tclers.tk> | 2011-04-01 10:48:21 (GMT) |
|---|---|---|
| committer | max <max@tclers.tk> | 2011-04-01 10:48:21 (GMT) |
| commit | 011e49d490700464ea5e638112b44e0e4b1b6a15 (patch) | |
| tree | e2d46a7b5e2c62f378f3bc556de2b52dc7ed92f3 | |
| parent | 31f68cadbfca320c6085797aa19a218bf565a946 (diff) | |
| download | tcl-011e49d490700464ea5e638112b44e0e4b1b6a15.zip tcl-011e49d490700464ea5e638112b44e0e4b1b6a15.tar.gz tcl-011e49d490700464ea5e638112b44e0e4b1b6a15.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 ""] +} |