Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | mathematical version of TIP#131 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
c5a8b77ec4181c21199d6fdc9542f44f |
| User & Date: | max 2011-04-01 10:48:21 |
Context
|
2011-04-02
| ||
| 12:17 | More generation of errorCode information (default [bgerror] and [glob]). check-in: a2fcb8020d user: dkf tags: trunk | |
|
2011-04-01
| ||
| 10:48 | mathematical version of TIP#131 check-in: c5a8b77ec4 user: max tags: trunk | |
| 09:29 | Implement TIP#131 check-in: c7f554fb21 user: max tags: trunk | |
Changes
Changes to library/init.tcl.
| ︙ | ︙ | |||
832 833 834 835 836 837 838 |
foreach mystic [lassign $magic tragic] {
set comic [expr (0x$mystic ^ 0x$tragic) - 255 + 0x$tragic]
append logic [format %x $comic]
set tragic $mystic
}
binary format H* $logic
}
| > > > > > > > > > > > | 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 |
foreach mystic [lassign $magic tragic] {
set comic [expr (0x$mystic ^ 0x$tragic) - 255 + 0x$tragic]
append logic [format %x $comic]
set tragic $mystic
}
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 ""]
}
|