CUSIP: Difference between revisions

Content added Content deleted
Line 329: Line 329:
end |λ|
end |λ|
end script
end script
9 = length of s and item -1 of ns = (10 - (sum(zipWith(go, ¬
9 = length of ns and item -1 of ns = (10 - (sum(zipWith(go, ¬
cycle({my identity, my double}), ¬
cycle({my identity, my double}), ¬
take(8, ns))) mod 10)) mod 10
take(8, ns))) mod 10)) mod 10