Норвезький номер народження складається з 11 цифр, складених таким чином:

DDMMYYiiikk

• DD день (з 01-31)
• MM - місяць (з 01-12)
• YY- рік (з 00-99). Він не розмежований між 1900 та 2000 роками
• iii є "індивідуальним номером"
• kk - дві контрольні цифри

iii визначається за родом і статтю наступним чином

• 0000-1900: Нехтування, є певна непослідовність і особливі випадки
• 1900-1999 рр .: дальність = 000-499
• 2000-2039 рр .: дальність = 500-999
• Жіноча: парні цифри (і 000)
• Чоловік: непарні номери

Контрольні номери визначаються наступним чином:

Назвемо 11 цифр:

d1 d2 m1 m2 y1 y2 i1 i2 i3 k1 k2

Тоді контрольні цифри можна обчислити, використовуючи рівняння:

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).

Для деяких комбінацій контрольні числа k1або k2можуть стати 10. Якщо це так, номер буде недійсним.

Якщо модуль суми 11 для k1або k2становить 11, тобто k1 = 11 - (11 mod 11)контрольна цифра буде дорівнює 0, а не 11.

Виклик

Візьміть лист, Mабо F(чоловік або жінка), і номер одинадцять цифр в якості вхідних даних, і перевірити , якщо народження Номер діє в відповідності з вищенаведеними правилами.

• Формат введення та порядок необов’язковий
• 11 чисел повинні бути єдиним числом або послідовним рядком (ви не можете сприймати введення як DD, MM, YY, iii, kk).
• Ви можете припустити, що дата є дійсною (310699xxxxx не буде вказано як введення)
• Вихід - це значення "фальшива / хибна" (1/0, вірно / хибно тощо)
• Програма або функція
• Діють усі стандартні правила

Ви можете знайти всі дійсні номери на цій сторінці (норвезькою мовою), вибравши дату.

Приклади:

M, 01010099931
True

F, 01029042620
True

M, 0101009841
False

F, 01010051866
True  

F, 08021690849
True

M, 01029040105
True

M, 01029037473
False

Найкоротший код виграти в байтах.

Пітон 3, 227 221 байт

Функція, яка бере два аргументи, гендерний 'm' і число народження 'n', обидва як рядки. Можливо, ще потрібно зробити щось із гольфу, особливо в останньому рядку. Я буду продовжувати працювати над цим.

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 байт

Гольф :

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}

Тести :

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));
}

Безголівки :

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 байт

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