I noticed some apl on rosettacode:
http://rosettacode.org/wiki/Luhn_test_of_credit_card_numbers#APL
r←LuhnTest digits;even;odd;SumEven
(odd even)←↓⍉⍎¨{(n,2)⍴(⍵,'0')↑⍨2×n←⌈(⍴⍵)÷2}⌽digits
SumEven←{+/+/¨⍎¨¨⍕¨2×⍵}
r←'0'=⊃¯1↑⍕(+/odd)+(SumEven even)
Unfortunately, when I tried copy and paste into notepad (and into some
other contexts), the characters came out wrong.
Also, when I tried searching for a symbol I did not recognize,
google gave me:
Your search - ⍨ - did not match any documents.
Which, to be fair, is the same thing I get when I try searching
for +. (From context i imagine its the same thing that J
represents using ~).
Anyways, I have hope that APL characters may some day be
supported robustly...
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
