Türeyen bu , şimdi, yayın sildi.

Bir dize verildiğinde, aşağıdaki koşulların tümü karşılandığında iyi bir Bishop parolası oluşturuyorsa (doğru / yanlış veya iki tutarlı değer) yanıt verin:

1. en az 10 karakteri var

2. en az 3 basamaklı ( [0-9])

3. bir palindrom değildir (tersine çevrildiğinde kendi kendine özdeştir)

Kodunuz iyi bir Bishop şifresi ise 0 bayt bonusu alırsınız.

Uyarı: Do not gerçek şifre gücü ölçüsü olarak Bishop iyilik kullanın!

Örnekler

İyi Bishop şifreleri

PPCG123GCPP
PPCG123PPCG
PPCG123gcpp
0123456789
Tr0ub4dor&3

İyi Bishop şifreleri

PPCG123 (çok kısa)
correct horse battery staple (yeterli basamak yok)
PPCG121GCPP (palindrom)
 (çok kısa ve yeterli basamak yok)
abc121cba (çok kısa ve palindrom)
aaaaaaaaaaaa (palindrom ve yeterli basamak yok)
abc99cba (her şey yanlış)

Python 2 , 61 59 54 51 bayt

lambda s:sum(map(str.isdigit,s))>2<s[:9]<s<>s[::-1]

Çevrimiçi deneyin!

_{-5 bayt, Outgolfer Erik sayesinde
-3 bayt, xnor sayesinde}

05AB1E , 12 bayt

gT@Iþg3@IÂÊP

Çevrimiçi deneyin veya tüm test senaryolarını doğrulayın .

Açıklama:

g      # Get the length of the (implicit) input
 T@    # Check if this length >= 10
Iþ     # Get the input and only leave the digits
  g    # Then get the length (amount of digits)
   3@  # And check if the amount of digits >= 3
IÂ     # Get the input and the input reversed
  Ê    # Check if they are not equal (so not a palindrome)
P      # Check if all three above are truthy (and output implicitly)

Japt , 17 14 bayt

ʨA&U¦Ô&3§Uè\d

-3S baylar @Shaggy tarafından yeniden düzenlendi

Çevrimiçi deneyin!

Japt , 15 bayt (0 Bayt Bonusu: v)

ʨ10&U¦Ô&3§Uè\d

Çevrimiçi deneyin!

R , 80 70 62 64 63 bayt

any(rev(U<-utf8ToInt(scan(,'')))<U)&sum(U>47&U<58)>2&sum(U|1)>9

Çevrimiçi deneyin!

DigEmAll ve bazıları da yeniden düzenleniyor

sum((s<-el(strsplit(scan(,''),"")))%in%0:9)>2&!all(s==rev(s))&s[10]>''

Çevrimiçi deneyin!

Oldukça basit, burada gerçekten şaşırtıcı hileler yok. Kullanıcı dize girdikten sonra:

• Dizeyi ayırır ve 2'den fazla sayı arar. (3 veya daha fazla basamak)
• Tüm öğelerin dizenin ters sürümüne (palindrome) eşit olup olmadığını kontrol eder
• Uzunluğun 9'dan (10 veya daha fazla karakter) fazla olduğunu kontrol eder

APL + WIN, 36, 30 29 bayt

Adám'a 7 bayt kaydedildi

Endeks kaynağı = 0

Giriş dizesi istemleri

(10≤⍴v)×(3≤+/v∊∊⍕¨⍳10)>v≡⌽v←⎕

Çevrimiçi deneyin! Dyalog Classic'in izniyle

Açıklama:

(10≤⍴v) Length test pass 1 fail 0

(3≤+/v∊∊⍕¨⍳10) Number of digits test

>v≡⌽v Palindrome test

Kod ayrıca iyi bir Bishop şifresi olduğu için bonusa hak kazanır.

Brachylog , 18 12 bayt

İpuçları için teşekkürler, Kroppeb ve Fatalize !

¬↔?l>9&ịˢl>2

Çevrimiçi deneyin!

açıklama

Program zincirleme iki bölümden oluşan tek bir yüklemdir &.

İlk:

¬       The following assertion must fail:
 ↔        The input reversed
  ?       can be unified with the input
        Also, the input's
   l    length
    >9  must be greater than 9

İkinci:

 ˢ     Get all outputs from applying the following to each character in the input:
ị        Convert to number
       This gives an integer for a digit character and fails for a non-digit, so
       we now have a list containing one integer for each digit in the password
  l    Its length
   >2  must be greater than 2

Jöle , 12 bayt

~Tṫ3ȧL9<Ɗ>ṚƑ

Çevrimiçi deneyin!

[]yeterli basamak yoksa (boş liste, falsi), 0aksi takdirde kötü ise (sıfır, falsi), 1eğer iyiyse (sıfır, gerçek olmayan).

Java 8, 92 bayt

s->s.length()>9&s.replaceAll("\\D","").length()>2&!s.contains(new StringBuffer(s).reverse())

Çevrimiçi deneyin.

Açıklama:

s->                        // Method with String parameter and boolean return-type
  s.length()>9             //  Check if the length of the input-String is more than 9
  &s.replaceAll("\\D","")  //  AND: remove all non-digits from the input-String
    .length()>2            //       and check if the amount of digits is more than 2
  &!s.contains(new StringBuffer(s).reverse())
                           //  AND: check if the input-String does NOT have the reversed
                           //       input-String as substring (and thus is not a palindrome)

JavaScript, 60 56 46 bayt

Girişi bir karakter dizisi olarak alır. 1Doğruluk ve falsey 0için çıktılar .

s=>/(\d.*){3}/.test(s[9]&&s)&s+``!=s.reverse()

Çevrimiçi Deneyin!

Arnauld sayesinde 10 bayt (!) Kurtardı .

Raket , 122 bayt

(define(d s)(let([t(string->list s)])(and(< 2(length(filter char-numeric? t)))(< 9(length t))(not(equal? t(reverse t))))))

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 25 bayt ^SBCS

{∧/(9<≢⍵)(3≤+/⍵∊⎕D),⍵≢⌽⍵}

Çevrimiçi deneyin!

Perl 5 -p, 33 bayt

$_=/.{10}/&y/0-9//>2&reverse ne$_

TIO

Temiz , 66 bayt

import StdEnv
$s=s<>reverse s&&s%(0,8)<s&&sum[1\\c<-s|isDigit c]>2

Çevrimiçi deneyin!

• s<>reverse s: sbir palindrom değil
• s%%(0,8)<s: ilk 9 karakteri s hepsinden azs
• sum[1\\c<-s|isDigit c]>2: sikiden fazla basamağa sahip

Retina 0.8.2 , 40 bayt

G`.{10}
G`(\d.*){3}
+`^(.)(.*)\1$
$2
^..

Çevrimiçi deneyin! Bağlantı, test senaryolarını içerir. Açıklama:

G`.{10}

En az 10 karakter olup olmadığını kontrol eder.

G`(\d.*){3}

En az 3 hane olup olmadığını kontrol eder.

+`^(.)(.*)\1$
$2

Eşleşirlerse ilk ve son karakteri kaldırın.

^..

En az 2 karakter varsa, o zaman bir palindrom değildi.

.NET'in dengeleme grupları, bunun tek bir düzenli ifadede yapılabileceği anlamına gelir, ancak 47 bayt alır:

^(?!(.)*.?(?<-1>\1)*$(?(1).))(?=.{10})(.*\d){3}

Çevrimiçi deneyin! Bağlantı, test senaryolarını içerir.

Kırmızı , 117111 bayt

func[s][d: charset"0123456789"n: 0 parse s[any[d(n: n + 1)|
skip]]all[n > 2 9 < length? s s <> reverse copy s]]

Çevrimiçi deneyin!

Python 3 , 74 72 64 bayt

-2 bayt için Neil A. teşekkürler ! Jo King'e -8 bayt için
teşekkürler !

lambda s:s[9:]and re.findall('\d',s)[2:]and s[::-1]!=s
import re

Açıklama:

lambda s: # Create lambda                                          
           s[9:] # Check if the string is at least 10 characters long                                 
                     and re.findall('\d',s)[2:] #Check for at least 3 matches of the regex \d (which matches all digits)
                     and s[::-1] != s # Check if the string reversed is equal to the string (palindrome test)
import re  # Import regex module

Çevrimiçi deneyin!

Perl 6 , 32 bayt

{$_ ne.flip&&m:g/\d/>2&&.comb>9}

Çevrimiçi deneyin!

Tüm kurallara uyulmasını zorlayan anonim kod bloğu.

Açıklama:

{          &&         &&       }  # Anonymous code block
 $_ ne.flip                       # Input is not equal to its reverse
             m:g/\d/>2            # There are more than two digits
                        .comb>9   # There are more than 9 characters

K (ok) , 31 28 bayt

Ngn sayesinde -3 bayt!

{(x~|x)<(2<#x^x^/$!10)*9<#x}

Çevrimiçi deneyin!

JavaScript (Node.js) , 70 bayt

a=>a.length>9&(a.match(/\d/g)||[]).length>2&a!=[...a].reverse().join``

Çevrimiçi deneyin!

True için 1 ve false için 0 döndürür

C # (Visual C # Etkileşimli Derleyici) , 67 bayt

n=>n.Count(char.IsDigit)>2&!n.Reverse().SequenceEqual(n)&n.Length>9

Çevrimiçi deneyin!

Pip , 19 bayt

#a>9&XD Na>2&aNERVa

Çevrimiçi deneyin!(tüm test örnekleri)

açıklama

İle ailk komut satırı argümanı olarak:

#a > 9      Length of a is greater than 9
&           and
XD N a > 2  Number of matches of regex [0-9] iN a is greater than 2
&           and
a NE RV a   a is not (string-)equal to reverse of a

Stax , 14 bayt

ûc╖»¬ë⌂╓âó╗cCé

Çalıştır ve hata ayıkla

Pyth, 17 bayt

&&<2l@`MTQ<9lQ!_I

Buradan çevrimiçi olarak deneyin veya tüm test senaryolarını burada bir kerede doğrulayın .

&&<2l@`MTQ<9lQ!_IQ   Implicit: Q=eval(input()), T=10
                     Trailing Q inferred
      `MT            [0-10), as strings
     @   Q           Take characters from input which are in the above
    l                Length
  <2                 Is the above greater than 2?
            lQ       Length of Q
          <9         Is the above greater than 9?
               _IQ   Is Q unchanged after reversal?
              !      Logical NOT
&&                   Logical AND the three results together

Groovy, (47 bayt)

{p->p=~/.{10}/&&p=~/(\d.*){3}/&&p!=p.reverse()}

(Bonus katılımı okuyucuya bir alıştırma olarak bırakılmıştır)