Görev

Bu zorlu görevde, bir Dize alan ve Dize girişinin ilk karakterinin ve son karakterinin eşit olup olmadığına bağlı olarak bir truthy veya falsey değeri veren bir program veya işlev yazmaktır.

Giriş

Herhangi bir şekilde makul bir şekilde girdi alabilirsiniz. Ancak, girişin önceden tanımlanmış bir değişkende bulunduğunu varsayarak buna izin verilmez. Bir dosyadan, konsoldan, komut satırından, giriş alanından vb. Okumak veya bir fonksiyon argümanı olarak giriş almak mümkündür.

Çıktı

Sonucu değişkene atamak dışında herhangi bir makul formatta çıktı alabilirsiniz. Bir dosyaya, konsola, komut satırına, mod kutusuna, işlev returnifadelerine vb. Yazma izni verilir.

Ek Kurallar

• Giriş boş bir String olabilir, bunun için bir falsey değeri döndürmeniz gerekir.

• Tek Karakterli Giriş Dizeleri gerçek bir sonuç vermelidir.

• Programınız büyük / küçük harf duyarlı olmalıdır. helloHbir falsey değeri vermelidir.

• Yalnızca tek bir Truthy değerine ve tek bir Falsey değerine sahip olabilirsiniz. Örneğin, falsebir Giriş Dizesi ve 0Falsey değerleri olarak başka bir girdi Dizesi için çıktı alınmasına izin verilmez.

• Standart boşluklara izin verilmez.

Test Kılıfları

Input    ->    Output

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

Bu kod-golf , yani bayttaki en kısa kod kazanır!

Jöle , 3 bayt

=ṚḢ

Çevrimiçi deneyin!

Python 3 , 23 bayt

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

Çıkış, çıkış koduyla yapılır, bu nedenle 0 (başarı) gerçek ve 1 (başarısızlık) sahtedir. Eğer bu kabul edilebilir, bir bayt kaydedilebilir.

Çevrimiçi deneyin!

Nasıl çalışır

Öncelikle, s boş bir dize ise, programın çalışmamasına neden olan s[0]bir IndexError oluşturacaktır.

Boş olmayan için s ilk ve son karakterler eşitse, s[0]!=s[-1]değerlendirecek Yanlış Program çıkar böylece temiz ve hemen.

Son olarak, eğer karakterler farklıysa, arkadaşın gerçekleştirilmesine neden s[0]!=s[-1]olarak Gerçek olarak değerlendirilir s[-1]<e. Yana e tanımsız, yani bir yükseltir NameError .

Python 2 ile geriye dönük uyumluluk istenmiyorsa,

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

bir dize ile bir tamsayı karşılaştırmak bir TypeError'ı da artırdığı için de çalışır .

JavaScript, 19 bayt

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

Mathematica, 15 bayt

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

Bir dizi karakter alır. Giriş boş olduğunda hataları atar ancak göz ardı edilebilir.

05AB1E , 4 bayt

S¬Q¤

Çevrimiçi deneyin! veya Tüm Testleri Deneyin

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 bayt

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

Çevrimiçi deneyin! Test takımı içerir. Düzenleme: @ Kobi sayesinde 1 bayt kaydedildi.

C ++, 39 bayt

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

Tam programlar:

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

Çevrimiçi deneyin

Brachylog , 4 bayt

h~t?

Çevrimiçi deneyin!

açıklama

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

Java, 81 77 bayt

• -4 bayt, teşekkürler @KevinCruijssen

Çevrimiçi dene

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

• İade trueaksi takdirde, eşitse false, falseboş dize

Dizi Sürümü, 60 bayt

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

Python 2 , 26 25 24 bayt

Bayt tasarrufu için @Dennis teşekkürler !

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

Çevrimiçi deneyin!

brainfuck , 43 bayt

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

Çevrimiçi deneyin!

açıklama

Ana döngü olup [>[->+<<->],]. Her yinelemeden sonra, geçerli konumun sağındaki hücre, dizenin ilk baytıdır ve soldaki hücre, en son işlenen karakter ile ilk arasındaki farktır. <[[-]-<]sıfır olmadığında nihai sonucu -1, geri kalanı sırasıyla -1 ve 0 - 48 ve 49 ("0" ve "1") değerlerine dönüştürür.

Haskell , 21 bayt

ca alır Stringve a döndürür Bool.

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

Çevrimiçi deneyin!

• Boş dizeler için değilse, bu 16 bayt olabilirdi c s=s!!0==last s.
• take 1sboş solmadığı sürece ilk öğe olan bir liste verir s, bu durumda da boş.
• last s boş bir dizgide hata yapardı ama Haskell'in tembelliği onu kurtarıyor: Tek bir öğeye sahip bir dize, öğesini değerlendirmeden her zaman boş dizeden farklıdır.

MATL, 5 bayt

&=PO)

MATL Online'da deneyin !

açıklama

       % 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

Boş bir giriş dizgisinin işlenmesi gerektiği durumda, aşağıdaki gibi bir şey (8 bayt) işe yarayacaktı.

&=POwhO)

Bu çözüm basit bir 0şekilde N x N matrisinin önüne, boş bir giriş için, matris olduğunda 0 x 0, yine de 0tarafından yakalanan bir değer olacak şekilde hazırlar.0)

MATL Online'da deneyin

Japt , 6 bayt

tJ ¥Ug

Çevrimiçi deneyin!

APL (Dyalog) , 4 bayt

⊃⌽=⊃

Çevrimiçi deneyin!

açıklama

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

İşte bunun boş stringler üzerinde çalışmasının sebebi. ⊃Boş bir dizeye başvurmak bir boşluk döndürür . Ancak boş bir dizgiyi tersine çevirmek yine de boş bir dizge döndürür, bu nedenle boş bir dizgiyi boş olmayan bir dizeyle karşılaştırmak (bu durumda ) boş bir sayısal vektör verir. Ve ⊃boş bir sayısal vektöre başvurmak döndürür 0. Dolayısıyla boş bir dize geçirerek döner 0.

Java, 52 43 bayt

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

Çalışmasını sağlamak için, bunu bir lambda "go" yapan aşağıdaki gibi bir fonksiyonla besleyin:

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

Ruby, 26 24 bayt

@Philomory sayesinde iki bayt kaydedildi !

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

Codegolf üzerine ilk gönderi -))

PHP> = 7.1, 23 Bayt

karakter farklıysa 1'i eşit, hiçbir şey için yazdırır

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

Swift, 57 bayt

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

C #, 38 30 bayt

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

@Raznagul sayesinde 8 bayt kaydedildi.

R, 40 bayt

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

-2 baytlık Nitrodon'a teşekkürler.

-8 bayt için MickyT'e teşekkürler.

Ölçek:

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

Çıktı:

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

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

Bu benim ilk kez> <> kullanıp kod golf oynamaktan ibaretti, bu nedenle yararlı önerileriniz memnuniyetle karşılanacaktır.

Kod üç temel bölümden oluşmaktadır.

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 Sayfaları, 33 Bayt

Hücreden giriş alır [A1]ve çıkışları 1truthy girişi ve 0Falsey girişi için.

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

Google Sayfaları, kullanıcının formül metnini girdikten ve bu hücreyi terk etmek için enter tuşuna basar girmez otomatik olarak düzelttiği için parantez içinde olduğu Exact(ve Right(açık bırakıldığı belirtilmektedir .

Çıktı

R ', 50 43 41 40 64

Çalınabilir bir işlev için 41 baytlık ikinci çözüm - @ niczky12 & @Giuseppe sayesinde - x = "" için değiştirildi

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

İlk önce 50 bayt ile fakat meydan okuma için değil

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

Octave, 16 bayt

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

sGirdi olarak bir dize alır ve ilk s(1)elemanı son ile karşılaştırır s(end).

Bu @(s)s(1)-s(end)takas true/falseiçin Tamam olsaydı olabilir false/true.

GNU grep , 12 bayt

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

Genişletilmiş veya PCRE modunda çalıştırın.

Bunun aldatma olarak kabul edilip edilmediğini bilmiyorum.

JavaScript, 20 bayt

f=Başlangıçta ekleyin ve benzeri çağırır f(arg).

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

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

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

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

açıklama

Bu işlev bir argüman alır _. İşlev gövdesinde, _[0]==_.slice(-1)ilk öğenin _( 0dizininde) son öğeye eşit olup olmadığını denetler ve uygun trueveya falseboole değerini döndürür .

SILOS , 81 bayt

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

Çevrimiçi deneyin!

Ortak Lisp, 83 74 61 58 bayt

Orijinal: 83 bayt

Common Lisp'i daha yeni öğrenmeye başladım, bu yüzden sürüş mesafesine bir atıcı getirdiğimi hissediyorum. Burada göremediğim bir tür özyinelemeli makro sihirbazı veya dizi manipülasyonu olmalı.

Bu, bir dizgeyi girişi olarak kabul eden adsız bir işlevdir:

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

Daha kaygan bir çözüm görmek isterdim!

Revizyon 1: 74 bayt

Bu standart kütüphane işlevlerini sevmelisin!

Çirkin:

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

Güzel:

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

Revizyon 1.5: 61 bayt

Beyaz boşluk!

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

2. revizyon: 58 bayt

Çirkin:

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

Güzel:

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

Şimdilik bu kadar! Sanırım zaten daha zekiyim.

AWK, 29 34 bayt

Bu, biraz hile yapıyor olabilir, çünkü AWK seçeneğiyle çağrılmasını gerektirir:

`-F ''`

GNU Awk'ta uzun formlu eşanlamlıları kullanabilirsiniz:

`--field-separator=''`

Ben de bunun için hesaba toplam 5 bayt ekledim.

Çirkin:

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

Güzel:

NR == 1
{
    a = $1
}

END
{
    print(a == $NF)
}