lipogram เป็นบล็อกของคำที่ไม่ใช้สัญลักษณ์ใด ๆ ตอนนี้ฉันกำลังหลีกเลี่ยงสัญลักษณ์ที่ห้าของเราที่ 26 ที่ปรากฏโดยทั่วไป คุณควรรู้ในสิ่งที่ฉันไม่สนใจ ถ้าไม่ค้นหา "lipogram" แล้วคุณจะรู้

งานของคุณ

ด้วยอักขระถ่านเปล่าและสตริงต่อไปนี้ (ช่องว่างอาจปรากฏขึ้นในนี้มีเพียง ASCII 32-126 ตัวอักษร) ในการป้อนข้อมูลการส่งออกเท็จถ้าถ่านนี้อยู่ในสายการป้อนข้อมูลความจริงถ้าไม่ ถ่านนี้ที่คุณต้องมองหามักจะมีสองช่วง: "A" ถึง "Z" หรือ "a" ถึง "z" (ASCII 65-90, 97-122) อย่าแยกความแตกต่างระหว่างตัวพิมพ์ใหญ่และตัวพิมพ์ใหญ่ นอกจากนี้ไม่ต้องกังวลเกี่ยวกับช่องว่างหรือสัญลักษณ์เครื่องหมายวรรคตอน ทั้งโปรแกรมและฟังก์ชั่นตอบสนอง นอกจากนี้คุณสามารถแยกอินพุต char และ string ออกเป็นสอง args สำหรับโปรแกรมหรือฟังก์ชั่นและ string ที่ arg แรกไม่เป็นไร

ภาพประกอบ

Truthy

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.

เวอร์ชันที่ไม่ใช่ lipogrammed

lipogram เป็นชุดของคำที่แยกออกจากตัวอักษร ฉันทิ้งตัวอักษร "e" ไว้ด้านบน

งานของคุณคือการใช้ตัวอักษรและสตริง (ซึ่งอาจรวมถึงช่องว่าง) เป็นอินพุตคั่นด้วยช่องว่างหรือบรรทัดใหม่และผลลัพธ์ที่ผิดถ้าอักขระอยู่ในสตริงและความจริงเป็นอย่างอื่น คุณอาจคิดว่าสตริงนั้นประกอบด้วยอักขระ ASCII ที่พิมพ์ได้เท่านั้น (รหัส char 32-126) ตัวละครจะเป็นตัวอักษรภาษาอังกฤษเสมอและไม่มีความแตกต่างระหว่างตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ ตัวละครจะไม่เว้นวรรคหรือเป็นสัญลักษณ์ คุณสามารถเขียนโปรแกรมหรือฟังก์ชั่น คุณอาจใช้อักขระและสตริงเป็นอาร์กิวเมนต์แยกกันและสตริงอาจมาก่อน

C, 42 ไบต์

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

Javascript ES6 34 26 23 ไบต์

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

ขอบคุณ 8 ไบต์ที่โกนแล้ว @ MartinBüttner

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"

ลองออนไลน์!

ความจริงก็คือเมื่อตัวอักษรปัจจุบันจะถูกส่งออก Falsy คือเมื่อไม่มีสิ่งใดแสดงผล

TeaScript, 5 3 ไบต์

AµN

อ๊ะ! ฉันลืมเกี่ยวกับการป้อนข้อมูลโดยนัย! TeaScript จะแทรกโดยอัตโนมัติx.(อินพุต) ที่จุดเริ่มต้น ฉันสามารถตรวจสอบว่ามันมีอินพุตอื่น ๆ (ในตัวแปรµ) และดังนั้นไม่ ( N) ฉันเดาว่าข้อดีที่ดีที่สุดของ TeaScript ที่นี่คือการป้อนข้อมูลโดยนัย

ลองออนไลน์

คำอธิบาย

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

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

Bash, 16 11 ไบต์

grep -iv $1

-iเป็นแฟ-vล็กตัวพิมพ์เล็กและตัวพิมพ์ใหญ่กลับด้าน(ตรวจสอบการไม่ตรงกัน)

ต้องระบุอักขระเป็นอาร์กิวเมนต์บรรทัดคำสั่งและสตริงการทดสอบบน STDIN

ลดลง 5 ไบต์ด้วยความช่วยเหลือของ@ DigitalTrauma !

ตัวอย่างการวิ่ง:

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

ทดสอบออนไลน์!

คำตอบ TeaScript ของ @ Downgoat ทำให้ฉันนึกถึงว่า Japt นั้นมีอยู่ในตัวเดียวกันโดยตัดสองไบต์สุดท้ายออกไป

มันทำงานอย่างไร

       // 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(&!

ลองออนไลน์! 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.

JavaScript (ES6), 29 ไบต์

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

Python 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

Perl, 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

Java, 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)

Julia 0.3, 22 20 ไบต์

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

uppercaseเป็นคำที่ยาว

มันทำงานอย่างไร

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ประกอบการและก็เอาท์พุทหรือTrueFalse

Python ขนาด 34 ไบต์

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

ตรวจสอบหาตัวละครที่cอยู่ในสตริงsไม่สนใจกรณีโดยท้ายสำเนากรณีเปลี่ยนของการs sการคัดค้านทำด้วยnotซึ่งดูยาว แต่ฉันดูไม่ดีขึ้น ความยาวเท่ากัน:

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

คุณไม่สามารถละเว้น parens _ in _ < _หรืออื่นหลามจะตีความการแสดงออกเป็นล่ามโซ่ความไม่เท่าเทียมกันสามค่าของรูปแบบ

Python 3.5 ควรอนุญาตให้ 33 ไบต์ผ่านการแปลงชุด แต่ฉันไม่สามารถทดสอบได้ตอนนี้

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

Pyke ขนาด 7 ไบต์

Dl3+R{!

คำอธิบาย:

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

JavaScript ES6, 41 40 ไบต์

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

รับค่าสตริงทั้งหมดเป็นอาร์กิวเมนต์ ฉันไม่สามารถบันทึกไบต์ด้วยการยอมรับข้อโต้แย้งที่แตกต่างกันสองข้อเพราะคำตอบของฉันจะละลายลงในคำตอบ ES6 อื่น ๆ :(

R, 26 ไบต์

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

x คือสตริง y คือตัวอักษร T ในการเรียกไปยัง grepl ทำให้ตัวพิมพ์เล็กและตัวพิมพ์เล็ก

Jolf, 6 7 ไบต์

ดังนั้น. จำนวนมาก แตก ข้อความ? ดีลองนี่กระนั้น แทนที่ด้วย⌂\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]&

ฉันชอบเมื่อสามารถใช้ ## อินพุตคือสตริงจากนั้นอักขระ

หรือรุ่นที่เล็กและใหญ่: (11 ไบต์ :)

StringFreeQ

ใช่เพียงแค่ในตัว