Scratchpad r76 (See the current copy)
Feel free to contact me about this website at mailto:wiki@rkeene.org
- Information about Threads
- Information about Tcl
- Random Scripts
- Information about interesting Current Projects
- My Friends
- Random Diatribes
- My Scratchpad
- Information about Random Number Generation
- Random Links
- Information about Roy Keene
- Random Demonstrations
What you will find here
Test Script 1
set ret [list]
foreach line [split [getpage 0] \n] {
set ret [linsert $ret [expr int(rand() * [llength $ret])] $line]
}
puts [join $ret \n]
puts ""
while 1 {
set pageId [expr int(rand() * [countpages])]
set pageText [getpage $pageId]
if {$pageText == ""} {
continue
}
puts "** \[[gettitle $pageId]\] **"
puts $pageText
break
}
return