summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authormax <max@tclers.tk>2011-04-01 10:48:21 (GMT)
committermax <max@tclers.tk>2011-04-01 10:48:21 (GMT)
commit4502b1fa0696dd647f8a38b72b8f689433bf98cd (patch)
treee2d46a7b5e2c62f378f3bc556de2b52dc7ed92f3 /library
parentc8eb649431a107df0b9828649d96894768c00591 (diff)
downloadtcl-4502b1fa0696dd647f8a38b72b8f689433bf98cd.zip
tcl-4502b1fa0696dd647f8a38b72b8f689433bf98cd.tar.gz
tcl-4502b1fa0696dd647f8a38b72b8f689433bf98cd.tar.bz2
mathematical version of TIP#131
Diffstat (limited to 'library')
-rw-r--r--library/init.tcl11
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 ""]
+}