谁能用mathematica写个校验身份证的子函数？

mathematica

1. (*身份证检验码*)
   
2. Clear["Global`*"];(*Clear all variables*)
   
3. (*没考虑身份证号码最后一位x的情况*)
   
4. fun[id_]:=Module[{ids,dot},
   
5.     jym={7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2};
   
6.     ids=IntegerDigits[id];
   
7.     dot=Dot[ids[[1;;17]],jym];(*前17位与校验码求内积*)
   
8.     dot=Mod[dot,11];(*求余数*)
   
9.     dot=Mod[12-dot,11];(*余数n，对应的最后一位编码是12-x*)
   
10.     If[dot==ids[[18]],Return[True],Return[False]]
    
11. ]
    

复制代码

我写的这个未能考虑最后一位是X的情况，
最后一位是X，应该如何考虑呢？

markfang2050

这个容易，嵌套个特例啊

mathematica

markfang2050 发表于 2019-4-19 15:13
这个容易，嵌套个特例啊

我自己用perl搞定了

markfang2050

mathematica 发表于 2019-4-26 11:39
我自己用perl搞定了

代码贴出啊，。C就可以。