in reply to Challenge: prefix($x, $y) . suffix($x, $z) eq $x

Here's my straight forward solution, ungolfed...

<Reveal this spoiler or all in this thread>

timed as

real    0m0.387s
user    0m0.381s
sys     0m0.003s

[download]

update: using Limbic~Region's name list I get

real    0m12.441s
user    0m12.219s
sys     0m0.015s

[download]

and replacing m// with index in sub suffix above

real    0m6.405s
user    0m6.273s
sys     0m0.007s

[download]

on a Pentium M 2.10GHz, perl 5.8.8 - What are your timings? What is "better"? Code readability, brevity, maintainability, performance?

;-)

Replies are listed 'Best First'.
Re^2: Challenge: prefix($x, $y) . suffix($x, $z) eq $x
by Limbic~Region (Chancellor) on Apr 22, 2009 at 22:18 UTC
    shmem,
    What is "better"?

    Bah, I was just baiting folks into contributing. I do see a syntax error in what you posted (last if block is missing closing curly)? After correcting that typo, it takes about 11 wallclock seconds to run the tennis name list. Thanks for your contribution :-)

    Cheers - L~R

[reply]
      I do see a syntax error

      Thanks, corrected. - I seem to just have learned something about index: use it! Did cut the wallclock time to the half it did... ;-) ... see my update.

[reply]
        shmem,
        This doesn't seem to scale very well. I started to run it against a 60K word dictionary file and I gave up waiting for it to produce output after a few minutes. Perhaps you could modify it to accept a target word from the command line and only do all matches if one isn't provided?

        Cheers - L~R

[reply]

In Section Meditations