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="cos">Class Utils.Check [ Abstract ]

}</langsyntaxhighlight>

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

(format t "~A: ~:[invalid~;valid~]~%" isin (valid-isin-p isin))))</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

import Data.Char ( isUpper , isDigit , digitToInt )

verifyISIN isin = correctFormat isin && mod (oddsum + multiplied_even_sum) 10 == 0

theOddsreverted = fstreverse $ collectOddandEvenconvertToNumber revertedisin

theEvenstheOdds = sndfst $ collectOddandEven reverted

oddsumtheEvens = sumsnd $ map digitToIntcollectOddandEven theOddsreverted

multiplied_even_sumoddsum = addUpDigitssum $ map ( (* 2 ) . digitToInt ) theEvenstheOdds

capitalLetters :: [Char]String

capitalLetters = ['A' , 'B' .. 'Z']

numbers :: [Char]String

numbers = ['0' , '1' , '2', '3' , '4' , '5', '6' , '7' , '8' , '9' ]

correctFormat isin = (length isin == 12 ) && ( all (\b -> elem b capitalLetters ) $ take 2 isin)

&&all (`elem` capitalLetters) (take last2 isin ) numbers) &&

convertToNumber str = concat $ mapconcatMap convert str

where

convert :: Char -> String

printSolution :: String -> IO ( )

putStr $ str ++ " is"

if verifyISIN str == True then putStrLn " valid" else putStrLn " not valid"

main :: IO ( )

let isinnumbers = ["US0378331005" , "US0373831005" , "US03378331005" , "AU0000XVGZA3" ,

FR0000988040 is valid</pre>

"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>

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

for (c in s) {

when (c) {

fun sumDigits(n : Int) = n / 10 + n % 10

val t = s.reversed()

val isins = arrayOf("US0378331005", "US0373831005", "U50378331005", "US03378331005",

"US0378331005", "AU0000XVGZA3US0373831005", "AU0000VXGZA3U50378331005", "FR0000988040US03378331005"),

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

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

<langsyntaxhighlight lang="perl">use strict;

}</langsyntaxhighlight>

=={{header|Perl 6Phix}}==

US0378331005 is: valid

US0373831005 is: notwrong validchecksum

U50378331005 is: notwrong validcountry

US03378331005 is: notwrong validlength

AU0000XVGZA3 is: valid

AU0000VXGZA3 is: valid

FR0000988040 is: valid

<langsyntaxhighlight PureBasiclang="purebasic">EnableExplicit

Procedure.ib Check_ISIN(*c.Character)

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="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 BasicTransact-SQL}}==

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>