งาน

ในความท้าทายนี้งานของคุณคือการเขียนโปรแกรมหรือฟังก์ชั่นที่ใช้ในสตริงและส่งออกค่าความจริงหรือปลอมแปลงโดยพิจารณาจากตัวอักษรตัวแรกและตัวอักษรสุดท้ายของอินพุตสตริงนั้นเท่ากัน

อินพุต

คุณอาจป้อนข้อมูลด้วยวิธีใด ๆ ที่เหมาะสม อย่างไรก็ตามสมมติว่าอินพุตไม่ได้รับอนุญาตในตัวแปรที่กำหนดไว้ล่วงหน้า สามารถอ่านจากไฟล์คอนโซลบรรทัดคำสั่งฟิลด์อินพุต ฯลฯ หรือรับอินพุตเป็นอาร์กิวเมนต์ฟังก์ชันได้

เอาท์พุต

คุณสามารถส่งออกในรูปแบบที่เหมาะสมยกเว้นการกำหนดผลลัพธ์ให้กับตัวแปร อนุญาตให้เขียนไฟล์คอนโซลบรรทัดคำสั่งกล่องreturnคำสั่งฟังก์ชั่นอื่น ๆ ได้

กฎเพิ่มเติม

• อินพุตสามารถเป็นสตริงว่างได้เช่นกันซึ่งคุณควรส่งคืนค่าเท็จ

• Single-Char Input Strings ควรมีผลลัพธ์ที่เป็นจริง

• โปรแกรมของคุณควรคำนึงถึงตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ helloHควรส่งออกค่าเท็จ

• คุณสามารถมีค่าความจริงเดียวและค่า Falsey เดียว ตัวอย่างเช่นไม่อนุญาตให้ใช้เอาต์พุตfalseสำหรับอินพุตสตริงและ0สำหรับอินพุตสตริงอื่นเนื่องจากค่า Falsey

• ไม่อนุญาตช่องโหว่มาตรฐาน

กรณีทดสอบ

Input    ->    Output

"10h01"        Truthy
"Nothing"      Falsey
"Acccca"       Falsey
"wow!"         Falsey
"wow"          Truthy
"H"            Truthy
""             Falsey

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดในหน่วยไบต์ชนะ!

เยลลี่ 3 ไบต์

=ṚḢ

ลองออนไลน์!

Python 3 , 23 ไบต์

s=input()
s[0]!=s[-1]<e

เอาต์พุตคือรหัสทางออกดังนั้น0 (สำเร็จ) คือความจริงและ1 (ความล้มเหลว) เป็นเท็จ ถ้านี้เป็นที่ยอมรับไบต์สามารถบันทึก

ลองออนไลน์!

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

ก่อนอื่นถ้าsเป็นสตริงว่างs[0]จะเพิ่มIndexErrorทำให้โปรแกรมล้มเหลว

สำหรับผู้ที่ไม่ว่างsถ้าตัวอักษรตัวแรกและครั้งสุดท้ายที่มีค่าเท่ากันs[0]!=s[-1]จะมีการประเมินการเท็จเพื่อให้ออกจากโปรแกรมหมดจดและทันที

สุดท้ายหากตัวละครนั้นแตกต่างกันs[0]!=s[-1]จะประเมินเป็นTrueซึ่งจะทำให้การคำนวณs[-1]<eถูกดำเนินการ ตั้งแต่อีจะไม่ได้กำหนดว่ายกNameError

หากไม่ต้องการความเข้ากันได้ย้อนหลังกับ Python 2

s[0]!=s[-1]<3

ทำงานด้วยเช่นกันเนื่องจากการเปรียบเทียบสตริงที่มีจำนวนเต็มยกTypeError

JavaScript ขนาด 19 ไบต์

a=>a.endsWith(a[0])

Mathematica ขนาด 15 ไบต์

#&@@#===Last@#&

ใช้อาร์เรย์ของตัวอักษร โยนข้อผิดพลาดเมื่ออินพุตว่างเปล่า แต่สามารถละเว้นได้

05AB1E , 4 ไบต์

S¬Q¤

ลองออนไลน์! หรือลองทดสอบทั้งหมด

S    # Split the input into individual characters
 ¬   # Get the first character
  Q  # Check all characters for equality to the first
   ¤ # Get the last value i.e. head == tail

เรติน่า13 13ไบต์

^(.)(.*\1)?$

ลองออนไลน์! รวมถึงชุดทดสอบ แก้ไข: บันทึกแล้ว 1 ไบต์ขอบคุณ @Kobi

C ++, 39 ไบต์

[](auto s){return s[0]&&s[0]==s.back();}

โปรแกรมเต็มรูปแบบ:

#include <string>
#include <iostream>

using namespace std;

int main()
{
    string t = "";
    auto f = [](auto s){return s[0]&&s[0]==s.back();};
    cout << f(t);
}

ลองออนไลน์

Brachylogขนาด 4 ไบต์

h~t?

ลองออนไลน์!

คำอธิบาย

h       The head of the Input...
 ~t?    ...is the tail of the Input

Java, 81 77 ไบต์

• -4 ไบต์ขอบคุณ @KevinCruijssen

ลองออนไลน์

boolean f(String s){int l=s.length();return l>0&&s.charAt(l-1)==s.charAt(0);}

• ผลตอบแทนที่trueว่าพวกเขากำลังเท่ากับมิฉะนั้นfalse, falseสำหรับสตริงที่ว่างเปล่า

Array Version ขนาด 60 ไบต์

boolean f(char[]s){int l=s.length;return l>0&&s[0]==s[l-1];}

Python 2 , 26 25 24 ไบต์

ขอบคุณ@Dennis ที่บันทึกไบต์!

lambda x:""<x[:1]==x[-1]

ลองออนไลน์!

brainfuck , 43 ไบต์

+>,[<,[>[->+<<->],]]<[[-]-<]-[----->+<]>--.

ลองออนไลน์!

คำอธิบาย

[>[->+<<->],]วงหลักคือ หลังการวนซ้ำแต่ละครั้งเซลล์ทางด้านขวาของตำแหน่งปัจจุบันคือไบต์แรกของสตริงและเซลล์ทางซ้ายคือความแตกต่างระหว่างอักขระที่จัดการล่าสุดและอักขระแรก <[[-]-<]แปลงผลลัพธ์สุดท้ายเป็น -1 ถ้าไม่ใช่ศูนย์และส่วนที่เหลือจะแปลง -1 และ 0 ถึง 48 และ 49 ("0" และ "1") ตามลำดับ

Haskell , 21 ไบต์

cใช้เวลาและผลตอบแทนStringBool

c s=take 1s==[last s]

ลองออนไลน์!

• ถ้าไม่ได้สำหรับสตริงว่างส่วนนี้จะได้รับ 16 c s=s!!0==last sไบต์ด้วย
• take 1sให้รายการที่เป็นเพียงองค์ประกอบแรกของsเว้นเสีย แต่sว่างเปล่าซึ่งในกรณีนั้นจะว่างเปล่าด้วย
• last s จะเกิดข้อผิดพลาดในสตริงว่าง แต่ความเกียจคร้านของ Haskell บันทึกไว้: สตริงที่มีองค์ประกอบเดียวมักจะแตกต่างจากสตริงว่างเสมอโดยไม่ต้องประเมินองค์ประกอบ

MATL, 5 ไบต์

&=PO)

ลองที่MATL Online!

คำอธิบาย

       % Implicitly grab input as a string (of length N)
&=     % Perform an element-wise equality check yielding an N x N matrix
P      % Flip this matrix up-down
O)     % Get the last value in the matrix (column-major ordering)
       % Implicitly display the result

ในกรณีที่ต้องจัดการสตริงอินพุตว่างจากนั้นบางอย่างเช่น 8 ไบต์ต่อไปนี้จะใช้ได้

&=POwhO)

วิธีการแก้ปัญหานี้เป็นการเตรียม a 0ไปที่ด้านหน้าของเมทริกซ์ N x N เช่นนั้นสำหรับการป้อนข้อมูลที่ว่างเปล่าเมื่อเมทริกซ์คือ0 x 0ยังคงมี0ค่าที่ถูกจับแล้วโดย0)

ลองใช้ที่MATL Online

Japt , 6 ไบต์

tJ ¥Ug

ลองออนไลน์!

APL (Dyalog) 4 ไบต์

⊃⌽=⊃

ลองออนไลน์!

คำอธิบาย

  =                     Compare
   ⊃                    The first element of the right argument with
 ⌽                      The right argument reversed
                        This will return an array of the length of the reversed argument. Each element in the resulting array will be either 0 or 1 depending on whether the element at that position of the reversed argument equals the first element of the original right argument
                        So with argument 'abcda', we compare 'a' with each character in 'adcba' which results in the array 1 0 0 0 1
⊃                       From this result, pick the first element.

นี่คือเหตุผลที่ทำงานกับสตริงที่ว่างเปล่า การประยุกต์ใช้เป็นสตริงว่างส่งกลับพื้นที่⊃ แต่การย้อนกลับสตริงว่างยังคงส่งคืนสตริงว่างดังนั้นการเปรียบเทียบสตริงว่างกับสตริงที่ไม่ว่างเปล่า (ในกรณีนี้) ให้เวกเตอร์ตัวเลขที่ว่างเปล่า และการประยุกต์ใช้เพื่อผลตอบแทนที่ว่างเปล่าเวกเตอร์ตัวเลข⊃ ดังนั้นการส่งผ่านผลตอบแทนสตริงที่ว่างเปล่า00

Java, 52 43 ไบต์

s->!s.isEmpty()&&s.endsWith(""+s.charAt(0))

ในการทำให้มันใช้งานได้ให้ป้อนสิ่งนี้ลงในฟังก์ชันเช่นต่อไปนี้ที่ทำให้แลมบ์ดา "ไป":

private static boolean f(Function<String, Boolean> func, String value) {
  return func.apply(value);
}

Ruby, 26 24 ไบต์

บันทึกสองไบต์ด้วย@philomory !

->e{!!e[0]>0&&e[0]==e[-1]}

โพสต์แรกใน codegolf -))

PHP> = 7.1, 23 ไบต์

พิมพ์ 1 เพื่อเท่ากันและไม่มีอะไรถ้าตัวละครที่แตกต่างกัน

<?=$argn[0]==$argn[-1];

Swift, 57 ไบต์

var s=readLine()!,a=Array(s.characters);a[0]==a.last ?1:0

C #, 38 30 ไบต์

s=>s!=""&&s[0]==s[s.Length-1];

บันทึกแล้ว 8 ไบต์ขอบคุณ @raznagul

R, 40 ไบต์

function(x)x>""&&rev(y<-charToRaw(x))==y

ขอบคุณ Nitrodon สำหรับ -2 ไบต์

ขอบคุณ MickyT สำหรับ -8 ไบต์

ทดสอบ:

f=function(x)x>""&&rev(y<-charToRaw(x))==y
test <- c("10h01", "Nothing", "Acccca", "wow!", "wow", "H", "")
sapply(test, f)
all(sapply(test, f) == c(T, F, F, F, T, T, F))

เอาท์พุท:

> f=function(x)x>""&&rev(y<-charToRaw(x))==y
> test <- c("10h01", "Nothing", "Acccca", "wow!", "wow", "H", "")
> sapply(test, f)
  10h01 Nothing  Acccca    wow!     wow       H         
   TRUE   FALSE   FALSE   FALSE    TRUE    TRUE   FALSE 
> all(sapply(test, f) == c(T, F, F, F, T, T, F))
[1] TRUE

> <> , 39 33 ไบต์

 2i&01. >~&-?v1v
  i:1+?!^01. >0>n;

นี่เป็นครั้งแรกของฉันทั้งที่ใช้> <> และเล่นกอล์ฟรหัสดังนั้นคำแนะนำที่เป็นประโยชน์จะได้รับการชื่นชม

รหัสอยู่ในสามส่วนพื้นฐาน

2i&01. Pushes an arbitrary number (2 in this case, this causes an empty string to print 0) onto the stack and puts the input's first character in the register.

>i:1+?!^01. Main loop. Pushes the next character onto the stack. If the string has been read completely, then go to the last section

>~&-?v1v
     >0>n;  Compare the first and last characters. Print 1 if they're the same, 0 if not

Google ชีต 33 ไบต์

ใช้อินพุตจากเซลล์[A1]และเอาต์พุต1สำหรับอินพุตที่เป็นความจริงและ0สำหรับอินพุตที่เป็นเท็จ

=(A1<>"")*Exact(Left(A1),Right(A1

มันเป็นข้อสังเกตว่า parentheticals ในExact(และRight(ถูกปล่อยให้ไม่มีการเปิดเผยเนื่องจาก Google ชีตแก้ไขโดยอัตโนมัติทันทีที่ผู้ใช้ป้อนข้อความสูตรและกด enter เพื่อออกจากเซลล์นั้น

เอาท์พุต

R, 50 43 41 40 64

โซลูชันที่สองที่มีขนาด 41 ไบต์สำหรับฟังก์ชัน callable - ขอบคุณ @ niczky12 & @Giuseppe - แก้ไขเพิ่มเติมสำหรับ x = ""

r=function(x,y=utf8ToInt(x))ifelse(x=="","FALSE",(y==rev(y))[1])

ครั้งแรกกับ 50 ไบต์ แต่ไม่ใช่สำหรับความท้าทาย

function(x){charToRaw(x)[1]==rev(charToRaw(x))[1]}

อ็อกเทฟ 16 ไบต์

@(s)s(1)==s(end)

มันจะใช้สตริงsเป็นอินพุตและเปรียบเทียบs(1)องค์ประกอบแรกกับที่ผ่านs(end)มา

นี่อาจเป็นไปได้@(s)s(1)-s(end)ถ้าการสลับtrue/falseไปfalse/trueใช้

greu GNUขนาด 12 ไบต์

^(.)(.*\1)?$

ทำงานในโหมด Extended หรือ PCRE

ฉันไม่รู้ว่านี่เป็นการโกงหรือไม่

JavaScript ขนาด 20 ไบต์

เพิ่ม f=f(arg)ที่จุดเริ่มต้นและเรียกเช่น

_=>_[0]==_.slice(-1)

f=_=>_[0]==_.slice(-1)

i.oninput = e => o.innerHTML = f(i.value);

<input id=i><pre id=o></pre>

คำอธิบาย

_ฟังก์ชั่นนี้จะใช้เวลาในการโต้แย้ง ในฟังก์ชั่นร่างกาย_[0]==_.slice(-1)ตรวจสอบว่าองค์ประกอบแรกของ_(ที่0ดัชนี th) เท่ากับองค์ประกอบสุดท้ายของมันและส่งกลับค่าที่เหมาะสมtrueหรือfalseบูลีน

SILOS , 81 ไบต์

loadLine
a=256
c=get a
lblb
t=s
s=get a
a+1
if s b
t-c
if t d
i+1
lbld
printInt i

ลองออนไลน์!

เสียงกระเพื่อมสามัญ83 74 61 58 ไบต์

เดิม: 83 ไบต์

ฉันเพิ่งเริ่มเรียนรู้ Common LISP ดังนั้นฉันรู้สึกว่าฉันกำลังนำพัตเตอร์ไปที่สนามฝึกซ้อม ต้องมีตัวช่วยสร้างแมโครแบบเรียกซ้ำหรือการจัดการอาเรย์เป็นไปได้ที่นี่ที่ฉันไม่เห็น

นี่เป็นฟังก์ชั่นนิรนามที่ยอมรับสตริงเป็นอินพุต:

(lambda (s) (let ((n (- (length s) 1))) (when (> n 0) (eq (char s 0) (char s n)))))

prettified:

(lambda (s)
  (let ((n (- (length s) 1)))
    (when (> n 0)
      (eq (char s 0)
          (char s n)))))

ชอบที่จะเห็นวิธีการสั่นไหว!

รุ่นที่ 1: 74 ไบต์

ต้องรักฟังก์ชั่นห้องสมุดมาตรฐานเหล่านั้น!

น่าเกลียด:

(lambda (s) (when (> (length s) 0) (eq (elt s 0) (elt (reverse s) 0))))

น่ารัก:

(lambda (s)
  (when (> (length s) 0)
    (eq (elt s 0)
        (elt (reverse s) 0))))

รุ่นที่ 1.5: 61 ไบต์

ช่องว่าง!

(lambda(s)(when(>(length s)0)(eq(elt s 0)(elt(reverse s)0))))

รุ่นที่ 2: 58 ไบต์

น่าเกลียด:

(lambda(s)(and(>(length s)0)(not(mismatch s(reverse s)))))

น่ารัก:

(lambda (s)
  (and (> (length s) 0)
       (not (mismatch s (reverse s)))))

นั่นคือทั้งหมดที่สำหรับตอนนี้! ฉันคิดว่าฉันฉลาดขึ้นแล้ว

AWK, 29 34 ไบต์

อันนี้อาจจะโกงนิดหน่อยเพราะมันต้องมีการเรียกใช้ AWK ด้วยตัวเลือก:

`-F ''`

ใน GNU Awk คุณสามารถใช้คำพ้องความยาวแบบ:

`--field-separator=''`

ดังนั้นฉันจึงเพิ่ม 5 ไบต์ไปยังผลรวมเพื่อการนี้

น่าเกลียด:

NR==1{a=$1}END{print(a==$NF)}

น่ารัก:

NR == 1
{
    a = $1
}

END
{
    print(a == $NF)
}