Luhn test of credit card numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 5,599: / Line 5,599: @@
          + -1 '''STEP'''
 MOD NOT
- ≫ ≫ '''‘LUHN?’''' STO
+ ≫ ≫ '<span style="color:blue">LUHN?</span>' STO
 |
- ''' LUHN?''' ''( "card_number" -- boolean ) ''
+ <span style="color:blue">LUHN?</span> ''( "card_number" -- boolean ) ''
  sum = 0 ; loop for j=n to 1
     digit = card[j]
@@ Line 5,610: / Line 5,610: @@
 |}
+ ≪ { "49927398716" "49927398717" "1234567812345678" "1234567812345670" } → cases
-{{in}}
+    ≪ { } 1 cases SIZE '''FOR''' j cases j GET <span style="color:blue">LUHN?</span> + '''NEXT''' ≫ ≫ EVAL
-<pre>
-≪ { "49927398716" "49927398717" "1234567812345678" "1234567812345670" } → cases
-   ≪ { } 1 cases SIZE FOR j cases j GET JUHN + NEXT ≫ ≫ EVAL
-</pre>
 {{out}}
 <pre>