Ми часто бачимо музичні кліпи на 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 (Dyalog) , 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);}

Спробуйте в Інтернеті!

Діалог APL , 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 альфа numeric символів, за яким слідує рядок 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 для результатів VALID та 1 для результатів INVALID.

Все ще працює над 80 символами або менше.

-27 байт з видалення виводу, завдяки @KeyWeeUsr

+4 байти, фіксований регулярний вираз (такий же, як і всі інші)

Спробуйте в Інтернеті!

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

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

Редагування 2: Також я цілком можу просто позбутися цих}}}}. Дякуємо Телі пелікану за це і знайшли проблему з TIO

Редагування 3: замінено ~~~ на ап

!\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"

Спробуйте в Інтернеті!

Деорст , 22 байти

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

Спробуйте в Інтернеті!

Просто використовує регекс, знайдений Shaggy

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якщо правда, nilякщо неправда

Спробуйте в Інтернеті!

Використовуючи такий же нудний регулярний вираз, як і всі інші.

Швидкий 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 Таблиці, 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")))