IBAN: Difference between revisions

Content added Content deleted
m (Minor edit)
Line 33:
}
 
ClassMethod Mod(numpNum As %Integer, divpDiv As %Integer) As %Integer [ Internal, Private ]
{
If $Length(numpNum)<9 Quit numpNum#divpDiv
Set res=0
For i=1:1:$Length(numpNum)\7+1 {
Set res=(res_$Extract(numpNum, 1, 7))#divpDiv
Set numpNum=$Extract(numpNum, 8, *)
}
Quit res
Retrieved from "https://rosettacode.org/wiki/IBAN"