Норвежский номер рождения состоит из 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

Самый короткий код в байтах побеждает.

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

Ungolfed :

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