Hello [EMAIL PROTECTED]!

On 16-Set-00, you wrote:

 r> cleancard: func [card][
 r>        replace/all card " " ""
 r>     parse card [some [to "^M" (remove find card "^M")] to end]
 r>     parse card [some [to "^/" (remove find card "^/")] to end]
 r>        card: trim card
 r> ]

I think that:

  trim/with card " ^/^M"

should be faster. Also,

  to-integer card/1 - 48

is a bit faster than:

  to-integer to-string card/1

Regards,
    Gabriele.
-- 
Gabriele Santilli <[EMAIL PROTECTED]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/

Reply via email to