Validate International Securities Identification Number: Difference between revisions

<div style="margin:0.5em3em; white-space:nowrap; line-height:20px">

# '''Perform the Luhn test on this base-10 number.'''<br>There is a separate task for this test: ''[[Luhn test of credit card numbers]]''.<br>You don't have to replicate the implementation of this test here &ndashnbsp; ─── &nbsp; you can just call the existing function from that task. &nbsp; (Add a comment stating if you did this.)

(The comments are just informational. &nbsp; Your function should simply return a Boolean result. &nbsp; See [[#Perl_6Raku]] for a reference solution.)

<br><br>

<langsyntaxhighlight Adalang="ada">procedure ISIN is

end ISIN;</langsyntaxhighlight>

<langsyntaxhighlight lang="algolw">begin

end.</langsyntaxhighlight>

<langsyntaxhighlight lang="c">#include <stdio.h>

/* will print: T F F F T T T */</langsyntaxhighlight>

<langsyntaxhighlight lang="cpp">

<langsyntaxhighlight lang="cos">Class Utils.Check [ Abstract ]

}</langsyntaxhighlight>

By Steve Williams {{works with|GnuCOBOL}}

<langsyntaxhighlight lang="cobol"> >>SOURCE FORMAT FREE

end program luhntest.</langsyntaxhighlight>

<langsyntaxhighlight lang="lisp">(defun alphap (char)

(format t "~A: ~:[invalid~;valid~]~%" isin (valid-isin-p isin))))</langsyntaxhighlight>

<langsyntaxhighlight Dlang="d">import std.stdio;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="elixir">isin? = fn str ->

|> Enum.each(&IO.puts "#{&1}\t#{isin?.(&1)}")</langsyntaxhighlight>

<langsyntaxhighlight lang="fortran">program isin

end program</langsyntaxhighlight>

<langsyntaxhighlight lang="freebasic">' version 27-10-2016

End</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

}</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

}</langsyntaxhighlight>

<langsyntaxhighlight lang="groovy">CHARS = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'

assert checksum('US037833107') == 0</langsyntaxhighlight>

<langsyntaxhighlight Haskelllang="haskell">module ISINVerification2 where

mapM_ printSolution isinnumbers</langsyntaxhighlight>

Or, making alternative choices from the standard libraries:

<syntaxhighlight lang ="haskell">import qualified DataControl.Map asMonad M((<=<))

import ControlData.MonadBifunctor (sequence, liftM2first)

12 == length s &&

in && all (`elem` (capitals) l<> &&digits)) m

all (`elem` (capitals ++ digits)) m && head r `elem` digits

luhn x:: =String -> Bool

luhn x let= odd0 == [rem (:s1 []),+ consts2) []]10

s1evens = sum (streamreverse odd)odds

in rem (s1 + s2)concat 10 == 0$

charMap = M.fromList $ zip (digits ++<> capitals) [0 ..]

stringInts = fromMaybe [] . sequence . fmaptraverse (`M.lookup` charMap)

bites :: [Inta] -> [aInt] -> [[a]]

bites ns xs =

(reverse . fst $)

(\x (a, r) x -> first (: a) (splitAt x r))

let (b[], r_xs) = splitAt x r

[ "US0378331005",

, "US0373831005",

, "U50378331005",

, "US03378331005",

, "AU0000XVGZA3",

, "AU0000VXGZA3",

, "FR0000988040"

]</langsyntaxhighlight>

<langsyntaxhighlight lang="j">require'regex'

validISIN=: validFmt *. luhn@df36</langsyntaxhighlight>

<langsyntaxhighlight lang="j"> Tests=: 'US0378331005';'US0373831005';'U50378331005';'US03378331005';'AU0000XVGZA3';'AU0000VXGZA3';'FR0000988040'

1 0 0 0 1 1 1</langsyntaxhighlight>

"US0378331005",

"US0373831005",

"U50378331005",

"AU0000XVGZA3",

"AU0000VXGZA3",

"FR0000988040",

System.out.printf("%s is %s%n\n", isin, ISINtest(isin) ? "valid" : "not valid");

static boolean return Luhn.luhnTest(sb.toString(String number)); {

}</langsyntaxhighlight>

US0373831009US0373831005 is not valid

D56000543287U50378331005 is not valid

GB0002634946FR0000988040 is valid</pre>

<lang julia>luhntest(x) = luhntest(parse(Int, x))

end</langsyntaxhighlight>

<langsyntaxhighlight lang="scala">// version 1.1

}</langsyntaxhighlight>

<langsyntaxhighlight Lualang="lua">function luhn (n)

for _, ISIN in pairs(testCases) do print(ISIN, checkISIN(ISIN)) end</langsyntaxhighlight>

<langsyntaxhighlight lang="perl">use strict;

}</langsyntaxhighlight>

<span style="US03378331005color: #008000;">"US0373831005"</span><span style="color: #0000FF;">,</span> <span style="color: #000080;font-style:italic;">-- not valid The duplicationtransposition typo is caught by the formatchecksum constraint.</span>

<span style="AU0000VXGZA3color: #008000;">"US03378331005"</span><span style="color: #0000FF;">,</span> <span style="color: #000080;font-style:italic;">-- not valid Unfortunately, not all transposition typosThe duplication typo areis caught by the checksumformat constraint.</span>

<langsyntaxhighlight PicoLisplang="picolisp">(de isin (Str)

"FR0000988040" ) ) )</langsyntaxhighlight>

<langsyntaxhighlight PureBasiclang="purebasic">EnableExplicit

Input()</langsyntaxhighlight>

<langsyntaxhighlight lang="python">def check_isin(a):

# [True, False, False, False, True, True, True]</langsyntaxhighlight>

<langsyntaxhighlight lang="racket">

<langsyntaxhighlight lang="rexx">/*REXX program validates the checksum digit for an International Securities ID number.*/

do n=1 for words(z); x=word(z, n); y= x /*obtain an ISIN from the Z list. */

$= /* [↓] construct list of ISIN digits. */

do k=1 for length(x); _= substr(x,k,1) /*the ISIN may contain alphabetic chars*/

p= pos(_, '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ') /*X must contain A──►Z, 0──►9.*/

if p==0 then y= /*trigger "not" valid below.*/

else $= $ || p-1 /*convert X string (base 36 ──► dec).*/

end /*k*/ /* [↑] convert alphabetic ──► digits.*/

@= /*placeholder for the "not" in message.*/

if length(y)\==12 then @= "not" /*checksee if the ISIN is exactly 12 chars. */

if \datatype( left(x,2),'U') then @= "not" /* " " " " 1st 2 chars cap. let.*/

if \datatype(right(x,1),'W') then @= "not" /* " " " " last char not a digit*/

if @=='' then if \luhn($) then @= "not" /* " " " " passed the Luhn test. */

say right(x, 30) right(@, 5) "valid" /*display the yea or nay message.*/

end /*n*/ /* [↑] 1st 3 IFs could've been combined*/

Luhn: procedure; parse arg x; $=0 $= 0 /*get credit card number; zero $ sum. */

y= reverse( left(0, length(x) // 2)x) /*add leading zero if needed, & reverse*/

do j=1 to length(y)-1 by 2; _= 2 * substr(y, j+1, 1)

$= $ + substr(y, j, 1) + left(_, 1) + substr(_, 2 , 1, 0)

end /*j*/ /* [↑] sum the odd and even digits.*/

return right($, 1)==0 /*return "1" if number passed Luhn test*/</langsyntaxhighlight>

'''{{out|output''' |text=&nbsp; when using the defaults fordefault inputinputs:}}

<langsyntaxhighlight lang="ring">

<langsyntaxhighlight lang="ruby">RE = /\A[A-Z]{2}[A-Z0-9]{9}[0-9]{1}\z/

# => [true, false, false, false, true, true, true]</langsyntaxhighlight>

<langsyntaxhighlight lang="sas">data test;

run;</langsyntaxhighlight>

}</langsyntaxhighlight>

}</langsyntaxhighlight>

} -result ok</langsyntaxhighlight>

=={{header|Visual BasicVBScript}}==

Dim leaderi As StringLong

Dim temp As Integer

If chAsc(c) >= Asc("A0"c) AndAndAlso chAsc(c) <= Asc("Z9"c) Then

'temp A= toAsc(c) Z translated to "10", "11", ..- Asc("350"c)

Err.Raisetemp 50001,= ,Asc(c) - Asc("SecurityA"c) must+ contain only letters and digits"10

Next Return temp

End Function

totalEnd = 0Function

DimEnd other As BooleanFunction

Sub If other ThenMain()

Dim isins() = If tmp < 5 Then{

' 0 to 4 map to 0"US0378331005",2,4,6,8

total = total + (tmp * 2)"US0373831005",

'Console.WriteLine("{0} 5is tonot 9valid", map to 1,3,5,7,9isin)

ElseNext

<langsyntaxhighlight lang="zkl">fcn validateISIN(isin){

}</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">println(" ISIN Valid?");

}</langsyntaxhighlight>