egghelp/eggheads community

Comparing 2 scrambled words

2002-05-22T14:30:00-04:00

% time {if {"a" == "a"} {}} 1000
12 microseconds per iteration
% time {if {![string compare "a" "a"]} {}} 1000
13 microseconds per iteration

string compare is slower performance wise than a simple ==, though if you have to throw in case exemption then its slightly faster. However, it isn't portable to lower tcl vers if you do that.

Statistics: Posted by Petersen — Wed May 22, 2002 2:30 pm

Comparing 2 scrambled words

2002-05-22T13:13:00-04:00

We want to know if the strings are equal, don't we? So that's the result we'd want. Basically using string equal would be better.

The problem is that the equality operator always tries to convert both
of the strings to integers, and if this fails, tries to convert both
into double, and if that fails, compares the strings as strings.

On the other hand, the [string foo] procedures are not compiled by tcl8!

So you loose performance with both. Nevertheless, [string compare ...]
is better than == in most cases, and [string length ...] always wins
over == "".

string compare doesn't compare in a numerical sense but in a lexicographical sense. see the man pages:

string compare ?-nocase? ?-length int? string1 string2
Perform a character-by-character comparison of strings string1 and string2. Returns -1, 0, or 1, depending on whether string1 is lexicographically less than, equal to, or greater than string2. If -length is specified, then only the first length characters are used in the comparison. If -length is negative, it is ignored. If -nocase is specified, then the strings are compared in a case-insensitive manner.

Statistics: Posted by Guest — Wed May 22, 2002 1:13 pm

Comparing 2 scrambled words

2002-05-22T08:38:00-04:00

[11:34] .tcl string compare abc cba
[11:34] TCL: -1
[11:34] .tcl string compare bac abc
[11:34] TCL: 1
[11:35] .tcl string compare abc abc
[11:35] TCL: 0

do you see? string compare will not help you compare scrambled words, as all it does is check if the string on the left is less than (in a numerical sense) than the one on the right. The only time it ever returns true is in the third instance, where the strings are actually exactly the same (in which case if {$string1 == $string2} is a lot more efficient)

Statistics: Posted by Petersen — Wed May 22, 2002 8:38 am

Comparing 2 scrambled words

2002-05-22T05:46:00-04:00

Already have... simply works... no problems... Maybe I'm thick but I can't see the problem...

Statistics: Posted by Guest — Wed May 22, 2002 5:46 am

Comparing 2 scrambled words

2002-05-21T19:30:00-04:00

you try coding it and then you'll discover why it can't be used

Statistics: Posted by Petersen — Tue May 21, 2002 7:30 pm

Comparing 2 scrambled words

2002-05-21T18:57:00-04:00

Why not use string compare as it's faster and you can use the -nocase flag since tcl 8.3 so you won't need to convert to upper- or lowercase first...

Statistics: Posted by Guest — Tue May 21, 2002 6:57 pm

Comparing 2 scrambled words

2002-05-20T13:01:00-04:00

Thx revered one .. oops I mean ppslim

[ This Message was edited by: z_one on 2002-05-20 11:01 ]

Statistics: Posted by z_one — Mon May 20, 2002 1:01 pm

Comparing 2 scrambled words

2002-05-20T11:20:00-04:00

You will need to convert the 2 words to lower or uppercase first, as the match is case sansative.

Statistics: Posted by ppslim — Mon May 20, 2002 11:20 am

Comparing 2 scrambled words

2002-05-20T11:19:00-04:00

Code:

set scramble1 "hlleo"set scramble2 "loehl"if {[join [lsort [split $scramble1 {}]] {}] == [join [lsort [split $scramble2 {}]] {}]} {Words match} else {words do not match}

Statistics: Posted by ppslim — Mon May 20, 2002 11:19 am

Comparing 2 scrambled words

2002-05-20T11:02:00-04:00

Is there a way to compare two strings of same length to see if they are made of the same characters ?

Example: "hello" and "lleho"

If yes what would be the tcl code to do that ?

Thanks

Statistics: Posted by z_one — Mon May 20, 2002 11:02 am