ah zo! Thanks, Gabriele!
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Monday, September 18, 2000 1:03 PM
> To: [EMAIL PROTECTED]
> Subject: [REBOL] Re: credit card validation
>
>
> 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/
>