Lipogram to blok słów, który pomija określony symbol. W tej chwili unikam piątego symbolu 26, który zwykle się pojawia. Powinieneś już wiedzieć, co pomijam. Jeśli nie, spójrz na „lipogram”, a dowiesz się.

Twoje zadanie

Z char, spacją i następującym ciągiem znaków (w tym mogą pojawiać się spacje; tylko znaki ASCII 32-126) na wejściu, wypisuje fałsz, jeśli ten char jest w ciągu wejściowym, prawda, jeśli nie. Znak, którego szukasz, zawsze będzie pasował do dwóch zakresów: „A” do „Z” lub „a” do „z” (ASCII 65-90, 97-122). Nie rozróżniaj wielkich i małych liter. Nie martw się również o znaki puste i interpunkcyjne. Zarówno programy, jak i funkcje spełniają. Możesz także podzielić znak wejściowy i ciąg znaków na dwa argumenty dla programów lub funkcji, a ciąg znaków jako pierwszy argument jest w porządku.

Ilustracje

Prawda

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

Falsy

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.

Wersja bez lipogramu

Lipogram to seria słów, które pomijają literę. Pominąłem literę „e” powyżej.

Twoim zadaniem jest pobranie znaku i łańcucha (który może zawierać spacje) jako danych wejściowych, oddzielonych spacją lub znakiem nowej linii i wygenerowanie fałszowania, jeśli znak znajduje się w łańcuchu, a tak naprawdę. Możesz założyć, że łańcuch składa się wyłącznie z drukowalnych znaków ASCII (kody znaków 32-126). Znak zawsze będzie w alfabecie angielskim i nie ma różnicy między małymi a wielkimi literami. Postać nie będzie spacją ani symbolem. Możesz napisać program lub funkcję. W obu przypadkach można traktować znak i ciąg jako osobne argumenty, a ciąg może być na pierwszym miejscu.

C, 42 bajty

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

JavaScript ES6 34 26 23 bajtów

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

ogolono 8 bajtów dzięki @ MartinBüttner

05AB1E , 7 6 4 3 bajty

Kod:

l`-

Wyjaśnienie:

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"

Wypróbuj online!

Prawda jest wtedy, gdy wypisywana jest bieżąca litera. Falsy występuje wtedy, gdy nic nie jest wyprowadzane.

TeaScript, 5 3 bajty

AµN

Aha \ o /! Zapomniałem o niejawnych danych wejściowych! TeaScript automatycznie wstawi x.(dane wejściowe) na początku. Następnie mogę sprawdzić, czy ma inne dane wejściowe (w zmiennej µ), a więc NIE ( N). Myślę, że najlepszą zaletą TeaScript jest jego domyślny wkład

Wypróbuj online

Wyjaśnienie

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

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

Bash, 16 11 bajtów

grep -iv $1

-ijest flaga bez rozróżniania wielkości liter, -vodwraca (sprawdza niezgodność).

Znak musi być podany jako argument wiersza poleceń, a ciąg testowy na STDIN.

Zmniejszony o 5 bajtów z pomocą @ DigitalTrauma !

Przykładowe przebiegi:

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 bajtów

!VoU

Przetestuj online!

Odpowiedź Teago @ Downgoat przypomniała mi, że Japt ma dokładnie taką samą wbudowaną funkcję, odcinając ostatnie dwa bajty.

Jak to działa

       // 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 bajtów

lel(&!

Wypróbuj online! lel

Wyjaśnienie

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.

JavaScript (ES6), 29 bajtów

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

Python 3, 36

Zignorowanie przypadku jest zaskakująco drogie.

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

Przyjmuje argumenty jako (char, string)

Pyth, 8 7 bajtów

-rz0rw0

Wyjaśnienie

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

Dzięki @FryAmTheEggman za informację, że mogę użyć -zamiast!}

Wypróbuj tutaj

O, 8 bajtów

{_.@_-=}

Anonimowa funkcja, która pobiera znak i ciąg znaków.

Wypróbuj online.

Wyjaśnienie

{_.@_-=}

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

Perl, 11 + 1 = 12 bajtów

$_=lc!~lc<>

Wymaga -pprzełącznika i przyjmuje dane wejściowe jako$string\n$letter

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

Jak to działa:

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

Java, 63 bajty.

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

MATL , 5 bajtów

kikm~

Wypróbuj online!

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

Poważnie, 6 bajtów

,ù,ùíu

Wypróbuj online!

Pobiera dane wejściowe jako 'string'\n'char'

Wyjaśnienie:

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

Julia 0.3, 22 20 bajtów

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

uppercaseto długie słowo.

Jak to działa

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.

Siatkówka, 11

iA`^(.).*\1

Nie jestem pewien, co w Retinie liczy się jako prawda / fałsz, spowoduje to wyświetlenie echa linii, jeśli jest to lipogram dla danego znaku i zwróci pusty ciąg, jeśli nie jest.

Będzie to również działać w przypadku wprowadzania wielowierszowego.

Wypróbuj online!

Minkolang 0,15 , 10 bajtów

$or7Z0Z,N.

Wypróbuj tutaj.

Wyjaśnienie

$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.

Rdza, 75 bajtów

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

Największy wynik oznacza, że ​​wygrałem, prawda? > _ <

Wypróbuj tutaj.

Galaretka, 8 bajtów

ḢO^O&95P

Wypróbuj online!

Jak to działa

Ḣ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 bajtów

{el\ele=!}

Anonimowa funkcja (blok), która pobiera znak (nie ciąg znaków!) I ciąg znaków.

Wypróbuj online.

Wyjaśnienie

{el\ele=!}

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

PowerShell, 36 32 30 29 25 bajtów

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

Korzysta z -notmatchoperatora i po prostu wyprowadza Truelub False.

Python, 34 bajty

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

Sprawdza, czy znak cjest w ciągu s, ignorując wielkość liter, dodając zamienioną wielkość liter sdo s. Negacja jest zakończona not, co wygląda na długie, ale nie widzę lepiej. Jest to ta sama długość:

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

Nie można pominąć parens, w przeciwnym razie Python interpretuje wyrażenie jako łańcuchową nierówność formy o trzech wartościach _ in _ < _.

Python 3.5 powinien zezwalać na 33 bajty poprzez konwersje zestawów, chociaż nie mogę tego teraz przetestować.

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

Pyke, 7 bajtów

Dl3+R{!

Wyjaśnienie:

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

JavaScript ES6, 41 40 bajtów

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

Bierze cały ciąg jako argument. Nie mogę zapisać bajtów, akceptując dwa różne argumenty, ponieważ wtedy moja odpowiedź stopiłaby się z inną odpowiedzią ES6 :(

R, 26 bajtów

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

x jest łańcuchem, y jest literą, T w wywołaniu grepl powoduje, że wielkość liter nie jest uwzględniana.

Jolf, 6 7 bajtów

Więc. Wiele. Szóstki. SMS? Cóż, spróbować go tutaj jednak. Wymień ⌂się \x7f.

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

Rubinowy, 17 bajtów

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

Partia, 53 bajty

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

Akceptuje dane wejściowe jako dwa argumenty wiersza polecenia. (W razie potrzeby podaj drugi argument.) W przypadku powodzenia zwraca 1, nic, jeśli pierwszy argument (nieczułość) zostanie znaleziony w drugim.

Mathematica, 33 32 bajty

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

Uwielbiam, kiedy można użyć ##. Dane wejściowe to ciąg znaków, a następnie char.

Lub wersja z rozróżnianiem wielkości liter: (11 bajtów :)

StringFreeQ

Tak, tylko wbudowany.