Norweski numer urodzenia składa się z 11 cyfr, ułożonych w następujący sposób:

DDMMYYiiikk

• DD jest dzień (od 01-31)
• MM jest miesiącem (od 01-12)
• YYoznacza rok (od 00 do 99). Nie ma rozróżnienia między 1900 a 2000
• iii to „indywidualny numer”
• kk to dwie cyfry kontrolne

iii zależy od roku urodzenia i płci w następujący sposób

• 0000–1900: Lekceważenie, występują pewne niespójności i przypadki szczególne
• 1900–1999: Zakres = 000–499
• 2000-2039: Zakres = 500–999
• Kobieta: liczby parzyste (i 000)
• Mężczyzna: liczby nieparzyste

Numery kontrolne są określane w następujący sposób:

Nazwijmy 11 cyframi:

d1 d2 m1 m2 y1 y2 i1 i2 i3 k1 k2

Następnie cyfry kontrolne można obliczyć za pomocą równań:

k1 = 11 - ((3 * d1 + 7 * d2 + 6 * m1 + 1 * m2 + 8 * y1 + 9 * y2 + 4 * i1 + 5 * i2 + 2 * i3) mod 11)

k2 = 11 - ((5 * d1 + 4 * d2 + 3 * m1 + 2 * m2 + 7 * y1 + 6 * y2 + 5 * i1 + 4 * i2 + 3 * i3 + 2 * k1) mod 11).

W przypadku niektórych kombinacji numery kontrolne k1lub k2mogą się stać10 . W takim przypadku numer będzie nieprawidłowy.

Jeżeli moduł sumy 11 dla k1lub k2wynosi 11, to znaczy k1 = 11 - (11 mod 11)cyfra kontrolna będzie wynosić 0, a nie 11.

Wyzwanie

Weź list, Mlub F(mężczyzna lub kobieta), oraz numer jedenaście cyfr jako wejścia, i sprawdzić, czy numer jest prawidłowy Narodziny według powyższych zasad.

• Format wejściowy i kolejność są opcjonalne
• 11 liczb musi być pojedynczą liczbą lub kolejnym ciągiem znaków (nie można traktować danych wejściowych jako DD, MM, YY, iii, kk ).
• Możesz założyć, że data jest ważna (310699xxxxx nie zostanie podany jako dane wejściowe)
• Dane wyjściowe są wartością prawda / fałsz (1/0, prawda / fałsz itp.)
• Program lub funkcja
• Obowiązują wszystkie standardowe zasady

Na tej stronie można znaleźć wszystkie prawidłowe numery (w języku norweskim), wybierając datę.

Przykłady:

M, 01010099931
True

F, 01029042620
True

M, 0101009841
False

F, 01010051866
True  

F, 08021690849
True

M, 01029040105
True

M, 01029037473
False

Najkrótszy kod w bajtach wygrywa.

Python 3, 227 221 bajtów

Funkcja, która przyjmuje dwa argumenty: płeć „m” i numer urodzenia „n”, oba jako łańcuchy. Może być trochę golfa do zrobienia, szczególnie w ostatniej linii. Będę nad tym pracował.

def a(m,n):
 o=[3,7,6,1,8,9,4,5,2];t=[5,4,3,2,7,6,5,4,3,2];n=list(map(int,n));y=z=b=0;q=11
 for i in n[:9]:z+=o[b]*i;y+=t[b]*i;b+=1
 print((q-z%q)%q==n[9] and (q-(y-z-z)%q)%q==n[-1] and len(n)<12 and ord(m)%2==n[8]%2)

JavaScript (ES2016), 275 259 255 254 252 bajtów

Gra w golfa :

f=(g,I)=>{[,d,m,y,i,k]=/(..)(..)(..)(...)(..)/.exec(I.padEnd(12)),v=g.charCodeAt()%2!=i%2|y<=39&i<500,s=k=>11-([...I].slice(0,-2).map((e,i)=>e*[..."376189452543276543"][i+!k|9]).reduce((a,b)=>a+b)+2*k)%11,[s(0),s(s(0))].map((s,i)=>v&=k[i]!=s);return!v}

Testy :

for (let args of [
    ["M", "01010099931"], // true
    ["F", "01029042620"], // true
    ["M", "0101009841"],  // false
    ["F", "01010051866"], // true
    ["F", "08021690849"], // true
    ["M", "01029040105"], // true
    ["M", "01029037473"]  // false
]) {
    console.log(f(...args));
}

Nie golfowany :

let f = (g, input) => {

    /* Sanitize input, destructure arguments via RegExp */
    let [, d, m, y, i, k] = /(..)(..)(..)(...)(..)/.exec(input.padRight(12));

    /* Validate gender and year */
    let violation = g.charCodeAt() % 2 != i % 2 | y <= 39 & i < 500;

    let n = [..."376189452543276543"];
    /* This function computes k1 if given no arguments, k2 if given one argument */
    let s = k => 11 - ([...input].slice(0, -2).map((e, i) => e * n[i + !k | 9]).reduce((a, b) => a + b) + 2 * k) % 11;

    /* Validate the control numbers k */
    [s(0), s(s(0))].map((s, i) => violation &= k[i] != s);

    return !violation;
}

JS, 343 bajtów

x=prompt().replace(/F/,1).replace(/M/,2).match(/\d{1}/g);v=Math.abs((x[0]-x[9])%2);v++;t=x[5]*10+x[6]*1;i=x[7]*1;if(t>39&&i>4){v--}if((11-(3*x[1]+7*x[2]+6*x[3]+1*x[4]+8*x[5]+9*x[6]+4*x[7]+5*x[8]+2*x[9])%11)%11===x[10]*1&&(11-(5*x[1]+4*x[2]+3*x[3]+2*x[4]+7*x[5]+6*x[6]+5*x[7]+4*x[8]+3*x[9]+2*x[10])%11)%11===x[11]*1){v++}alert(Math.floor(v/3))