Bir lipogram, belirli bir sembolü ihmal eden bir kelime bloğudur. Şu anda, yaygın olarak görülen 26 numaralı beşinci sembolümüzden kaçınıyorum. Şimdi ne atladığımı bilmelisin. Değilse, "lipogram" konusuna bakın ve bileceksiniz.

Senin görevin

Bir karakter, bir boşluk ve aşağıdaki bir karakter dizisi (bunlarda boşluklar görünebilir; yalnızca ASCII 32-126 karakterleri ile) girişinde, bu karakter giriş dizgisinde ise yanlış çıktı verir, eğer değilse truthy. Aramanız gereken bu karakter daima iki alana sığacaktır: "A" - "Z" veya "a" - "z" (ASCII 65-90, 97-122). Büyük harfleri ve büyük harfleri ayırt etmeyin. Ayrıca, boşluklar veya noktalama işaretleri hakkında endişelenmeyin. Hem programlar hem de işlevler tatmin edicidir. Ayrıca, giriş karakterini ve dizgisini programlar veya işlevler için iki kısma bölebilirsiniz ve dize ilk argüman olduğu için dize.

Çizimleri

Doğru

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.

Lipogramlanmamış versiyon

Bir lipogram, bir harf bırakan bir dizi kelimedir. Yukarıdaki "e" harfini bıraktım.

Göreviniz bir karakter veya bir karakter dizisi (boşluklar içerebilir) girdi olarak, boşluk veya satırsonu ile ayrılmış ve karakter dizgede ise yanlış çıktı, aksi halde truthy almaktır. Dizenin yalnızca yazdırılabilir ASCII karakterlerinden oluştuğunu varsayabilirsiniz (karakter kodları 32-126). Karakter her zaman İngilizce alfabesinde olacak ve küçük harf ve büyük harf arasında bir fark yoktur. Karakter boşluk veya sembol olmayacak. Bir program veya işlev yazabilirsiniz. Her iki durumda da, karakter ve dizgiyi ayrı argümanlar olarak alabilir ve dize önce gelebilir.

C, 42 bayt

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

Javascript ES6 34 26 23 Bayt

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

MartinBüttner @ 8 bayt teşekkürler tıraş

05AB1E , 7 6 4 3 bayt

Kod:

l`-

Açıklama:

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"

Çevrimiçi deneyin!

Gerçek şu ki, geçerli harf çıktığında. Sahte, hiçbir şey çıkmadığı zamandır.

TeaScript, 5 3 bayt

AµN

Aha \ o /! Örtük girişleri unuttum! TeaScript x.başında otomatik olarak (giriş) ekleyecektir . Daha sonra başka bir girişi olup olmadığını (değişkende µ) ve böylece bir NOT ( N) olup olmadığını kontrol edebilirim . Sanırım TeaScript'in buradaki en büyük avantajı üstü kapalı bir giriş.

Çevrimiçi deneyin

açıklama

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

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

Bash, 16 11 bayt

grep -iv $1

-ibüyük / küçük harfe duyarlı olmayan bayrak, -vters çevirir (eşleşmeyen birini denetler).

Karakter bir komut satırı argümanı ve STDIN'deki test dizgisi olarak sağlanmalıdır.

@ DigitalTrauma'nın yardımı ile 5 byte azaltıldı !

Örnek çalışır:

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 bayt

!VoU

Çevrimiçi test edin!

@ Downgoat'ın TeaScript yanıtı, Japt’ın tamamen aynı bir dahili paya sahip olduğunu ve son iki baytı kesildiğini hatırlattı.

Nasıl çalışır

       // 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 bayt

lel(&!

Çevrimiçi deneyin! lel

açıklama

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 bayt

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

Python 3, 36

Davayı yok saymak zorunda kalmak şaşırtıcı derecede pahalıdır.

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

Argümanları şu şekilde alır (char, string)

Pyth, 8 7 bayt

-rz0rw0

açıklama

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

@FryAmTheEggman- yerine bana kullanabileceğimi söylediğiniz için teşekkürler!}

Burada dene

O, 8 bayt

{_.@_-=}

Karakter ve dize alan anonim bir işlev.

Çevrimiçi deneyin.

açıklama

{_.@_-=}

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

Perl, 11 + 1 = 12 bayt

$_=lc!~lc<>

-pAnahtarı gerektirir ve girişi olduğu gibi alır.$string\n$letter

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

Nasıl çalışır:

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

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

MATL , 5 bayt

kikm~

Çevrimiçi deneyin!

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

Cidden, 6 bayt

,ù,ùíu

Çevrimiçi deneyin!

Girişi alır 'string'\n'char'

Açıklama:

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

Julia 0.3, 22 20 bayt

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

uppercaseBir olan uzun kelime.

Nasıl çalışır

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.

Retina, 11

iA`^(.).*\1

Retina’da truthy / falsy sayılan şeyin ne olduğundan emin değilim, bu verilen karakter için bir lipogram ise çizgiyi yankılanacak ve eğer değilse boş dizgeye dönecektir.

Bu aynı zamanda multiline giriş için de işe yarayacaktır.

Çevrimiçi deneyin!

Minkolang 0,15 , 10 bayt

$or7Z0Z,N.

Burada dene.

açıklama

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

Pas, 75 bayt

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

En büyük puan kazandığım anlamına gelir, değil mi? > _ <

Burada dene.

Jöle, 8 bayt

ḢO^O&95P

Çevrimiçi deneyin!

Nasıl çalışır

Ḣ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 bayt

{el\ele=!}

Bir karakter (bir dize değil!) Ve bir dize alan anonim bir işlev (blok).

Çevrimiçi deneyin.

açıklama

{el\ele=!}

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

PowerShell, 36 32 30 29 25 bayt

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

-notmatchİşleci kullanır ve basitçe Trueveya çıktılar False.

Python, 34 bayt

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

Karakter için Çekler cdizede olmanın s, bir harf takas kopyasını ekleyerek davayı görmezden siçin s. Olumsuzluk notuzun görünüyor, ancak daha iyi göremiyorum. Bu aynı uzunluktadır:

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

Parenleri ihmal edemezsiniz ya da Python ifadeyi biçimsel üç değer eşitsizliği olarak araya sokar _ in _ < _.

Python 3.5, ayarlanmış dönüşümler üzerinden 33 bayta izin vermelidir, ancak şimdi test edemiyorum.

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

Pyke, 7 bayt

Dl3+R{!

Açıklama:

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

JavaScript ES6, 41 40 bayt

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

Dizenin tamamını bir argüman olarak alır. İki farklı argümanı kabul ederek baytları kaydedemem, çünkü cevabım diğer ES6 cevabına eriyebilir :(

R, 26 bayt

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

x dizgedir, y harftir, grepl çağrısındaki T harfin büyük / küçük harf duyarsız olmasını sağlar.

Jolf, 6 7 bayt

Yani. Birçok. Altı. SMS? Eh, burada deneyin yine. Değiştir ⌂ile \x7f.

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

Ruby, 17 bayt

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

Toplu iş, 53 bayt

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

Girişi iki komut satırı argümanı olarak kabul eder. (Gerekirse ikinci argümanı alıntılayın.) İlk argümanın (duyarsız şekilde) ikincisinde bulunması durumunda hiçbir şey olmaz.

Mathematica, 33 32 bayt

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

## kullanılabildiğinde seviyorum. Giriş string, ardından char.

Veya büyük / küçük harfe duyarlı bir sürüm: (11 bayt :)

StringFreeQ

Evet, sadece bir yerleşik.