Zadanie

W tym wyzwaniu Twoim zadaniem jest napisanie programu lub funkcji, która przyjmuje ciąg znaków i generuje wartość true lub falsey na podstawie tego, czy pierwszy znak i ostatni znak wejściowego ciągu znaków są równe.

Wkład

Możesz brać udział w jakikolwiek rozsądny sposób. Zakładanie obecności danych wejściowych w predefiniowanej zmiennej jest jednak niedozwolone. Dozwolone jest czytanie z pliku, konsoli, wiersza poleceń, pola wprowadzania itp. Lub przyjmowanie danych wejściowych jako argumentu funkcji.

Wydajność

Możesz generować dane w dowolnym rozsądnym formacie, z wyjątkiem przypisania wyniku do zmiennej. Zapis do pliku, konsoli, wiersza poleceń, pola modalnego, returninstrukcji funkcji itp. Jest dozwolony.

Dodatkowe zasady

• Wejście może być również pustym ciągiem, dla którego powinieneś zwrócić wartość falsey.

• Ciągi wejściowe pojedynczego znaku powinny mieć prawdziwy wynik.

• W twoim programie rozróżniana jest wielkość liter. helloHpowinien generować wartość falsey.

• Możesz mieć tylko jedną wartość Prawdy i jedną wartość Falsey. Na przykład wyprowadzanie falsedla ciągu wejściowego i 0dla innego ciągu wejściowego jako wartości Falsey jest niedozwolone.

• Standardowe luki są niedozwolone.

Przypadki testowe

Input    ->    Output

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

To jest golf golfowy , więc wygrywa najkrótszy kod w bajtach!

Galaretka , 3 bajty

=ṚḢ

Wypróbuj online!

Python 3 , 23 bajty

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

Wyjście odbywa się za pomocą kodu wyjścia, więc 0 (sukces) jest prawdą, a 1 (niepowodzenie) jest fałszem. Jeśli to jest do zaakceptowania, bajt może być zbawiony.

Wypróbuj online!

Jak to działa

Przede wszystkim, jeśli s jest pustym łańcuchem, s[0]wywoła błąd IndexError , powodując awarię programu.

Dla niepustych s , jeśli pierwsze i ostatnie znaki są równe, s[0]!=s[-1]oceni się fałsz , więc wyjść programowych czysto i natychmiast.

Wreszcie, jeśli postacie są różne, s[0]!=s[-1]przejdzie w wartość Prawda , co spowoduje s[-1]<ewykonanie porównania. Ponieważ e jest niezdefiniowany, wywołuje to błąd NameError .

Jeśli zgodność wsteczna z Python 2 nie jest pożądana,

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

działa również, ponieważ porównywanie łańcucha z liczbą całkowitą wywołuje błąd TypeError .

JavaScript, 19 bajtów

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

Mathematica, 15 bajtów

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

Zajmuje tablicę znaków. Zgłasza błędy, gdy dane wejściowe są puste, ale można je zignorować.

05AB1E , 4 bajty

S¬Q¤

Wypróbuj online! lub Wypróbuj wszystkie testy

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

Siatkówka , 13 12 bajtów

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

Wypróbuj online! Obejmuje pakiet testowy. Edycja: Zapisano 1 bajt dzięki @Kobi.

C ++, 39 bajtów

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

Pełne programy:

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

Wypróbuj online

Brachylog , 4 bajty

h~t?

Wypróbuj online!

Wyjaśnienie

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

Java, 81 77 bajtów

• -4 bajty, dzięki @KevinCruijssen

Wypróbuj online

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

• Zwraca truejeśli są równe, w przeciwnym razie false, falsena pusty ciąg

Wersja tablicy, 60 bajtów

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

Python 2 , 26 25 24 bajtów

Dzięki @Dennis za uratowanie bajtu!

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

Wypróbuj online!

pieprzenie mózgu , 43 bajty

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

Wypróbuj online!

Wyjaśnienie

Główna pętla to [>[->+<<->],]. Po każdej iteracji komórka po prawej stronie bieżącej pozycji jest pierwszym bajtem ciągu, a komórka po lewej stronie stanowi różnicę między ostatnio obsługiwanym znakiem a pierwszym. <[[-]-<]konwertuje wynik końcowy na -1, jeśli niezerowy, a reszta konwertuje -1 i 0 na 48 i 49 (odpowiednio „0” i „1”).

Haskell , 21 bajtów

cbierze a Stringi zwraca a Bool.

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

Wypróbuj online!

• Gdyby nie puste ciągi, mogłoby to być 16 bajtów c s=s!!0==last s.
• take 1sdaje listę, która jest tylko pierwszym elementem, schyba żes jest pusty, w którym to przypadku jest również pusty.
• last s popełni błąd na pustym łańcuchu, ale lenistwo Haskella ratuje go: Łańcuch z jednym elementem zawsze różni się od pustego łańcucha, bez oceny jego elementu.

MATL, 5 bajtów

&=PO)

Wypróbuj w MATL Online!

Wyjaśnienie

       % 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

W przypadku, gdy trzeba obsłużyć pusty ciąg wejściowy, działałoby coś takiego jak następujące (8 bajtów)

&=POwhO)

To rozwiązanie po prostu przesuwa 0na przód macierzy N x N, tak że dla pustego wejścia, gdy macierz jest 0 x 0, wciąż istnieje 0wartość, która jest następnie przechwytywana przez0)

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

Revision 1.5: 61 bytes

Whitespace!

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

Revision 2: 58 bytes

Ugly:

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

Pretty:

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

That's all for now! I think I'm smarter already.

AWK, 29 34 bytes

This one might be cheating slightly, because it requires invoking AWK with the option:

`-F ''`

In GNU Awk you can use the long-form synonyms:

`--field-separator=''`

So I added 5 bytes to the total to account for this.

Ugly:

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

Pretty:

NR == 1
{
    a = $1
}

END
{
    print(a == $NF)
}