Code for word scrambling

[Eggy]

Please anybody help
How's the code for scrambling a word?

[stdragon]

Code: Select all

set word "yummysheep"

proc scramble {word} {
  set letters [split $word ""]
  set newword ""
  while {[llength $letters]} {
    set i [rand [llength $letters]]
    append newword [lindex $letters $i]
    set letters [lreplace $letters $i $i]
  }
  return $newword
}

[Eggy]

Thx stdragon, I'll give your code a try

[Eggy]

Sorry to bother you again stdragon.

How can I call the procedure & say it to the channel?

[Eggy]

I've found the way to call the procedure, but what if I want to scramble a phrase, let say I want to scramble "word1 word2 word3" and I want the result something like "rd1ow 2odwr r3owd"? dont scramble the space, keep the space at it original location.

Thanks.

[stdragon]

Code: Select all

proc scramble_phrase {phrase} {
  set newphrase [list]
  foreach word [split $phrase] {
    lappend newphrase [scramble $word]
  }
  return [join $newphrase]
}

[Eggy]

Those both work perfectly stdragon, I do appreciate for your great help. Thanx a lot.