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 [[#Raku]] for a reference solution.)

<br><br>

<langsyntaxhighlight lang="11l">F check_isin(a)

‘AU0000XVGZA3’, ‘AU0000VXGZA3’, ‘FR0000988040’].map(s -> check_isin(s)))</langsyntaxhighlight>

<langsyntaxhighlight lang="360asm">* Validate ISIN 08/03/2019

END VALISIN</langsyntaxhighlight>

<langsyntaxhighlight Adalang="ada">procedure ISIN is

end ISIN;</langsyntaxhighlight>

<langsyntaxhighlight lang="algolw">begin

end.</langsyntaxhighlight>

<langsyntaxhighlight lang="applescript">use AppleScript version "2.4" -- OS X 10.10 (Yosemite) or later

return testResults</langsyntaxhighlight>

<langsyntaxhighlight lang="applescript">{{testNumber:"US0378331005", valid:true}, {testNumber:"US0373831005", valid:false}, {testNumber:"U50378331005", valid:false}, {testNumber:"US03378331005", valid:false}, {testNumber:"AU0000XVGZA3", valid:true}, {testNumber:"AU0000VXGZA3", valid:true}, {testNumber:"FR0000988040", valid:true}}</langsyntaxhighlight>

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

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

<langsyntaxhighlight lang="csharp">using System;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="cpp">

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

}</langsyntaxhighlight>

<langsyntaxhighlight lang="clojure">(defn luhn? [cc]

<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="factor">USING: combinators.short-circuit.smart formatting kernel luhn

MAIN: main</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>

<langsyntaxhighlight lang="haskell">import DataControl.BifunctorMonad (first(<=<))

<*> (luhn . (show <=<<) . stringInts)

&& all (`elem` (capitals ++<> digits)) m

[l, m, r] = bites s [2, 9, 1] s

zipWith ($) (cycle f) (stringInts $ reverse x)

sum . stringInts . show . (2 *) <$> stream evens

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

bites ns xs =

(reverse . fst) $

foldr. foldl' -- '

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

]</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>

<langsyntaxhighlight lang="java">public class ISIN {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="julia">using Printf

end</langsyntaxhighlight>

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

}</langsyntaxhighlight>

The luhn test is repeated here for simplicity (from Luhn_test_of_credit_card_numbers#langur).

_for += if( .i rem 2 == .oddeven: .numbers[.i]; .t[.numbers[.i]+1]){

val .isintest = ffn(.s) {

matching(.s -> re/^[A-Z][A-Z][0-9A-Z]{9}[0-9]$/, .s) and

val .tests = h{

}</langsyntaxhighlight>

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

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

<langsyntaxhighlight Mathematicalang="mathematica">ClearAll[LuhnQ, VakudISINQ]

VakudISINQ /@ {"US0378331005", "US0373831005", "U50378331005", "US03378331005", "AU0000XVGZA3", "AU0000VXGZA3", "FR0000988040"}</langsyntaxhighlight>

<langsyntaxhighlight Nimlang="nim">import strformat

echo &"{isin} is not valid: {getCurrentExceptionMsg()}."</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">

<syntaxhighlight lang="raku" perl6line>my $ISIN = /

>;</langsyntaxhighlight>

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

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

<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 Rustlang="rust">extern crate luhn_cc;

<langsyntaxhighlight lang="sas">data test;

run;</langsyntaxhighlight>

<langsyntaxhighlight Scalalang="scala">object Isin extends App {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="sql pl">

<syntaxhighlight lang Tcl="tcl">package require Tcl 8.6 ;# mostly needed for [assert]. Substitute a simpler one or a NOP if required.</langsyntaxhighlight>

<langsyntaxhighlight Tcllang="tcl">proc assert {expr} { ;# for "static" assertions that throw nice errors

}</langsyntaxhighlight>

<langsyntaxhighlight Tcllang="tcl">namespace eval isin {

}</langsyntaxhighlight>

<langsyntaxhighlight Tcllang="tcl">package require tcltest

} -result ok</langsyntaxhighlight>

<langsyntaxhighlight lang="vb">' Validate International Securities Identification Number - 03/03/2019

end function 'test </langsyntaxhighlight>

<langsyntaxhighlight lang="vb">Function IsValidISIN(ByVal ISIN As String) As Boolean

End Function</langsyntaxhighlight>

<langsyntaxhighlight lang="vb">Sub Main()

End Sub</langsyntaxhighlight>

<langsyntaxhighlight lang="vbnet">Option Strict On

End Module</langsyntaxhighlight>

{{libheader|Wren-traititerate}}

<langsyntaxhighlight ecmascriptlang="wren">import "./str" for Char

import "./traititerate" for Stepped

import "./fmt" for Conv, Fmt

}</langsyntaxhighlight>

<langsyntaxhighlight XPL0lang="xpl0">string 0; \use zero-terminated strings

]</langsyntaxhighlight>

<langsyntaxhighlight Yabasiclang="yabasic">sub luhntest(cardnr$)

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

}</langsyntaxhighlight>

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

}</langsyntaxhighlight>