Мы часто видим музыкальные клипы на Youtube. Многие каналы Youtube, на которых размещены музыкальные клипы, «работают на VEVO». Их можно легко идентифицировать, добавив VEVO на миниатюры видео и добавив VEVO к названию канала.

Теперь напишите некоторый код, чтобы проверить, является ли данная пользователем строка учетной записью VEVO или нет.

Требования к действительным строкам учетной записи VEVO:

• Должен содержать только прописные, строчные и цифры. (без пробелов и знаков препинания)

• Не должен превышать 80 символов.

• Должен иметь подстроку "VEVO" в конце строки

Тестовые случаи:

Допустимые входы:

AdeleVEVO
ConnieTalbotVEVO
SHMVEVO
justimberlakeVEVO
DJMartinJensenVEVO
test123VEVO

Неверные данные:

syam kapuk
jypentertainment
Noche de Brujas
testVEVO123

Конечно, потому что это код-гольф , я ищу самый короткий код, используя любой язык программирования.

Python 2 , 45 байт

-3 байта благодаря Роду. -2 байта благодаря овс.

lambda s:len(s)<81*s.isalnum()<'VEVO'==s[-4:]

Попробуйте онлайн!

Решение регулярных выражений оказывается длиннее.

lambda s:re.match('^[^\W_]{0,76}VEVO$',s)
import re

Japt v2.0a0, 20 16 байт

Возвращает 1за действительный или 0за недействительный. [\l\d]будет также работать вместо того [^\W_]же количества байтов.

è/^\w{0,76}VEVO$

Попробуй это | Проверьте все тесты

Объяснение : èподсчитывает количество совпадений RegEx на входе. В Japt \wкласс RegEx не содержит подчеркивания.

JavaScript (ES6), 27 36 34 31 байт

Сохранено 2 байта благодаря @Neil и 3 байта благодаря @Shaggy

s=>/^[^\W_]{0,76}VEVO$/.test(s)

Контрольные примеры

let f =

s=>/^[^\W_]{0,76}VEVO$/.test(s)

console.log(f('syam kapuk')) // (INVALID)
console.log(f('jypentertainment')) // (INVALID)
console.log(f('Noche de Brujas')) // (INVALID)
console.log(f('testVEVO123')) // (INVALID)
console.log(f('AdeleVEVO')) // (VALID)
console.log(f('ConnieTalbotVEVO')) // (VALID)
console.log(f('SHMVEVO')) // (VALID)
console.log(f('justimberlakeVEVO')) // (VALID)
console.log(f('DJMartinJensenVEVO')) // (VALID)

PHP , 51 байт

-10 байт спасибо @Ismael Miguel за использование <?=вместо <?php echo! и удаление закрывающего тега

<?=preg_match("/^[^\W_]{0,76}VEVO$/",fgets(STDIN));

Попробуйте онлайн!

Спасибо за другие ответы, поэтому мне не пришлось писать регулярные выражения!

APL (Дьялог) , 25 байт

≢'^[^_\W]{0,76}VEVO$'⎕S 3

Попробуйте онлайн!

C (gcc) , 83 байта

c,i;f(char*s){for(c=i=0;s[i];c+=!isalnum(s[i++]));c=i<81*!c*!strcmp("VEVO",s+i-4);}

Попробуйте онлайн!

Дьялог АПЛ , 47 байт

{0::0⋄(∧/(1(819⌶)t)∊⎕A,⎕D)∧77>≢t←,∘'VEVO'⍣¯1⊢⍵}

Попробуйте онлайн!

Чистое решение регулярных выражений составляет 32 байта , но также гораздо скучнее, чем этот подход.

{0::0⋄(∧/(1(819⌶)t)∊⎕A,⎕D)∧77>≢t←,∘'VEVO'⍣¯1⊢⍵} a dfn with right arg '⍵'
 0::0⋄                                          on error, return 0
                                 ,∘'VEVO'       a train that appends VEVO
                                         ⍣¯1    apply it -1 times
                                             ⍵  on '⍵'
                                                and error if impossible (which returns 0)
                               t←               save on variable 't'
                              ≢                 get the length of that
                           77>                  if that's smaller than 77
                          ∧                     and
         (1(819I)t)                              [for each of] 't' uppercased
                   ∊⎕A,⎕D                        is it in the uppercase alphabet concatenated with the digits
       ∧/                                        reduced by and

Грязь , 13 байт

e`n{-76"VEVO"

Попробуйте онлайн!

Здесь нет ничего особенного. Сопоставьте eввод ntire с шаблоном: не более 76 буквенно- nцифровых символов, за которыми следует строка VEVO. Отпечатки 1для матча и 0без матча. Я вспомнил, что последняя кавычка может быть удалена в конце строки, но, очевидно, это просто вызывает ошибку разбора.

C # (.NET Core) , 87 + 18 = 105 байт

Попробуйте онлайн!

a=>a.Where(x=>char.IsLetterOrDigit(x)).Count()==a.Length&a.Length<81&a.EndsWith("VEVO")

> <> , 147 125 байт

!\i:0(?^1[::::::"/9@Z`z"!
;>{(?;{(?v{(?;{(?v{(?;{(?v
 ~l1-?!v >       > !|!: !<
;v    ]/~l99*-0(?!;4["OVEV"{-?;{-?;{-?;{-?;1n

Попробуйте онлайн!

> <> , 147 байт

Попробуйте онлайн!

Это печатает 1, если входная строка является допустимой и ничего для недопустимого ввода.

Редактировать 1: Изменены буквенно-цифровые проверки для использования диапазонов, а не сравнения с каждым символом. (экономя 22 байта)

Баш, 53 26 30 байт

[[ $1 =~ ^[^\W_]{0,76}VEVO$ ]]

Выйдите код 0 для недействительных результатов и 1 для недействительных результатов.

Все еще работаю на 80 символов или меньше.

-27 байт при удалении вывода благодаря @KeyWeeUsr

+4 байта, исправлено регулярное выражение (как и все остальные)

Попробуйте онлайн!

> <> , 101 89 83 81 94 байта

Изменить: переключен на проверку не буквенно-цифровых символов, а не буквенно-цифровых. Переключился назад, потому что я забыл проверить между Z и a. Спасибо @Emigna. Разорвать эти потерянные байты, хотя

Редактировать 2: Кроме того, я могу полностью избавиться от них}}}}. Спасибо Teal pelican за это и обнаружил проблему с TIO

Изменить 3: заменил ~~~ на ap

!\i::0(?v:::"/")$":"(*$:"`")$"{"(*+$:"@")$"["(*+?
0/?("S"l/
l/"VEVO"[4pn?$0(6
!\{-?vl?
1/;n0/n

Я не знаю , почему это не будет работать на TIO, но он отлично работает здесь . Проблема заключалась в том, что команды {} в TIO не работают для пустого списка. Попробуй здесь

Как это работает

!\i::0(?v:::"/")$":"(*$:"`")$"{"(*+$:"@")$"["(*+?
0/....../
......... Checks each input is alphanumeric
...       If any isn't, print 0 and exit with an error
...

...
0/?("S"l/ Checks if there are more than 80 characters
...       If so, print 0 and exit with an error
...
...

...
...
l/"VEVO"[4pn?$0(6 Check if the input is less than 4 characters
...               If so, print 0 and exit with an error
...

...
...
./"VEVO"[4pn?$0(6 Take the last 4 characters of the input into a new stack (first time I've actually used [)
...               Add "VEVO" to the stack to compare
...

...
0/....../n
........V
!\{-?vl?  Check if the last 4 characters are VEVO
1/;n0/n   Print 1 and exit with an error if so, else print 0 and exit

Для согласованности, замены; в последней строке недопустимая инструкция делает каждый вывод ошибкой.

C ++, 129 105 102 байта

Благодаря другим ответам, которые показали мне, что я могу посчитать количество символов
-2 байта благодаря Zacharý

#include<regex>
int v(std::string s){return std::regex_match(s, std::regex("[a-zA-Z0-9]{0,76}VEVO"));}

TIO LINK

С накоплением , 21 байт

['^\i{0,76}VEVO'-''=]

Попробуйте онлайн!

05AB1E , 21 байт

žKÃQsg81‹IR4£"OVEV"QP

Попробуйте онлайн!

Java (OpenJDK 8) , 37 36 байт

Довольно простой ответ, используя несколько прекрасных регулярных выражений.
Вполне возможно, самый короткий ответ Java, который я когда-либо делал.
-1 байт благодаря Нейлу в ответе на Javascript

w->w.matches("((?!_)\\w){0,76}VEVO")

Попробуйте онлайн!

Сетчатка , 18 байт

A`\W|_|.{81}
VEVO$

Попробуйте онлайн!

или

^[^\W_]{0,76}VEVO$

Попробуйте онлайн!

Haskell , 75 байт

-2 байта благодаря пользователю 28667.

import Data.Char
f s|l<-length s=all isAlphaNum s&&l<81&&drop(l-4)s=="VEVO"

Попробуйте онлайн!

Deorst , 22 байта

'^[^\W_]{0,76}VEVO$'gm

Попробуйте онлайн!

Просто использует регулярное выражение, найденное Шегги

V , 17 байт

ø^¨áüä©û,76}VEVO$

Попробуйте онлайн!

HexDump:

00000000: f85e a8e1 fce4 a9fb 2c37 367d 5645 564f  .^......,76}VEVO
00000010: 24                                       $

Сжатые регулярные выражения для победы!

ø                   " Count the number of matches of
 ^                  "   The beginning of the line
  ¨áüä©             "   A letter or number...
       û,76}        "   From 0 to 76 times...
            VEVO    "   Followed by "VEVO"
                $   "   At the end of the line

Ruby -n, 22 + 1 = 23 байта

p~/^[^\W_]{0,76}VEVO$/

Выведите, 0если true, nilесли false

Попробуйте онлайн!

Использование того же скучного регулярного выражения, как и всех остальных.

Swift 4 , 113 байт

import Foundation;var f={(s:String)->Bool in s.range(of:"^[^\\W_]{0,76}VEVO$",options:.regularExpression) != nil}

Попробуйте онлайн!

AWK , 23 байта

$0~/^[^\W_]{0,76}VEVO$/

Попробуйте онлайн!

Выводит имя учетной записи, если оно допустимо, и ничего не выводит, если оно недействительно

Чисто , 61 байт

import StdEnv
?['VEVO']=True
?[_:l]=length l<80&& ?l
?_=False

Попробуйте онлайн!

Perl 5 , 35 29 + 1 (-a) = 30 байт

-6 байт благодаря ETHproductions

Добавлено 4 байта. Не видел, что подчеркивание не было разрешено.

Это мой первый гольф, так что надеюсь, я все сделал правильно.

Возвращает 1, если действует, 0, если нет.

print/^[^\W_]{0,76}VEVO$/?1:0

Попробуйте онлайн!

Google Sheets, 33 байта

Функция анонимного рабочего листа, которая принимает данные из диапазона A1и выводит их в вызывающую ячейку

=RegexMatch(A1,"^[^\W_]{0,76}VEVO

Clojure , 146 байт

(fn[u](let[c count](and(<(c u)81)(=(c(filter #(let[i(int %)](or(< 47 i 58)(< 64 i 91)(< 96 i 123)))u))(c u))(clojure.string/ends-with? u"VEVO"))))

Попробуйте онлайн!

Это было бы намного короче с использованием регулярных выражений, но я подумал, что делать это вручную было бы более интересно.

(defn vevo? [username]
  (and (< (count username) 81)

       ; Filter out the illegal characters, then check if the length is the same as the original string
       (= (count (filter #(let [i (int %)]
                            ; Make sure the char code is in the valid ranges
                            (or (< 47 i 58) (< 64 i 91) (< 96 i 123)))
                         username))
          (count username))

       (clojure.string/ends-with? username "VEVO")))