🚀 go-pugleaf

In article <3472819C.218E@short.net> of Tue, 18 Nov 1997 22:05:16 in
borland.public.turbopascal, Mike <internal@short.net> wrote:
>Dr John Stockton wrote:
>> 
>> In article <34717177.6538@short.net> of Tue, 18 Nov 1997 02:44:07 in
>> comp.lang.pascal.borland, Mike <internal@short.net> wrote:
>> >
>> >Here's mine!
>> >
>> >procedure DelSt
>> > ...
>> 
>> A hasty test shows that yours works on reasonable cases, but differs
>> from sys.Delete and mine on pathological ones such as negative inputs.
>> As of course we all expected, the speeds of ours are rather similar.  I
>> guess that which is, on the average, best *might* depend on the nature
>> of the string deletes one wants, e.g. snips or chops.
>
>I purposely excluded pathological cases such as negative inputs. In my 
>case, all calls to the routine are known to be positive.
>
>I'm surprised the speeds turn out to be the same. Yours has a lot more 
>checking for pathological conditions.

I only said "rather similar"; my timing method is inexact but adequate.

Although I have a line of tests, they will code easily and are only done
once; and our Deletes include looping over all the characters shifted.
The Borland one should be faster for removing all but the very ends of a
long string, for which I've just added   DelTest(St, 255,   2, 253) ;  !

Regards,
 
-- 
John Stockton, Surrey, UK.    jrs@merlyn.demon.co.uk    Turnpike v1.12    MIME.
  Web URL: http://www.merlyn.demon.co.uk/ - FAQqish topics, acronyms and links.
  Correct 4-line sig separator is as above, a line comprising "-- " (SoRFC1036)
  Before a reply, quote with ">" / "> ", known to good news readers (SoRFC1036)