A tarefa

Nesse desafio, sua tarefa é escrever um programa ou função que recebe uma String e gera um valor de verdade ou falsey com base em se o primeiro caractere e o último caractere da String de entrada são iguais.

Entrada

Você pode receber sugestões de qualquer maneira razoável. No entanto, supondo que a entrada esteja presente em uma variável predefinida não é permitido. É permitida a leitura de um arquivo, console, linha de comando, campo de entrada etc. ou a entrada como argumento de função.

Saída

Você pode produzir em qualquer formato razoável, exceto para atribuir o resultado a uma variável. A gravação em um arquivo, console, linha de comando, caixa modal, returninstruções de função etc. é permitida.

Regras adicionais

• A entrada também pode ser String vazia, para a qual você deve retornar um valor falsey.

• As seqüências de entrada de caractere único devem ter um resultado verdadeiro.

• Seu programa deve fazer distinção entre maiúsculas e minúsculas. helloHdeve gerar um valor de falsey.

• Você pode ter apenas um único valor Truthy e um único valor Falsey. Por exemplo, a saída falsepara uma String de entrada e 0para outra String de entrada como valores Falsey não é permitida.

• As brechas padrão não são permitidas.

Casos de teste

Input    ->    Output

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

Isso é código-golfe , então o código mais curto em bytes vence!

Gelatina , 3 bytes

=ṚḢ

Experimente online!

Python 3 , 23 bytes

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

A saída é via código de saída, então 0 (sucesso) é verdadeiro e 1 (falha) é falso. Se isso for aceitável, um byte pode ser salvo.

Experimente online!

Como funciona

Primeiro, se s for uma string vazia, s[0]irá gerar um IndexError , causando falha no programa.

Para s não vazios , se o primeiro e o último caracteres forem iguais, s[0]!=s[-1]serão avaliados como Falso , para que o programa saia limpa e imediatamente.

Por fim, se os caracteres forem diferentes, ele s[0]!=s[-1]será avaliado como True , fazendo com que o compairson s[-1]<eseja executado. Como e é indefinido, isso gera uma NameError .

Se a compatibilidade com o Python 2 não for desejada,

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

também funciona, pois comparar uma string com um número inteiro gera um TypeError .

JavaScript, 19 bytes

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

Mathematica, 15 bytes

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

Toma uma matriz de caracteres. Lança erros quando a entrada está vazia, mas pode ser ignorada.

05AB1E , 4 bytes

S¬Q¤

Experimente online! ou Experimente todos os testes

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

Retina , 13 12 bytes

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

Experimente online! Inclui suíte de teste. Editar: salvou 1 byte graças a @Kobi.

C ++, 39 bytes

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

Programas completos:

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

Experimente online

Braquilog , 4 bytes

h~t?

Experimente online!

Explicação

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

Java, 81 77 bytes

• -4 bytes, obrigado @KevinCruijssen

Experimente on-line

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

• Retorna truese eles são iguais, caso contrário false, falsepara cadeia vazia

Versão da matriz, 60 bytes

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

Python 2 , 26 25 24 bytes

Obrigado a @Dennis por salvar um byte!

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

Experimente online!

brainfuck , 43 bytes

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

Experimente online!

Explicação

O loop principal é [>[->+<<->],]. Após cada iteração, a célula à direita da posição atual é o primeiro byte da string e a célula à esquerda é a diferença entre o caractere manipulado mais recentemente e o primeiro. <[[-]-<]converte o resultado final em -1 se diferente de zero e o restante converte -1 e 0 em 48 e 49 ("0" e "1"), respectivamente.

Haskell , 21 bytes

cpega a Stringe retorna a Bool.

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

Experimente online!

• Se não fosse por cadeias vazias, isso poderia ter sido 16 bytes com c s=s!!0==last s.
• take 1sfornece uma lista que é apenas o primeiro elemento de, a smenos que sesteja vazio; nesse caso, também está vazio.
• last s iria errar uma string vazia, mas a preguiça de Haskell a salvaria: uma string com um único elemento é sempre diferente da string vazia, sem avaliar seu elemento.

MATL, 5 bytes

&=PO)

Experimente no MATL Online!

Explicação

       % 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

No caso, que uma string de entrada vazia deve ser manipulada, algo como o seguinte (8 bytes) funcionaria

&=POwhO)

Essa solução simplesmente anexa 0a à frente da matriz N x N, de modo que, para uma entrada vazia, quando a matriz está 0 x 0, ainda existe uma0 valor que é então capturado por0)

Experimente no MATL Online

Japonês , 6 bytes

tJ ¥Ug

Experimente online!

APL (Dyalog) , 4 bytes

⊃⌽=⊃

Experimente online!

Explicação

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

Aqui está a razão pela qual isso funciona em cadeias vazias. A aplicação ⊃a uma sequência vazia retorna um espaço . Mas a reversão de uma string vazia ainda retorna uma string vazia, portanto, comparar uma string vazia com uma string não vazia (nesse caso ) fornece um vetor numérico vazio. E a aplicação ⊃a um vetor numérico vazio retorna 0. Portanto, a passagem de uma string vazia retorna 0.

Java, 52 43 bytes

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

Para fazê-lo funcionar, alimente isso em uma função como a seguinte que faz um lambda "ir":

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

Ruby, 26 24 bytes

Guardado dois bytes graças a @philomory !

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

Primeiro post no codegolf -))

PHP> = 7.1, 23 bytes

imprime 1 para igual e nada se o caractere for diferente

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

Rápido, 57 bytes

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

C #, 38 bytes 30

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

Guardado 8 bytes graças a @raznagul.

R, 40 bytes

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

Obrigado ao Nitrodon por -2 bytes.

Graças ao MickyT por -8 bytes.

Teste:

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

Saída:

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

Esta é a minha primeira vez, usando> <> e jogando código-golfe, portanto, sugestões úteis serão apreciadas.

O código está em três seções básicas.

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

Planilhas Google, 33 bytes

Recebe entrada da célula [A1]e saídas 1para entrada 0de verdade e para entrada de falsey.

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

Note-se que os parênteses em Exact(eRight( são deixados unclosed como Google Sheets corrige automaticamente este assim que o usuário insere o texto da fórmula e pressionou entrar para deixar essa célula.

Saída

R, 50. 43 41 40. 64

Segunda solução com 41 bytes para uma função que pode ser chamada - graças a @ niczky12 e @Giuseppe - alterada para x = ""

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

Primeiro com 50 bytes, mas não para o desafio

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

Oitava, 16 bytes

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

Ele pega uma string scomo entrada e compara o primeiro s(1)elemento com o último s(end).

Esta poderia ser @(s)s(1)-s(end)se era OK para trocar true/falsea false/true.

GNU grep , 12 bytes

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

Execute no modo estendido ou PCRE.

Não sei se isso é considerado trapaça ou não.

JavaScript, 20 bytes

Adicione f=no início e chame 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>

Explicação

Esta função recebe um argumento _. No corpo da função, _[0]==_.slice(-1)verifica se o primeiro elemento de _(no 0índice th) é igual ao último elemento e retorna o apropriado trueou falsebooleano.

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

Experimente online!

Lisp comum, 83 74 61 58 bytes

Original: 83 bytes

Eu comecei a aprender Common Lisp, então sinto que estou trazendo um taco para um driving range. Deve haver algum tipo de magia de macro recursiva ou manipulação de matriz possível aqui que não estou vendo.

Esta é uma função anônima que aceita uma string como entrada:

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

Pré-especificado:

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

Gostaria de ver uma solução mais lisa!

Revisão 1: 74 bytes

Conseguiu amar essas funções padrão da biblioteca!

Feio:

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

Bonita:

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

Revisão 1.5: 61 bytes

Espaço em branco!

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

Revisão 2: 58 bytes

Feio:

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

Bonita:

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

É tudo por agora! Eu acho que já sou mais inteligente.

AWK, 29 34 bytes

Este pode estar trapaceando um pouco, porque requer chamar o AWK com a opção:

`-F ''`

No GNU Awk, você pode usar os sinônimos de formato longo:

`--field-separator=''`

Então eu adicionei 5 bytes ao total para explicar isso.

Feio:

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

Bonita:

NR == 1
{
    a = $1
}

END
{
    print(a == $NF)
}