Nhiệm vụ

Trong thử thách này, nhiệm vụ của bạn là viết một chương trình hoặc hàm có trong Chuỗi và đưa ra giá trị trung thực hoặc falsey dựa trên việc ký tự đầu tiên và ký tự cuối cùng của Chuỗi đầu vào có bằng nhau hay không.

Đầu vào

Bạn có thể lấy đầu vào theo bất kỳ cách hợp lý. Tuy nhiên, giả sử rằng đầu vào có mặt trong một biến được xác định trước là không được phép. Đọc từ tệp, bàn điều khiển, dòng lệnh, trường đầu vào, v.v. hoặc lấy đầu vào làm đối số chức năng được cho phép.

Đầu ra

Bạn có thể xuất ra ở bất kỳ định dạng hợp lý nào, ngoại trừ việc gán kết quả cho một biến. Viết vào một tập tin, bàn điều khiển, dòng lệnh, hộp phương thức, returncâu lệnh hàm, vv được cho phép.

Quy tắc bổ sung

• Đầu vào cũng có thể là Chuỗi rỗng, do đó bạn sẽ trả về giá trị falsey.

• Chuỗi đầu vào Char đơn nên có kết quả trung thực.

• Chương trình của bạn nên phân biệt chữ hoa chữ thường. helloHnên xuất ra một giá trị falsey.

• Bạn chỉ có thể có một giá trị Truthy duy nhất và một giá trị Falsey duy nhất. Ví dụ: đầu ra falsecho Chuỗi đầu vào và 0cho Chuỗi đầu vào khác vì giá trị Falsey không được phép.

• Sơ hở tiêu chuẩn không được phép.

Các trường hợp thử nghiệm

Input    ->    Output

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

Đây là mã golf , vì vậy mã ngắn nhất tính bằng byte sẽ thắng!

Thạch , 3 byte

=ṚḢ

Hãy thử trực tuyến!

Python 3 , 23 byte

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

Đầu ra là thông qua mã thoát, vì vậy 0 (thành công) là trung thực và 1 (thất bại) là sai. Nếu điều này được chấp nhận, một byte có thể được lưu.

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

Trước hết, nếu s là một chuỗi rỗng, s[0]sẽ tăng IndexError , khiến chương trình bị lỗi.

Đối với s không trống , nếu các ký tự đầu tiên và cuối cùng bằng nhau, s[0]!=s[-1]sẽ đánh giá thành Sai , vì vậy chương trình sẽ thoát một cách sạch sẽ và ngay lập tức.

Cuối cùng, nếu các ký tự khác nhau, s[0]!=s[-1]sẽ đánh giá thành True , khiến cho phần kết s[-1]<ehợp được thực hiện. Vì e không được xác định, điều đó làm tăng NameError .

Nếu không mong muốn tương thích ngược với Python 2,

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

cũng hoạt động, vì so sánh một chuỗi với một số nguyên làm tăng TypeError .

JavaScript, 19 byte

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

Toán học, 15 byte

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

Có một mảng các ký tự. Ném lỗi khi đầu vào trống nhưng có thể bỏ qua.

05AB1E , 4 byte

S¬Q¤

Hãy thử trực tuyến! hoặc thử tất cả các bài kiểm tra

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

Võng mạc , 13 12 byte

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

Hãy thử trực tuyến! Bao gồm bộ thử nghiệm. Chỉnh sửa: Đã lưu 1 byte nhờ @Kobi.

C ++, 39 byte

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

Chương trình đầy đủ:

#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);
}

Dùng thử trực tuyến

Brachylog , 4 byte

h~t?

Hãy thử trực tuyến!

Giải trình

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

Java, 81 77 byte

• -4 byte, cảm ơn @KevinCruijssen

Thử trực tuyến

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

• Trả về truenếu chúng bằng nhau, nếu không false, falsecho chuỗi rỗng

Phiên bản mảng, 60 byte

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

Python 2 , 26 25 24 byte

Cảm ơn @Dennis vì đã tiết kiệm một byte!

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

Hãy thử trực tuyến!

brainfuck, 43 bytes

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

Try it online!

Explanation

The main loop is [>[->+<<->],]. After each iteration, the cell to the right of the current position is the first byte of the string, and the cell to the left is the difference between the most recently handled character and the first. <[[-]-<] converts the final result to -1 if nonzero, and the rest converts -1 and 0 to 48 and 49 ("0" and "1") respectively.

Haskell , 21 byte

cmất a Stringvà trả về a Bool.

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

Hãy thử trực tuyến!

• Nếu không có chuỗi rỗng, thì đây có thể là 16 byte với c s=s!!0==last s.
• take 1sđưa ra một danh sách chỉ là phần tử đầu tiên strừ khi strống, trong trường hợp đó nó cũng trống.
• last s sẽ báo lỗi trên một chuỗi trống, nhưng sự lười biếng của Haskell đã lưu nó: Một chuỗi có một phần tử duy nhất luôn khác với chuỗi trống, mà không đánh giá phần tử của nó.

MATL, 5 byte

&=PO)

Hãy thử nó tại MATL Online!

Giải trình

       % 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

In the case, that an empty input string must be handled, then something like the following (8 bytes) would work

&=POwhO)

This solution simply prepends a 0 to the front of the N x N matrix such that for an empty input, when the matrix is 0 x 0, there's still a 0 value that is then grabbed by 0)

Try it at MATL Online

Japt, 6 bytes

tJ ¥Ug

Try it online!

APL (Dyalog), 4 bytes

⊃⌽=⊃

Try it online!

Explanation

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

Here is the reason this works on empty strings. Applying ⊃ to an empty string returns a space . But reversing an empty string still returns an empty string, so comparing an empty string with a non-empty string (in this case ) gives an empty numerical vector. And applying ⊃ to an empty numerical vector returns 0. Hence passing an empty string returns 0.

Java, 52 43 bytes

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

To make it work, feed this into a function such as the following that makes a lambda "go":

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

Ruby, 26 24 bytes

Saved two bytes thanks to @philomory!

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

First post on codegolf -))

PHP>=7.1, 23 Bytes

prints 1 for equal and nothing if the character is different

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

Swift, 57 bytes

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

C#, 38 30 bytes

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

Saved 8 bytes thanks to @raznagul.

R, 40 bytes

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

Thanks to Nitrodon for -2 bytes.

Thanks to MickyT for -8 bytes.

Test:

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

Output:

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

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

This is my first time both using ><> and playing code golf, so helpful suggestions would be appreciated.

The code is in three basic sections.

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 Sheets, 33 Bytes

Takes input from cell [A1] and outputs 1 for truthy input and 0 for falsey input.

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

It is noted that the parentheticals in Exact( and Right( are left unclosed as Google Sheets automatically corrects this as soon as the user has input the formula text and pressed enter to leave that cell.

Output

R, 50 43 41 40 64

Second solution with 41 bytes for a callable function - thanks to @niczky12 & @Giuseppe - amended for x=""

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

First with 50 bytes but not for the challenge

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

Octave, 16 bytes

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

It takes a string s as input, and compares the first s(1) element with the last s(end).

This could be @(s)s(1)-s(end) if it was OK to swap true/false to false/true.

GNU grep, 12 bytes

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

Run in extended or PCRE mode.

I don't know if this is considered cheating or not.

JavaScript, 20 bytes

Add f= at the beginning and invoke like f(arg).

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

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

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

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

Explanation

This function takes in an argument _. In the function body, _[0]==_.slice(-1) checks whether the first element of _ (at 0th index) equals the last element of it, and returns the appropriate true or false boolean.

S.I.L.O.S, 81 bytes

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

Try it online!

Common Lisp, 83 74 61 58 bytes

Original: 83 bytes

I've just started learning Common Lisp, so I feel like I'm bringing a putter to a driving range. There must be some kind of recursive macro wizardry or array manipulation possible here that I'm not seeing.

This is an anonymous function that accepts a string as its input:

(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)))))

Would love to see a slicker solution!

Revision 1: 74 bytes

Gotta love those standard library functions!

Ugly:

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

Pretty:

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

Bản sửa đổi 1.5: 61 byte

Khoảng trắng!

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

Bản sửa đổi 2: 58 byte

Xấu xí:

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

Đẹp:

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

Đó là tất cả cho bây giờ! Tôi nghĩ rằng tôi đã thông minh hơn rồi.

AWK, 29 34 byte

Điều này có thể là gian lận một chút, bởi vì nó yêu cầu gọi AWK với tùy chọn:

`-F ''`

Trong GNU Awk, bạn có thể sử dụng các từ đồng nghĩa dạng dài:

`--field-separator=''`

Vì vậy, tôi đã thêm 5 byte vào tổng số để giải thích cho việc này.

Xấu xí:

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

Đẹp:

NR == 1
{
    a = $1
}

END
{
    print(a == $NF)
}