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 | 4502b1fa0696dd647f8a38b72b8f689433bf98cd (patch) | |
| tree | e2d46a7b5e2c62f378f3bc556de2b52dc7ed92f3 /library/init.tcl | |
| parent | c8eb649431a107df0b9828649d96894768c00591 (diff) | |
| download | tcl-4502b1fa0696dd647f8a38b72b8f689433bf98cd.zip tcl-4502b1fa0696dd647f8a38b72b8f689433bf98cd.tar.gz tcl-4502b1fa0696dd647f8a38b72b8f689433bf98cd.tar.bz2 | |
mathematical version of TIP#131
Diffstat (limited to 'library/init.tcl')
| -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 ""] +} |