Anonymous user
SEDOLs: Difference between revisions
no edit summary
No edit summary |
|||
Line 526:
return (10 - (sum % 10)) % 10;
}</lang>
=={{header|Clojure}}==
<lang Clojure>(defn sedol [xs]
(let [weights [1 3 1 7 3 9]
convtonum (map #(Character/getNumericValue %) xs)
check (-> (reduce + (map * weights convtonum)) (rem 10) (->> (- 10)) (rem 10))]
(str xs check)))</lang>
=={{header|COBOL}}==
|