지방도는 특정 기호를 생략하는 단어 블록입니다. 지금은 일반적으로 나타나는 다섯 번째 기호 인 26을 피하고 있습니다. 당신은 지금 무엇을 생략하고 있는지 알아야합니다. 그렇지 않은 경우 "lipogram"을 찾아 보면 알 수 있습니다.

당신의 작업

문자, 공백 및 다음 문자열 (공백이 표시 될 수 있습니다 (ASCII 32-126 문자 만))이 문자가 입력 문자열에 있으면 거짓을 출력하고 그렇지 않으면 사실입니다. 이 문자는 항상 "A"에서 "Z"또는 "a"에서 "z"(ASCII 65-90, 97-122)의 두 범위에 맞습니다. 자본과 비자 본을 구별하지 마십시오. 또한 공백이나 문장 부호에 대해 걱정하지 마십시오. 프로그램과 기능 모두 만족합니다. 또한 프로그램이나 함수에 대해 입력 문자와 문자열을 두 개의 인수로 나눌 수 있으며 첫 번째 인수는 괜찮습니다.

삽화

Truthy

e This is a lipogram.
a You need to consider other letters too.
E Capitals also count.

거짓

e This sentence is not a lipogram (for e).
t This particular letter is surprisingly hard.
A You don't need to care about any non-alphabetic symbols.

비리 포 그래피 버전

지방도는 글자를 남기는 일련의 단어입니다. 위의 문자 "e"를 생략했습니다.

작업은 문자와 문자열 (공백을 포함 할 수 있음)을 공백 또는 줄 바꿈으로 구분하여 입력으로 취하고 문자가 문자열에 있으면 거짓을 출력하고 그렇지 않으면 거짓을 출력하는 것입니다. 문자열이 인쇄 가능한 ASCII 문자 (문자 코드 32-126)로만 구성되어 있다고 가정 할 수 있습니다. 문자는 항상 영어 알파벳으로되어 있으며 소문자와 대문자 사이에는 차이가 없습니다. 문자는 공백이나 기호가 아닙니다. 프로그램이나 함수를 작성할 수 있습니다. 두 가지 경우 모두 문자와 문자열을 별도의 인수로 사용하고 문자열이 먼저 올 수 있습니다.

C, 42 바이트

#define f(c,s)!strchr(s,c)&!strchr(s,c^32)

자바 스크립트 ES6 34 26 23 바이트

x=>!/^(.).*\1/i.test(x)

@ MartinBüttner에게 8 바이트를 감사

05AB1E , 7 6 4 3 바이트

암호:

l`-

설명:

l     # Convert both elements to lowercase
 `    # Flatten the array
  -   # Loop over the second line of text and substract each char from the first character
        For example: "abcde""ba"- would result in "cde"

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

Truthy는 현재 문자가 출력 될 때입니다. 거짓은 아무것도 출력되지 않을 때입니다.

티 스크립트, 5 3 바이트

AµN

아하! 암시 적 입력을 잊었습니다! TeaScript는 x.처음에 (입력)을 자동으로 삽입 합니다. 그런 다음 변수에 다른 입력 µ이 있고 NOT ( N)인지 확인할 수 있습니다. TeaScript의 가장 큰 장점은 암시 적 입력이라고 생각합니다.

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

설명

  A µ  N
x.A(y).N  // At compile time

x.A // input, has...
(y) // second input
N   // Logical NOT

배쉬, 16 11 바이트

grep -iv $1

-i대소 문자를 구분하지 않는 플래그이며 -v반전됩니다 (일치하지 않는지 검사).

문자는 명령 행 인수 및 STDIN의 테스트 문자열로 제공되어야합니다.

@ DigitalTrauma 의 도움 으로 5 바이트 감소 !

샘플 실행 :

llama@llama:~$ echo 'This is a lipogram' | ./lipogram.sh e
This is a lipogram.
llama@llama:~$ echo 'This sentence is not a lipogram (for e).' | ./lipogram.sh e

Japt, 12 6 4 바이트

!VoU

온라인으로 테스트하십시오!

@Downgoat의 TeaScript 답변은 Japt에 정확히 동일한 내장 기능이 있음을 상기시켜 2 바이트를 줄였습니다.

작동 원리

       // Implicit: U = input char, V = input string
VoU    // Keep only the chars in V that are equal to U, ignoring case.
!      // Take logical NOT. Returns true if no matches were found, false otherwise.

CJam, 6 바이트

lel(&!

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

설명

l  e# Read a line of input.
el e# Convert to lower case.
(  e# Pull off the first character.
&  e# Set intersection with the rest of the input.
!  e# Logical NOT.

자바 스크립트 (ES6), 29 바이트

(c,s)=>!RegExp(c,'i').test(s)

파이썬 3, 36

사건을 무시하는 것은 놀랍게도 비싸다.

lambda a,b:a.lower()not in b.lower()

인수를 (char, string)으로 사용합니다

Pyth, 8 7 바이트

-rz0rw0

설명

 rw0    -  input().lower()
-       - ^ - V
    rw0 -  input().lower()

대신 사용할 수 있다고 알려주는 @FryAmTheEggman 에게 감사합니다.-!}

여기 사용해보십시오

O, 8 바이트

{_.@_-=}

문자와 문자열을 취하는 익명 함수입니다.

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

설명

{_.@_-=}

{      }
 _        Lowercase string
  .       Duplicate
   @      Rotate stack
    _     Lowercase character
     -    Remove all instances of the character
      =   Compare to original

펄, 11 + 1 = 12 바이트

$_=lc!~lc<>

-p스위치가 필요하고 다음 과 같이 입력을받습니다.$string\n$letter

$ perl -pe'$_=lc!~lc<>' <<< $'this is a lipogram\ne'
1

작동 방식 :

            # -p auto reads input into $_ and auto prints at the end
   lc       # lowercase $_
     !~     # Check against regex
       lc<> # Read next line and lowercase it. '=~' will expect the rValue to be
            # a regex and therefore the result from 'lc<>' will be treated as such
$_=         # Assign result ('1' or '') to $_ which will be printed

자바, 63 바이트

boolean f(String s,char c){return!s.matches("(?i:.*"+c+".*)");}

MATL , 5 바이트

kikm~

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

k        % take first input (letter) implicitly. Convert to lowercase
ik       % take second input (text). Convert to lowercase
m        % ismember function
~        % negate

정말 6 바이트

,ù,ùíu

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

다음과 같이 입력을받습니다. 'string'\n'char'

설명:

,ù,ùíu
,ù      get string (lowercase)
  ,ù    get char (lowercase)
    íu  1-based index (0 if not found)

줄리아 0.3, 22 20 바이트

c%s=c&95∉[s...]&95

uppercaseA는 긴 단어.

작동 원리

c%s=c&95∉[s...]&95

c%s=                Redefine the binary operator % so it takes a character c and
                    a string s and...
     c&95                Compute lo bitwise AND of c and 95.
                         This casts the character c to uppercase.
          [s...]         Yield the list of the characters of the string s.
                &95      Compute lo bitwise AND of each chararacter and 95.
                         This casts the characters of s to uppercase.
         ∉               Return a Boolean, signaling non-membership.

망막, 11

iA`^(.).*\1

Retina에서 진실 / 허위로 간주되는 것이 확실하지 않습니다. 이는 주어진 문자의 lipogram 인 경우 줄을 에코하고 비어 있지 않은 경우 빈 문자열을 반환합니다.

이것은 여러 줄 입력에도 적용됩니다.

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

Minkolang 0.15 , 10 바이트

$or7Z0Z,N.

여기에서 시도하십시오.

설명

$o            Read in whole input as characters
  r           Reverse stack
   7Z         Lowercase everything
     0Z       Pop top of stack (a) and count how many 'a's are in the stack
       ,      'not' the top of stack
        N.    Output as number and stop.

녹, 75 바이트

|c:char,s:&str|!s.to_lowercase().contains(c.to_lowercase().next().unwrap())

가장 큰 점수는 내가이기는 것을 의미합니다. > _ <

여기에서 시도하십시오.

젤리, 8 바이트

ḢO^O&95P

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

작동 원리

ḢO^O&95P  Main link. Input: S (string)

Ḣ         Pop the first character of S.
 O        Ordinal; compute its code point.
  ^O      XOR it with the code points of the remaining characters.
    &95   AND each result with 95.
       P  Take the product of the results.

CJam, 10 바이트

{el\ele=!}

문자열 (문자열이 아님)과 문자열을 취하는 익명 함수 (블록)입니다.

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

설명

{el\ele=!}

{        }
 el\el      lowercase both args
      e=    count occurrences of the character
        !   logical not

PowerShell, 36 32 30 29 25 바이트

param($a,$b)$b-notmatch$a

용도 -notmatch연산자 , 단순히 출력 True하거나 False.

파이썬, 34 바이트

lambda c,s:c not in s+s.swapcase()

에 대소 문자를 바꾼 사본을 추가하여 대소 문자를 무시하고 c문자열 에있는 문자를 확인 합니다 . 부정은 길어 보이지만 더 잘 보이지 않습니다. 이것은 같은 길이입니다 :sssnot

lambda c,s:(c in s+s.swapcase())<1

당신은 parens를 생략 할 수 없거나 그렇지 않으면 파이썬은 표현을 연결 된 3 값 불평등 형태의 양식으로 해석합니다 _ in _ < _.

파이썬 3.5는 세트 변환을 통해 33 바이트를 허용해야하지만 지금 테스트 할 수는 없습니다.

lambda c,s:{*c}-{*s+s.swapcase()}

파이크, 7 바이트

Dl3+R{!

설명:

D       -     eval_or_not(input()).lower()
 l3     -    ^.swapcase()
   +    -   ^+^
    R   -  rotate 2
     {  -  ^ in ^
      ! - not ^

자바 스크립트 ES6, 41 40 바이트

x=>!~x.slice(2).search(RegExp(x[0],"i"))

전체 문자열을 인수로 사용합니다. 내 답변이 다른 ES6 답변으로 녹아 들기 때문에 두 개의 다른 인수를 수락하여 바이트를 절약 할 수 없습니다.

R, 26 바이트

 function(x,y)!grepl(y,x,T)

x는 문자열, y는 문자, grepl 호출의 T는 대소 문자를 구분하지 않습니다.

줄프, 6 7 바이트

그래서. 많은. 식스. SMS? 음, 여기에 그것을 시도 그럼에도 불구하고. 교체 ⌂와 함께 \x7f.

⌂ MiI'i
⌂_M      match with flags
   i     the input
    I    with another input
     'i  using i as a flag

루비, 17 바이트

->c,s{/#{c}/i!~s}

->c,s{  # lambda with two arguments
/#{c}/  # turn the input character into a regexp w/ interpolation
i       # case insensitive
!~      # does not match
s       # input string
}

배치, 53 바이트

@set s=%2
@call set t=%%s:%1=%%
@if %s%==%t% echo 1

입력을 두 개의 명령 행 인수로 승인합니다. (필요한 경우 두 번째 인수를 인용하십시오.) 성공시 1을 출력합니다. 첫 번째 인수가 두 번째 인수에서 (무의식적으로) 발견되면 아무 것도 아닙니다.

Mathematica, 33 32 바이트

StringFreeQ[##,IgnoreCase->1>0]&

##을 사용할 수있을 때 좋아합니다. 입력은 문자열이고 char입니다.

또는 대소 문자 구분 버전 : (11 바이트 :)

StringFreeQ

그렇습니다, 단지 내장.