Thus said Barry Roberts on Thu, 02 Nov 2006 12:40:49 EST:
> On Thu, Nov 02, 2006 at 05:20:21PM -0700, Andy Bradford wrote:
> > So, unless I'm reading my Python code incorrectly, it would appear
> > that I'm not the only one that misinterpreted which sequence should
> > be used when making the comparision.
>
> Yep. I interpreted it incorrectly.
I did too at first, no big deal (your next version produces correct
output). By the way, here's a tally of runtimes on my PC:
Python: .045ms on average
Tcl [1]: .016ms on average
Perl: .0125ms on average
Looks like Perl wins out on speed. I didn't have PHP installed (who uses
PHP for scripting anyways) so someone else may want to provide it.
[1] Here's my unoptimized Tcl version:
#!/bin/sh
# \
exec tclsh "$0" ${1+"$@"}
while {[gets stdin line] >= 0} {
set sline [split $line]
set good 1
set goodset [list]
set length [llength $sline]
if {$length} {
for {set x 1} {$x < $length} {incr x} {
lappend goodset $x
}
set loopend [expr $length - 1]
for {set x 0} {$x < $loopend} {incr x} {
set next [expr $x + 1]
set res [expr abs([lindex $sline $x] - [lindex $sline $next])]
if {[lsearch -exact $goodset $res] == -1} { set good 0 }
}
if {$good} { puts stdout "match" } else { puts stdout "no match" }
} else {
puts stdout "no match"
}
}
Andy
--
[-----------[system uptime]--------------------------------------------]
6:08pm up 4 days, 7:53, 1 user, load average: 1.00, 1.00, 1.00
/*
PLUG: http://plug.org, #utah on irc.freenode.net
Unsubscribe: http://plug.org/mailman/options/plug
Don't fear the penguin.
*/
