Вступ

Імена файлів можуть бути дуже різними, починаючи від простого і blah.txtзакінчуючи 303549020150514101638190-MSP0.txt. Перший зазвичай породжується людиною, тоді як останній часто генерується машиною. Чи не було б непогано мати просту функцію, щоб вчити здогадуватися про те, чи може файл вважатись "зручним для людини"?

Натхненний публікацією Едуарда Флоринеску, яка з тих пір була видалена. Його ідея була гарна, але просто потрібно було трохи розгорнутися.

Виклик

Напишіть програму або функцію на обрану вами мову, яка може зайняти рядок, і визначте, чи вважається вона "зручною для людини", як визначено цим завданням.

Деякі подальші деталі та правила такі:

• Введенням буде рядок, що складається з 95 символів для друку ascii.
• "дружній людині" визначається таким чином:
  • Виключіть розгляд у розгляді. Розширення визначається як завершальний період, за яким слідує серія буквено-цифрових символів (всього 1, цілих 6).
  • Не більше половини рядка за довжиною (за винятком розширення) може складатися з таких визначених угруповань символів (комбінованих):
    • Десяткові символи довше 8 підряд.
    • Шістнадцяткові символи (верхній нижній регістр xor) принаймні 16 підряд (повинні складатися з літер та цифр, з яких хоча б третина символів - цифри).
    • Базові64 символи (використовуючи %+=як спеціальні символи) щонайменше 12 поспіль (повинні складатися з літер та цифр, змішаного регістру, з яких принаймні третина символів - це великі літери).
  • Якщо будь-яке з перерахованих вище угруповань перетинається у визначенні (наприклад, таке, яке кваліфікується як base64, але має 8 цифр підряд), виберіть найдовший з них, який потрібно виключити.
• Вихідні дані повинні мати значення "химерність" або "хибність", залежно від того, чи вважається рядок "зручним для людини" чи ні.
• Припустимо, що буде використовуватися лише дійсний ввід. Не турбуйтеся про помилки.

Переможець визначатиметься за найкоротшою програмою / функцією. Вони будуть відібрані щонайменше за 7 днів або якщо / коли було достатньо заявок. У випадку зрівноваження відповідь, що надійшла раніше, перемагає.

Приклади

Ось кілька прикладів введення та виводу, з якими ваш код повинен вміти обробляти:

"results_for__michael_greer.txt.zip" => true

"Georg Feuerstein - Connecting the Dots.pdf" => true

"M People - Search for the Hero-ntuqTuc6HxM.mp4" => true

"index.html?v=QTR4WGVTUzFsV3d8NHxvcmlnaW5hbHx8MTExMTAxBHxodHRwOi8vLCwsLHRyLDcsMA%3D%3D.html" => false

"ol2DCE0SIyQC(173).pdf" => false

"d41d8cd98f00b204e9800998ecf8427e.md5" => false

"12792331_807918856008495_7076645197310150318_o.jpg" => false

Javascript, 466 байт

s=>(s=s.split(/\.[a-z\d]{1,6}$/i)[j=d=0],h=s[l='length']/2|0,m=[],g=r=>(++j,m=m.concat((s[n='match'](r)||[]).map(x=>[x,j]))),p='replace',g(/\d{9,}/g),g(/[\da-f]{16,}/ig),g(/[\da-z%+=]{12,}/ig),m.sort((x,y)=>y[0][l]-x[0][l]).every(x=>x[1]-1?x[1]-2?s=s[p](x[0],y=>y[n](/[a-z]/)&&y[n](/\d/)&&(y+'A')[n](/[A-Z]/g)[l]>y[l]/3|0?(d+=y[l],''):y):s=s[p](x[0],y=>!!y[n](/[A-F]/)^!!y[n](/[a-f]/)&&(y+'0')[n](/\d/g)[l]>y[l]/3|0?(d+=y[l],''):y):(s=s[p](z=x[0],''),d+=z[l])),d<=h)

Пояснення:

f=s=>(                                 // f: take string s (filename) as input
    s=s.split(/\.[a-z\d]{1,6}$/i)[j=d=0],  // s: input without extension
                                           // d: combined rules' sum
                                           // j: combined rule-number step
    h=s[l='length']/2|0,                   // h: half string
                                           // l: length
    m=[],                                  // m: matches
    g=r=>(++j,                             // j: next combined rule number
        m=m.concat(                            // m: join
            (s[n='match'](r)||[]).map(             // new (r)egex-matches
            x=>[x,j])                              // mapped with its rule number
    )),p='replace',                        // p: replace
    g(/\d{9,}/g),                          // combined rules §1
    g(/[\da-f]{16,}/ig),                   // combined rules §2
    g(/[\da-z%+=]{12,}/ig),                // combined rules $3
    m.sort((x,y)=>y[0][l]-x[0][l])         // matches ordered by length
        .every(x=>x[1]-1?                      // for combined rule §1
            x[1]-2?                                // for combined rule §2
                s=s[p](x[0],y=>                        // for combined rule §3
                    y[n](/[a-z]/)&&y[n](/\d/)&&            // if lower and digit and
                    (y+'A')[n](/[A-Z]/g)[l]>y[l]/3|0?      // upper at least `total/3`
                (d+=y[l],''):y)                        // replace by empty and sum up `d`
            :s=s[p](x[0],y=>                       // replace if
                !!y[n](/[A-F]/)^!!y[n](/[a-f]/)&&      // (upper xor lower case) and
                (y+'0')[n](/\d/g)[l]>y[l]/3|0?         // digits: at least `total/3`
            (d+=y[l],''):y)                        // by empty and sum up `d`
        :(s=s[p](z=x[0],''),d+=z[l]))          // no treatment
    ,d<=h                                  // output if "no more than half of string"
);


["results_for__michael_greer.txt.zip",
"Georg Feuerstein - Connecting the Dots.pdf",
"M People - Search for the Hero-ntuqTuc6HxM.mp4",
"index.html?v=QTR4WGVTUzFsV3d8NHxvcmlnaW5hbHx8MTExMTAxBHxodHRwOi8vLCwsLHRyLDcsMA%3D%3D.html",
"ol2DCE0SIyQC(173).pdf",
"d41d8cd98f00b204e9800998ecf8427e.md5",
"12792331_807918856008495_7076645197310150318_o.jpg"]
.forEach(x=>document.body.innerHTML+='<pre>"'+x+'" => '+f(x)+'</pre>')