[REBOL] Re: credit card validation
From: g:santilli:tiscalinet:it at: 18-Sep-2000 19:02
Hello [ralph--abooks--com]!
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 <[giesse--writeme--com]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/