How to resolve the algorithm Luhn test of credit card numbers step by step in the SNOBOL4 programming language

Published on 12 May 2024 09:40 PM
#Snobol4

How to resolve the algorithm Luhn test of credit card numbers step by step in the SNOBOL4 programming language

Table of Contents

Problem Statement

The Luhn test is used by some credit card companies to distinguish valid credit card numbers from what could be a random selection of digits. Those companies using credit card numbers that can be validated by the Luhn test have numbers that pass the following test:

For example, if the trial number is 49927398716:

Write a function/method/procedure/subroutine that will validate a number with the Luhn test, and use it to validate the following numbers:

Let's start with the solution:

Step by Step solution about How to resolve the algorithm Luhn test of credit card numbers step by step in the SNOBOL4 programming language

Source code in the snobol4 programming language

          define('luhn(n)a,d,i,j,sum') :(luhn_end)
luhn      n = reverse(n); a = array('0:9')
ln1       a = (2 * i / 10) + remdr(2 * i,10)
          i = lt(i,9) i + 1 :s(ln1)
ln2       n len(1) . d = :f(ln3)
          d = ne(remdr(j,2),0) a; j = j + 1
          sum = sum + d :(ln2)
ln3       luhn = 0; luhn = eq(remdr(sum,10),0) 1 :(return)
luhn_end

          ok = array('0:1')
          ok<0> = 'FAIL'
          ok<1> = 'OK'

*         Test and display
          define('test(n)')  :(test_end)
test      output = n ': ' ok :(return)
test_end

          test('49927398716')
          test('49927398717')
          test('1234567812345678')
          test('1234567812345670')
end

You may also check:How to resolve the algorithm String interpolation (included) step by step in the CoffeeScript programming language
You may also check:How to resolve the algorithm Pangram checker step by step in the Bracmat programming language
You may also check:How to resolve the algorithm Case-sensitivity of identifiers step by step in the UNIX Shell programming language
You may also check:How to resolve the algorithm Variadic function step by step in the Ursala programming language
You may also check:How to resolve the algorithm Optional parameters step by step in the Icon and Unicon programming language