发一个偏门算法 xx卡校验易语言版本 - 精易论坛

子程序名	返回值类型	公开	备注
银行ka卡号校验	逻辑型		一般都是19位
参数名	类型	参考	可空	数组	备注
卡号	文本型

变量名	类型	静态	数组	备注
m	整数型		10
i	整数型
digit	整数型
sum	整数型
odd	整数型

m [1] ＝ 0
m [2] ＝ 2
m [3] ＝ 4
m [4] ＝ 6
m [5] ＝ 8
m [6] ＝ 1
m [7] ＝ 3
m [8] ＝ 5
m [9] ＝ 7
m [10] ＝ 9
odd ＝ 1

变量循环首 (取文本长度 (卡号), 1, -1, i)

digit ＝取代码 (卡号, i) － 48

sum ＝ sum ＋选择 (odd ≠ 0, digit, m [digit ＋ 1])

如果 (odd ＝ 1)

odd ＝ 0

odd ＝ 1

变量循环尾 ()
' const int m[] = {0,2,4,6,8,1,3,5,7,9}; // mapping for rule 3
' int i, odd = 1, sum = 0;
' for (i = strlen(cc); i--; odd = !odd)
' {
' int digit = cc[i] - '0';
' sum += odd ? digit : m[digit];
' }
返回 (sum ％ 10 ＝ 0)