Content deleted Content added
Line 267:
<pre>
Luhnc←{10|-+/,0 10⊤⍵×⌽(≢⍵)⍴2 1} ⍝ calculate the check digit
Luhnv←{(⊃⌽⍵)≡Luhnc ¯1↓⍵} ⍝ verify the check digit
x← 7 9 9 2 7 3 9 8 7 1
|
Line 267:
<pre>
Luhnc←{10|-+/,0 10⊤⍵×⌽(≢⍵)⍴2 1} ⍝ calculate the check digit
Luhnv←{(⊃⌽⍵)≡Luhnc ¯1↓⍵} ⍝ verify the check digit
x← 7 9 9 2 7 3 9 8 7 1
|