Задание

В этой задаче ваша задача состоит в том, чтобы написать программу или функцию, которая принимает строку и выводит истинное или ошибочное значение в зависимости от того, равны ли первый символ и последний символ входной строки.

вход

Вы можете принять участие любым разумным способом. Однако предполагать, что входные данные присутствуют в предопределенной переменной, не разрешено. Допускается чтение из файла, консоли, командной строки, поля ввода и т. Д. Или использование ввода в качестве аргумента функции.

Выход

Вы можете выводить данные в любом приемлемом формате, кроме присвоения результата переменной. Запись в файл, консоль, командную строку, модальное поле, returnоператоры функций и т. Д. Разрешена.

Дополнительные правила

• Ввод также может быть пустой строкой, для которой вы должны вернуть значение Falsey.

• Строки ввода с одним символом должны иметь достоверный результат.

• Ваша программа должна быть чувствительной к регистру. helloHдолжен вывести значение фальси.

• Вы можете иметь только одно значение Truthy и одно значение 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]будет иметь значение False , поэтому программа завершается чисто и сразу.

Наконец, если символы различаются, s[0]!=s[-1]будет установлено значение True , что приведет s[-1]<eк выполнению сравнения . Так как 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 12 байт

^(.)(.*\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);
}

Попробуйте онлайн

Брахилог , 4 байта

h~t?

Попробуйте онлайн!

объяснение

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

Ява, 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для пустой строки

Версия массива, 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]

Попробуйте онлайн!

брейкфук , 43 байта

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

Попробуйте онлайн!

объяснение

Основной цикл есть [>[->+<<->],]. После каждой итерации ячейка справа от текущей позиции является первым байтом строки, а ячейка слева - разницей между последним обработанным символом и первым. <[[-]-<]преобразует конечный результат в -1, если он не равен нулю, а остальные преобразуют -1 и 0 в 48 и 49 («0» и «1» соответственно).

Haskell , 21 байт

cпринимает Stringи возвращает Bool.

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

Попробуйте онлайн!

• Если бы не пустые строки, это могло бы быть 16 байтов с c s=s!!0==last s.
• take 1sдает список, который является только первым элементом, sесли не sявляется пустым, в этом случае это также пустой.
• last s выдает ошибку в пустой строке, но лень Хаскелла сохраняет ее: строка с одним элементом всегда отличается от пустой строки без оценки ее элемента.

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 (Дьялог) , 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.

Вот причина, по которой это работает на пустых строках. Применение ⊃к пустой строке возвращает пробел . Но обращение пустой строки по-прежнему возвращает пустую строку, поэтому сравнение пустой строки с непустой строкой (в данном случае ) дает пустой числовой вектор. И применение ⊃к пустому числовому вектору возвращает 0. Следовательно, передача пустой строки возвращает 0.

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

Рубин, 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

Спасибо Нитродону за -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 Sheets, 33 байта

Принимает входные данные от ячейки [A1]и выходные данные 1для правдивого ввода и 0для фальсификации

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

Следует отметить, что круглые скобки в Exact(и Right(остаются незакрытыми, поскольку Google Sheets автоматически исправляет это, как только пользователь вводит текст формулы и нажимает клавишу ввода, чтобы покинуть эту ячейку.

Выход

Р, 50 43 41 40 64

Второе решение с 41 байтом для вызываемой функции - благодаря @ 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.

GNU grep , 12 байт

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

Запустите в расширенном или 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

Попробуйте онлайн!

Common Lisp, 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)))))

Хотелось бы увидеть решение Slicker!

Редакция 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)
}