a proc who puts a word in the disorder ?

[scripteurs]

looking the subject

[Papillon]

ummmm????

[scripteurs]

exemple :

word : hello

this proc return

llohe or ollhe or lheol etc....

capishé ?

[Papillon]

Code: Select all

proc scrabble {arg} {
	set word [lindex [split $arg] 0]
	set scrab ""; set tmp $word
	while {[string length $scrab] < [string length $word]} {
		set ind [rand [string length $tmp]]
		set char [string index $tmp $ind]
		append scrab $char
		set tmp [string replace $tmp $ind $ind]
	}
	while {[string equal $word $scrab]} { set scrab [scrabble $word] }
	return $scrab
}

something like this should do it....

[scripteurs]

verry thx

greet years