Validate International Securities Identification Number: Difference between revisions
Validate International Securities Identification Number (view source)
Revision as of 15:35, 10 October 2017
, 6 years agoadd PicoLisp
(→{{header|Haskell}}: (tidied isinPattern)) |
(add PicoLisp) |
||
Line 1,257:
FR0000988040 : valid
</pre>
=={{header|PicoLisp}}==
Using the <tt>luhn</tt> function defined at ''[[Luhn test of credit card numbers#PicoLisp]]'':
<lang PicoLisp>(de isin (Str)
(let Str (mapcar char (chop Str))
(and
(= 12 (length Str))
(<= 65 (car Str) 90)
(<= 65 (cadr Str) 90)
(luhn
(pack
(mapcar
'((N)
(- N (if (<= 48 N 57) 48 55)) )
Str ) ) ) ) ) )
(println
(mapcar
isin
(quote
"US0378331005"
"US0373831005"
"U50378331005"
"US03783310005"
"AU0000XVGZA3"
"AU0000VXGZA3"
"FR0000988040" ) ) )</lang>
{{out}}
<pre>(0 NIL NIL NIL 0 0 0)</pre>
=={{header|PowerShell}}==
| |||