egghelp/eggheads community

Code for word scrambling

2002-03-12T05:43:00-04:00

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

Statistics: Posted by Guest — Tue Mar 12, 2002 5:43 am

Code for word scrambling

2002-03-11T23:52:00-04:00

Code:

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

Statistics: Posted by stdragon — Mon Mar 11, 2002 11:52 pm

Code for word scrambling

2002-03-11T08:21:00-04:00

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.

Statistics: Posted by Guest — Mon Mar 11, 2002 8:21 am

Code for word scrambling

2002-03-11T06:52:00-04:00

Sorry to bother you again stdragon.

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

Statistics: Posted by Guest — Mon Mar 11, 2002 6:52 am

Code for word scrambling

2002-03-11T04:41:00-04:00

Thx stdragon, I'll give your code a try

Statistics: Posted by Guest — Mon Mar 11, 2002 4:41 am

Code for word scrambling

2002-03-11T03:58:00-04:00

Code:

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}

Statistics: Posted by stdragon — Mon Mar 11, 2002 3:58 am

Code for word scrambling

2002-03-11T01:11:00-04:00

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

Statistics: Posted by Guest — Mon Mar 11, 2002 1:11 am