Youtube'da sık sık müzik videoları görüyoruz. Müzik videoları barındıran birçok Youtube kanalı "VEVO tarafından desteklenmektedir". Bunlar hem küçük resimlere VEVO'yu gömmek suretiyle ve VEVO'yu kanal adlarına ekleyerek kolayca tanımlanabilir.

Şimdi, kullanıcı tarafından verilen bir dizinin VEVO kullanıcı hesabı olup olmadığını test etmek için bir kod yazın.

Geçerli VEVO kullanıcı hesap dizgileri için gerekenler:

• Yalnızca büyük harf, küçük harf ve rakam karakterleri içermelidir. (boşluk veya noktalama yok)

• 80 karakter uzunluğunu geçmemelidir.

• Dizenin sonunda "VEVO" alt dizgisine sahip olmalı

Test durumları:

Geçerli girişler:

AdeleVEVO
ConnieTalbotVEVO
SHMVEVO
justimberlakeVEVO
DJMartinJensenVEVO
test123VEVO

Geçersiz girişler:

syam kapuk
jypentertainment
Noche de Brujas
testVEVO123

Tabii ki, çünkü bu kod golf , herhangi bir programlama dilini kullanan en kısa kodu arıyorum.

Python 2,45 bayt

Rod sayesinde -3 bayt. Ovs sayesinde -2 bayt.

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

Çevrimiçi deneyin!

Bir regex çözümü daha uzun çıkıyor.

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

Japt v2.0a0, 20 16 bayt

1Geçerli veya 0geçersiz için döndürür . Aynı bayt sayısı [\l\d]yerine de [^\W_]çalışırdı.

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

Deneyin | Tüm test durumlarını kontrol et

Açıklama : èGirdide RegEx ile eşleşen sayısını sayar. Japt'de, \wRegEx sınıfı alt çizgi içermez.

JavaScript (ES6), 27 36 34 31 bayt

@Neil ve @Shaggy sayesinde 3 byte sayesinde 2 bayt kaydedildi

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

Test durumları

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 bayt

-10 bayt <?=yerine Ismael Miguel yerine kullanmak için <?php echo! ve kapanış etiketini kaldırma

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

Çevrimiçi deneyin!

Diğer cevaplar için teşekkürler, bu yüzden regex yazmak zorunda kaldım!

APL (Dyalog) , 25 bayt

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

Çevrimiçi deneyin!

C (gcc) , 83 bayt

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

Çevrimiçi deneyin!

Dyalog APL , 47 bayt

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

Çevrimiçi deneyin!

Saf bir regex çözümü 32 byte , ancak aynı zamanda bu yaklaşımdan çok daha sıkıcı.

{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

Grime , 13 bayt

e`n{-76"VEVO"

Çevrimiçi deneyin!

Burada süslü bir şey yok. Eşleşme edesen karşı ntire girişi: çoğu 76 alfa de numeric karakterler, dize izledi VEVO. Eşleşme 1için ve 0eşleşme olmadan yazdırır . Son teklifin satır sonunda kaldırılabileceğini hatırladım, ancak görünüşe göre sadece ayrıştırma hatasına neden oluyor.

C # (.NET Çekirdeği) , 87 + 18 = 105 bayt

Çevrimiçi deneyin!

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

> <> , 147 125 bayt

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

Çevrimiçi deneyin!

> <> , 147 bayt

Çevrimiçi deneyin!

Bu, giriş dizesi geçerliyse ve geçersiz bir giriş için hiçbir şey yoksa, 1 olarak yazdırılır.

Düzenleme 1: Her karakterle karşılaştırmak yerine aralıkları kullanmak için Alfanümerik kontrolleri değiştirdi. (22 bayt kaydediliyor)

Bash, 53 26 30 bayt

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

VALID sonuçları için 0 kodundan ve INVALID sonuçları için 1 kodundan çıkın.

Hala 80 karakter veya daha az karakter üzerinde çalışıyorum.

@KeyWeeUsr sayesinde çıkışı kaldırmadan -27 bayt

+4 bayt, sabit regex (diğer herkesle aynı)

Çevrimiçi deneyin!

> <> , 101 89 83 81 94 bayt

Düzenleme: Alfanümerik değil, alfanümerik olmayan karakterleri kontrol etmeye geçirilir. Geri döndü, çünkü Z ve a arasında kontrol etmeyi unuttum. @Emigna teşekkürler. Yine de kayıp baytları kopyala

Düzenleme 2: Ayrıca, bunlardan tamamen kurtulabilirim}}}}. Bunun için Teal pelikan ve TIO ile sorunu bulmak için teşekkürler

Düzenleme 3: a ile bir ~~~ değiştirildi

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

Bunun neden TIO'da işe yaramayacağını bilmiyorum, ama burada iyi çalışıyor . Sorun, TIO’daki {} komutlarının boş bir liste için çalışmamasıydı.Buradan Deneyin

Nasıl çalışır

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

Tutarlılık için, yerine; geçersiz komut ile son satırında her çıktı bir hata yapar .

C ++, 129 105 102 bayt

Bana verilen diğer cevaplar
sayesinde Zacharý sayesinde -2 bayt karakter sayısını sayabileceğimi gösterdim.

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

TIO LINK

Yığılmış , 21 bayt

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

Çevrimiçi deneyin!

05AB1E , 21 bayt

žKÃQsg81‹IR4£"OVEV"QP

Çevrimiçi deneyin!

Java (OpenJDK 8) , 37 36 bayt

Bazı güzel regex kullanarak oldukça basit bir cevap.
Muhtemelen şimdiye kadar yaptığım en kısa Java cevabı.
Javascript cevabındaki Neil'a -1 bayt teşekkürler

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

Çevrimiçi deneyin!

Retina , 18 bayt

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

Çevrimiçi deneyin!

veya

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

Çevrimiçi deneyin!

Haskell, 75 bytes

-2 bytes thanks to user28667.

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

Try it online!

Deorst, 22 bytes

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

Try it online!

Just uses the regex found by Shaggy

V, 17 bytes

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

Try it online!

Hexdump:

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

Compressed regexes for the win!

ø                   " 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 bytes

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

Output 0 if true, nil if false

Try it online!

Using the same boring regex as everybody else.

Swift 4, 113 bytes

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

Try it online!

AWK, 23 bytes

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

Try it online!

Outputs the account name if valid, and outputs nothing if it isn't valid

Clean, 61 bytes

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

Try it online!

Perl 5, 35 29+1(-a) = 30 bytes

-6 bytes thanks to ETHproductions

Added 4 bytes. Didn't see that underscore wasn't allowed.

This is my first golf, so here's hoping I did it right.

Returns 1 if valid, 0 if not.

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

Try it online!

Google Sheets, 33 Bytes

Anonymous worksheet function that takes input from range A1 and outputs to the calling cell

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

Clojure, 146 bytes

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

Try it online!

This would be much shorter using a regex, but I figured doing it manually would be more interesting.

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