에서 파생 이 , 지금, 게시물을 삭제.

문자열이 주어지면 다음과 같은 조건이 모두 충족 될 때 좋은 주교 암호를 구성하는 경우 (거짓 / 거짓 또는 두 개의 일관된 값)에 대답하십시오.

1. 10 자 이상이어야합니다

2. 3 자리 이상이어야합니다 ( [0-9])

3. 회문이 아닙니다 (반전 될 때 자체와 동일)

코드가 좋은 주교 암호라면 0 바이트 보너스를받습니다.

경고 : 음주 하지 실제 암호 강도의 척도로 주교의 선 (善)을 사용!

예

좋은 주교 암호

PPCG123GCPP
PPCG123PPCG
PPCG123gcpp
0123456789
Tr0ub4dor&3

좋지 않은 주교 암호

PPCG123 (너무 짧음)
correct horse battery staple (충분하지 않은 숫자)
PPCG121GCPP (회문)
 (너무 짧고 부족한 숫자)
abc121cba (너무 짧고 회문)
aaaaaaaaaaaa (회문 및 숫자가 충분하지 않음
abc99cba )

파이썬 2 , 61 59 54 51 바이트

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

온라인으로 사용해보십시오!

_{Outnorfer Erik 덕분에 -5 바이트 xnor
덕분에 -3 바이트}

05AB1E , 12 바이트

gT@Iþg3@IÂÊP

온라인으로 시도 하거나 모든 테스트 사례를 확인하십시오 .

설명:

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)

apt , 17 14 바이트

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

@Shaggy에 의해 재 배열 된 -3 바이트

온라인으로 사용해보십시오!

Japt , 15 바이트 (0 바이트 보너스 : v)

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

온라인으로 사용해보십시오!

R , 80 70 62 64 63 바이트

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

온라인으로 사용해보십시오!

digEmAll 및 일부 재 배열에서

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

온라인으로 사용해보십시오!

매우 간단하고 놀라운 속임수는 없습니다. 사용자가 문자열을 입력 한 후 :

• 문자열을 구분하고 두 개 이상의 숫자를 검색합니다. (3 자리 이상)
• 모든 요소가 문자열의 역 버전과 같은지 확인합니다 (palindrome)
• 길이가 9보다 큰지 확인합니다 (10 자 이상)

APL + WIN, 36, 30 29 바이트

7 바이트 절약 감사합니다

인덱스 원점 = 0

입력 문자열에 대한 프롬프트

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

온라인으로 사용해보십시오! Dyalog Classic 제공

설명:

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

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

>v≡⌽v Palindrome test

이 코드는 또한 좋은 주교 암호이므로 보너스를받을 자격이 있습니다.

Brachylog , 18 12 바이트

팁, Kroppeb 및 Fatalize에 감사드립니다 !

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

온라인으로 사용해보십시오!

설명

프로그램은로 묶인 두 부분으로 구성된 단일 술어입니다 &.

먼저:

¬       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

둘째:

 ˢ     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

젤리 , 12 바이트

~Tṫ3ȧL9<Ɗ>ṚƑ

온라인으로 사용해보십시오!

[]숫자가 충분하지 않은 경우 (빈 목록, 허위), 0그렇지 않으면 불량 (0, 허위), 1양호 ( 제로, 진실) 인 경우

자바 8, 92 바이트

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

온라인으로 사용해보십시오.

설명:

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)

자바 스크립트, 60 56 46 바이트

문자 배열로 입력을받습니다. 출력 1truthy 및 0falsey합니다.

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

온라인으로 사용해보십시오!

Arnauld 덕분에 10 바이트 (!)를 절약했습니다 .

라켓 , 122 바이트

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

온라인으로 사용해보십시오!

APL (Dyalog Unicode) , 25 바이트 ^SBCS

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

온라인으로 사용해보십시오!

펄 5 -p, 33 바이트

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

TIO

클린 , 66 바이트

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

온라인으로 사용해보십시오!

• s<>reverse s: s회문이 아닙니다
• s%%(0,8)<s:의 첫 9 s자는 모두s
• sum[1\\c<-s|isDigit c]>2: s두 자리 이상

레티 나 0.8.2 , 40 바이트

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

온라인으로 사용해보십시오! 링크에는 테스트 사례가 포함됩니다. 설명:

G`.{10}

10 자 이상을 확인합니다.

G`(\d.*){3}

3 자리 이상을 확인합니다.

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

첫 문자와 마지막 문자가 일치하면 제거하십시오.

^..

최소 2 자 이상이면 회문이 아닙니다.

.NET의 밸런싱 그룹은 단일 정규식으로 수행 할 수 있지만 47 바이트가 필요하다는 것을 의미합니다.

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

온라인으로 사용해보십시오! 링크에는 테스트 사례가 포함됩니다.

빨강 , 117111 바이트

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]]

온라인으로 사용해보십시오!

파이썬 3 , 74 72 64 바이트

-2 바이트를위한 Neil A. 에게 감사 합니다! -8 바이트를위한 Jo King 에게
감사 합니다!

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

설명:

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

온라인으로 사용해보십시오!

펄 6 , 32 바이트

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

온라인으로 사용해보십시오!

모든 규칙을 준수하도록하는 익명의 코드 블록입니다.

설명:

{          &&         &&       }  # 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 바이트

ngn 덕분에 -3 바이트!

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

온라인으로 사용해보십시오!

자바 스크립트 (Node.js) , 70 바이트

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

온라인으로 사용해보십시오!

true는 1을, false는 0을 반환

C # (Visual C # 대화식 컴파일러) , 67 바이트

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

온라인으로 사용해보십시오!

핍 , 19 바이트

#a>9&XD Na>2&aNERVa

온라인으로 사용해보십시오! (모든 테스트 사례)

설명

와 a첫 번째 명령 줄 인수 인 :

#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 바이트

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

실행 및 디버깅

Pyth, 17 바이트

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

여기 에서 온라인으로 시도 하거나 모든 테스트 사례를 한 번에 확인 하십시오 .

&&<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

그루비 (47 바이트)

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

(보너스 포함은 독자에게 연습으로 남습니다)