palindromeคือสตริงบางอย่างที่จะสะกดทางเดียวกันทั้งต่องแต่ง ตัวอย่างเช่น 'Eva ฉันสามารถแทงค้างคาวในถ้ำได้หรือไม่' คือ palindrome (EVACANISTAB | BATSINACAVE)

สำหรับรหัสกอล์ฟนี้โดยใช้ภาษาที่คุณเลือกกำหนดว่าสตริงที่กำหนดเป็น palindrome หรือไม่

กรณีขอบ:

• เครื่องหมายวรรคตอนจะไม่ถูกนับรวมกับความน่ากลัว
• อักขระควบคุมจะไม่ถูกนับรวมกับความน่ากลัว
• ช่องว่างจะไม่นับรวมกับความมืดมน
• ตัวเลขจะถูกนับรวมกับความน่ากลัว
• กรณีในการท้าทายนี้จะไม่นับรวมกับความน่ากลัว
• ไม่มีการจำกัดความยาวของสตริงที่จะประเมินยกเว้นภาษาที่คุณเลือก
• สำหรับความท้าทายนี้ จำกัด ตัวคุณเองไว้ที่ชุดอักขระ ASCII

ข้อกำหนดทางเทคนิค:

• ร่างกายวิธีการเท่านั้นที่จำเป็น; สิ่งเพิ่มเติมเช่นลายเซ็นวิธีการประกาศโครงสร้างข้อมูล ฯลฯ ไม่นับรวมในข้อกำหนดของชัยชนะ
• รหัสจะต้องรวบรวมหรือตีความโดยไม่มีข้อผิดพลาดในเวลารวบรวมหรือข้อยกเว้น
• รหัสต้องไม่ส่งข้อยกเว้นหรือข้อผิดพลาดที่ไม่สามารถจัดการได้ (เกือบไม่มีความจำเป็นต้องพูดเกือบ)
• รหัสจะต้องส่งกลับค่าบางอย่างที่บ่งบอกถึงความน่ากลัว ประเภทข้อมูลขึ้นอยู่กับภาษาที่คุณใช้ (เช่นผู้ใช้ C # อาจใช้ a boolในขณะที่ผู้ใช้ JavaScript สามารถใช้ a var.)
• คุณไม่สามารถเขียนล่ามของคุณเองที่ทำงานนี้เป็นความสามารถแบบ 'เนทีฟ' เพื่อให้คุณ 'กอล์ฟ' ได้คะแนนที่ใกล้เคียง (หวังว่าไม่จำเป็นต้องพูด)

เงื่อนไขชัยชนะ:

• รหัสที่สั้นที่สุดในตัวละครชนะ

ผู้นำปัจจุบัน: tmartin (k, 25 ตัวอักษร)

... ต้องการคำตอบของคุณใช่ไหม เอาชนะคำตอบของผู้ชายคนนี้!

K, 25

{x~|x:_x@&x in,/.Q`a`A`n}

.

k){x~|x:_x@&x in,/.Q`a`A`n}"Eva, can I stab bats in a cave?"
1b

Perl, 26 อักขระ

s/_|\W//g;uc eq reverse uc

หาค่า 1 เมื่อ$_เป็น palindrome ""(หนึ่งในค่าเท็จของ Perl) เมื่อไม่มี

ตัวอย่างการใช้งาน:

sub palin {
    s/_|\W//g;uc eq reverse uc
}
while (<DATA>) {
    chomp;
    print "$_ => ",palin()?"yes":"no","\n";
}
__DATA__
Eva, can I stab bats in a cave?
A man, a plan, a canal. Panama!
Madam, I'm Adam Corolla.
757
Boeing 757
A man, a plan, a big shovel, a canal. Panama!
A man, a plan, a canoe, pasta, heros, rajahs, a coloratura, maps, snipe, percale, macaroni, a gag, a banana bag, a tan, a tag, a banana bag again (or a camel), a crepe, pins, Spam, a rut, a Rolo, cash, a jar, sore hats, a peon, a canal >> __Panama__

เอาท์พุท:

Eva, can I stab bats in a cave? => yes
A man, a plan, a canal. Panama! => yes
Madam, I'm Adam Corolla. => no
757 => yes
Boeing 757 => no
A man, a plan, a big shovel, a canal. Panama! => no
A man, a plan, a canoe, pasta, heros, rajahs, a coloratura, maps, snipe, percale, macaroni, a gag, a banana bag, a tan, a tag, a banana bag again (or a camel), a crepe, pins, Spam, a rut, a Rolo, cash, a jar, sore hats, a peon, a canal >> __Panama__ => yes

C # 82 เท่านั้น :)

var x=s.ToLower().Where(char.IsLetterOrDigit);return x.SequenceEqual(x.Reverse());

ไม่สามารถต้านทานสิ่งล่อใจในการเขียนโปรแกรมที่ไม่มีแผ่นสำเร็จรูปในภาษาที่ฉันโปรดปราน

มีการทดสอบที่นี่: http://ideone.com/8bwz7z

GolfScript, 36 34 31 30 ตัวอักษร

{0"0:A[a{"@{>^}+/},{32|}%.-1%=

ขั้นตอนวิธีการคล้ายกับก่อนหน้านี้ (Javascript) วิธีการแก้ปัญหาของฉัน

0"0:A[a{"@{>^}+/- เพิ่มประสิทธิภาพโดย Peter Taylor และ Howard "/9@Z"{1$<},,2%\;รุ่นของฉันคือ ฮาวเวิร์ดบริจาคการต่อประสานงานและปีเตอร์เทย์เลอร์บริจาค XOR ให้กับโมดูโล -2 มันเป็นวิธีการทั่วไปในการเปรียบเทียบว่าค่าอยู่ในลำดับของช่วง

{.96>32*-}%(11 ตัวอักษร) ไม่ใช่การปรับปรุงจริง ๆ ของ Javascript .toUpperCase()(14 ตัวอักษร) โดยเฉพาะอย่างยิ่งเนื่องจากมันทำให้เครื่องหมายวรรคตอนแปลก ๆ ที่ตามมาzในตาราง ASCII (ซึ่งไม่สำคัญเท่านี้)

ตามที่แนะนำของ Peter Taylor แต่ถ้าเรากรองตัวอักษรและตัวเลขออกมาก่อนเราสามารถแปลงเป็นตัวพิมพ์เล็กและตัวเลขได้โดยการตั้งค่าหนึ่งบิตในแต่ละอักขระ: {32|}

.-1%=การยกของ Palindromic ทั้งหมดทำได้หรือไม่ ส่วนหนึ่งที่ฉันไม่ชอบจริง ๆ ใช้เวลานานแค่ไหนในการค้นหาวิธีย้อนกลับอาร์เรย์ ฉันควรอ่านเอกสาร อีกสองตัวละครทำการจัดการสแต็คและการเปรียบเทียบ

ทดสอบ: http://golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEIGY2F2ZT8iCgp7IjA6QVtheyJcez59KywsMiV9LHszMnx9U4MS

เพิ่มเติมถ้าฉันสามารถสันนิษฐานได้ว่าไม่มีตัวควบคุมต่อไปนี้ปรากฏอยู่: (Data link escape, การควบคุมอุปกรณ์ 1-4, การตอบรับเชิงลบ, ไม่ได้ใช้งานแบบซิงโครนัส, จุดสิ้นสุดของบล็อกการส่งข้อมูล, ยกเลิก, จุดสิ้นสุดของสื่อ) ทั้งหมดค่อนข้างคลุมเครือ) หรือถ้าฉันสามารถใช้มันเป็นตัวเลขตัวพิมพ์ใหญ่ของตัวเลข 0-9 เราสามารถบันทึกอักขระอีกสองตัวได้:

GolfScript 28 ตัวอักษร

{32|}%{0"0:a{"@{>^}+/},.-1%=

ทดสอบ: http://golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEIGY2F2ZT8iCgp7MzJ8fSV7MCIwOmF7II

Javascript, 53 ตัวอักษร:

(x=x.toLowerCase().match(/[a-z\d]/g))+""==x.reverse()

เป็นนิพจน์ javascript ที่ประเมินว่าเป็นจริงหากxเป็น palindrome เป็นเท็จถ้าไม่ใช่ มันถือว่าxเป็นสตริง หากไม่ได้รับประกันรับประกันว่าจะได้รับการเติมเงินx+="",

นี่คือเกล็ดขนมปัง: เนื่องจากวิธีการreverse()ทำงาน

(x=x.toLowerCase().match(/[a-z\d]/g))==""+x.reverse()

ล้มเหลว อย่างไรก็ตาม

""+(x=x.toLowerCase().match(/[a-z\d]/g))==x.reverse()

ดีอย่างสมบูรณ์แบบ

R: 66

w=grep("[a-z0-9]",strsplit(tolower(s),"")[[1]],v=T);all(w==rev(w))

การใช้งาน:

f=function(s){w=grep("[a-z0-9]",strsplit(tolower(s),"")[[1]],v=T);all(w==rev(w))}

f("Eva, can I stab bats in a cave?")
[1] TRUE

Bash: 52 48 46 ตัวอักษร

s=${1,,};s=${s//[^a-z0-9]};[ $s = `rev<<<$s` ]

สิ่งนี้ใช้การ sting เพื่อตรวจสอบว่าเป็นพารามิเตอร์แรกและตั้งรหัสทางออกเป็น 0 สำหรับ palindrome และ 1 ไม่ใช่

วิ่งตัวอย่าง:

bash-4.2$ p() { s=${1,,};s=${s//[^a-z0-9]};[ $s = `rev<<<$s` ]; }

bash-4.2$ p 'Eva, can I stab bats in a cave?'; echo $?
0

bash-4.2$ p 'A man, a plan, a canal. Panama!'; echo $?
0

bash-4.2$ p "Madam, I'm Adam Corolla."; echo $?
1

bash-4.2$ p '757'; echo $?
0

bash-4.2$ p 'Boeing 757'; echo $?
1

bash-4.2$ p 'A man, a plan, a shovel, a canal. Panama!'; echo $?
1

bash-4.2$ p 'A_man,_a_plan, a_caremer, a canal:_Panama!'; echo $?
0

Python 2: 49 (ไม่นับลายเซ็นวิธีการ)

def f(s):
 s=filter(str.isalnum,s.upper())
 return s==s[::-1]

โปรแกรมที่สมบูรณ์พร้อมอินพุตและเอาต์พุตสามารถเขียนได้ด้วยอักขระ74ตัว

import sys
s=filter(str.isalnum,sys.stdin.read().upper())
print s==s[::-1]

ตัวอย่างการใช้งาน:

$echo 'Eva,can I stab bats in a cave?' | python palindrome.py
True 
$ cat huge_palindrome.txt | python palindrome.py
True
$echo 'Able was I ere i SaW elBa' | python palindrome.py                                                                   
True                                         

( huge_palindrome.txtมีคำศัพท์ 17,826 คำนี้ )

โซลูชันนี้สามารถปรับใช้กับ python 3 โดยเพิ่มอักขระบางตัว:

Python 3: 55

def f(s):
 s=list(filter(str.isalnum,s.upper()))
 return s==s[::-1]

JAVA (หรือภาษาที่ใช้พูดมากที่สุด) 102 96 95 ตัว

s=s.replaceAll("\\W|_","");return s.equalsIgnoreCase(new StringBuffer(s).reverse().toString());

การใช้งาน (ด้วยรหัส ungolfed):

static boolean q(String s) {
    s=s.replaceAll("\\W|_","");
    return s.equalsIgnoreCase(new StringBuffer(s).reverse().toString());
}

public static void main(String[] args) {
    System.out.println(q("'A man, a plan, a canal - Panama!'"));
}

ย่อด้วยความช่วยเหลือของผู้แสดงความคิดเห็นด้านล่าง

Mathematica 54 53

บันทึกหนึ่งไบต์ด้วย CatsAreFluffy:

PalindromeQ@StringCases[ToUpperCase@#,WordCharacter]&

สำหรับผู้ที่มีเวอร์ชัน 10.2 หรือก่อนหน้า:

#==Reverse@#&@StringCases[ToUpperCase@#,WordCharacter]&

ตัวอย่าง

PalindromeQ@StringCases[ToUpperCase@#, WordCharacter]&["Eva,can I stab bats in a cave?"]

จริง

J, 30 ตัวอักษร

*/(=|.)tolower(#~'[^_\W]'rxE])

การใช้งาน:

   */(=|.)tolower(#~'[^_\W]'rxE])'A man, a plan, a canal - Panama!'
1
   */(=|.)tolower(#~'[^_\W]'rxE])'Doc, note: I dissent. A fast never prevents a fatness. I diet on cod'
1

k ( 50 48 45 38 ตัวอักษร)

ไม่แสดงข้อผิดพลาดทั้งหมดคืนค่าเริ่มต้นเป็น0b(false)

{X~|X@:&(X:_:x)in 10h$(48+!10),97+!26}

ตัวอย่าง:

k){X~|X@:&(X:_:x)in 10h$(48+!10),97+!26} "Eva, can I stab bats in a cave?"
1b

แก้ไข: โกนตัวละครอีกสามตัวโดยหลีกเลี่ยงตัวแปรกลาง H / T, CS -7: ไม่จำเป็นต้องระงับข้อผิดพลาด

Ruby: 43 38 ตัวอักษร

s=s.upcase.tr'^A-Z0-9','';s==s.reverse

วิ่งตัวอย่าง:

irb(main):001:0> p=->s{s=s.upcase.tr'^A-Z0-9','';s==s.reverse}
=> #<Proc:0x854592c@(irb):1 (lambda)>

irb(main):002:0> p['Eva, can I stab bats in a cave?']
=> true

irb(main):003:0> p['A man, a plan, a canal. Panama!']
=> true

irb(main):004:0> p["Madam, I'm Adam Corolla."]
=> false

irb(main):005:0> p['757']
=> true

irb(main):006:0> p['Boeing 757']
=> false

irb(main):007:0> p['A man, a plan, a shovel, a canal. Panama!']
=> false

irb(main):009:0> p['A_man,_a_plan, a_caremer, a canal:_Panama!']
=> true

C ++ 107 (miscounted) 100 (ผิดพลาด), 81

string s;for(int c:t)if(isalnum(c))s+=c|32;return s==string(s.rbegin(),s.rend());

• ใช้ประโยชน์จากรูปแบบบิต ASCII
• using namespace std;อาศัยอยู่กับความชั่วร้าย
• ใช้ค่าบิตและและหรือแทนตัวดำเนินการเชิงตรรกะ

• ใช้intเพราะมันสั้นกว่าหรือcharauto

  #include <string>
  using namespace std;
  
  bool IsPalindrome(const string & t) {
  string s;for(int c:t)if(isalnum(c))s+=c|32;return s==string(s.rbegin(),s.rend());
  }
  
  #include <cassert>
  
  int main() {
      assert(!IsPalindrome("gorilla"));  // simple failure
      assert( IsPalindrome("racecar"));  // simple success
      assert( IsPalindrome("Hannah"));   // case blind
      assert(!IsPalindrome("1999"));     // digit failure
      assert( IsPalindrome("2002"));     // digit success
      // Ignore spacing, punctuation, and case:
      assert( IsPalindrome(" \t09AZ/:@[`{za90"));  // boundaries
      assert( IsPalindrome("A man, a plan, a canal: Panama."));
      assert( IsPalindrome("Eva, can I stab bats in a cave?"));
      assert( IsPalindrome(""));  // empty string
      return 0;
  }
  

ลัวะอายุ 56 ปี

a=io.read"*l":lower():gsub("%W","")print(a:reverse()==a)

Python 3/2 59 ตัวอักษร:

def pld(i):
   p=[c for c in i.lower() if c.isalnum()]
   return(p == p[::-1])

Haskell, 43

การใช้ห้องสมุดมาตรฐานControl.Monad, Control.Monad.InstancesและData.Char:

ap(==)reverse.map toLower.filter isAlphaNum

PHP 60 ตัวอักษร

ก่อนอื่นลอง codegolf

//thank you manatwork
echo($x=preg_replace('/\W/','',strtolower($c)))==strrev($x); 

ตัวอย่าง:

$c='Eva, can I stab bats in a cave?';
echo($x=preg_replace('/\W/','',strtolower($c)))==strrev($x);
//prints 1

Python 2 64 Charecters:

i =''.join(re.findall('[a-z0-9]+',i.lower()))
return i==i[::-1]

Haskell 48

(\x->x==reverse x).map toLower.filter isAlphaNum

ใช้แบบนี้:

(\x->x==reverse x).map toLower.filter isAlphaNum$"Eva, can I stab bats in a cave?"

Smalltalk , Squeak / Pharo flavor
116 chars โดยใช้การจัดรูปแบบดั้งเดิมพร้อมแท็บ

คุณเพิ่มสองวิธีในการสตริง:

selffles
    ^self = self reverse
isPalindrome
    ^(self asUppercase asDecomposedUnicode select: #isAlphaNumeric) selffles

แน่นอนว่าเราสามารถกำจัดช่องว่างบางส่วนหรือใช้ชื่อเมธอดที่สั้นลงได้ แต่อย่าหักหลังวิญญาณของ Smalltalk

มากกว่านี้จะจัดการกับ palindromes ภาษาฝรั่งเศสเช่นในhttp://fr.wikipedia.org/wiki/Liste_de_palindromes_fran%C3%A7aisมีคำตอบไม่มากนักในหน้านี้

['Léon a trop par rapport à Noël' isPalindrome] assert.

Python 3 (51 ถ่าน)

และอาจเป็น Python 2

ขึ้นอยู่กับวิธีแก้ปัญหาAbhiram (พร้อมตีกอล์ฟที่รุนแรงมากขึ้น)

from re import findall

def palindrome(i):
 i=findall('[a-z\d]',i.lower())
 return i==i[::-1]

print(palindrome(input('Phrase: ')))

อาจสั้นลงเหลือ 46 ตัวอักษรโดยใช้ RE '\ w'

และตัวแปรที่มีฟังก์ชันการทำงานที่สั้นมาก (27 ตัวอักษร)

import re
l=str.lower
f=re.compile('[a-z\d]').findall

def palindrome(i):i=f(l(i));return i==i[::-1]

print(palindrome(input('Phrase: ')))

Windows PowerShell, 56 47 45 ตัวอักษร

อัปเดต (ดูความคิดเห็น) และสามารถลบเครื่องหมายวงเล็บรอบ ๆ regex:

($s=$s-replace'\W')-eq(-join$s[$s.length..0])

เดิม (56)

$s=$s-replace'[^\w]','';$s-eq($s[-1..-$s.length]-join'')

ยกเลิกการตีลูกเดิม:

$s = "Eva, can I stab bats in a cave?"
$s = $s -replace '[^\w]', ''
$rev = $s[-1..-$s.length] -join ''
$s -eq $rev

C ++, 74 ไบต์

รหัสนี้สวยงามจริงๆและเข้าใจง่าย (เมื่อจัดรูปแบบอย่างถูกต้อง) ฉันไม่เชื่อว่าเป็นไปได้ที่จะสั้นลงใน C ++ และไม่ใช้ฟังก์ชันไลบรารีมาตรฐานใด ๆ

p(auto c){auto e=c;while(*e)++e;--e;while(*e==*c&e>c)--e,++c;return e<=c;}

ตัวอย่างการใช้งาน:

p("Hello"); //Outputs 0
p(""); //Outputs 1
p("a"); //Outputs 1
p("HellolleH"); //Outputs 1

เวอร์ชันที่มีรูปแบบสวยงาม:

p(auto c)
{
    auto e=c;
    while(*e) ++e;
    --e;
    while(*e==*c & e>c)--e,++c;
    return e<=c;
}

PHP, 26 84 80 78 62 63 ไบต์

<?=strrev($s=strtolower(preg_replace("#\W#","",$argv[1])))==$s;

รับอินพุตจากอาร์กิวเมนต์บรรทัดคำสั่งแรก พิมพ์1เพื่อความจริงสตริงว่างสำหรับเท็จ

I18n นั้นกว้างใหญ่ไพศาลเนื่องจากไม่มีทางเลือกหลายstrrevไบต์สำหรับ(110 bytes; run with -r):

preg_match_all("#.#us",$s=strtolower(preg_replace("#\W#u","",$argv[1])),$m);echo$s==join(array_reverse($m[0]);

utf8_strrev โจ๋งครึ่มขโมยจากคู่มือของ PHP คุณอาจต้องการดูโพสต์บล็อกนี้

ทับทิม, 48

p((g=gets.upcase.gsub /[^A-Z\d]/,'')==g.reverse)

ค่อนข้างง่ายและทำอย่างเร่งรีบไม่เล่นกอล์ฟมากจนเกินไป ฉันจะตีกอล์ฟทีหลัง

Pylongolf2 , 24 ไบต์

c╨2"[^a-zA-Z]"-_╨1=~

cใช้อินพุต╨2เพื่อแปลงเป็นตัวพิมพ์เล็ก
จากนั้นฉันจะผลัก regex ลงบนสแต็กและใช้-เพื่อลบอักขระที่ไม่ใช่ตัวอักษรทั้งหมดในอินพุต
_ทำซ้ำอินพุต
╨1ฝืนมัน=แล้วเปรียบเทียบพวกเขา
~พิมพ์สแต็คในที่สุดซึ่งพิมพ์อย่างใดอย่างหนึ่งหรือ truefalse

PowerShell, 194 190 ไบต์

การใช้งานแบบเรียกซ้ำเพื่อแสดงว่าสคริปต์ตัวบล็อก PowerShell ที่ไม่มีชื่อสามารถเรียกตัวเองได้อย่างไร

$P={param([string]$s)$s=($s-replace'[^a-z]').tolower();if(!$s){return $true};if($s.length-lt4){return $s[0]-eq$s[-1]};$s[0]-eq$s[-1]-and(&$MyInvocation.MyCommand.ScriptBlock $s.trim($s[0]))}

ungolfed:

$P={
param([string]$s)
$s=($s-replace'[^a-z]').tolower();
if(!$s){return $true};
if($s.length-lt4){return $s[0]-eq$s[-1]};
$s[0]-eq$s[-1]-and(&$MyInvocation.MyCommand.ScriptBlock $s.trim($s[0]))
}

การทดสอบ:

&$P "Eva, can I stab bats in a cave?"
&$P "Eva, can I stab cats in a cave?"
&$P "A man, a plan, a canal. Panama!"
&$P "A man, a plan, a big shovel, a canal. Panama!"
&$P "Madam, I'm Adam."
&$P "Madam, I'm Adam Corolla."
&$P "757"
&$P "Boeing 757"

05AB1E , 4 ไบต์ (ไม่แข่งขัน)

ไม่ใช่การแข่งขันเนื่องจากภาษาโพสต์ความท้าทาย รหัส:

álÂQ

คำอธิบาย:

á     # Only keep the alphabetic characters.
 l    # Lowercase the characters.
  Â   # Bifurcate, which duplicates the letters and reverses the duplicate.
   Q  # Check if they are equal.

ใช้การเข้ารหัสCP-1252 ลองออนไลน์! .

เยลลี่, 10 ตัวละคร (ไม่แข่งขัน)

fØBŒl
UÇ⁼Ç

ส่งคืน 1 ถ้าเป็นจริง 0 ถ้าเป็นเท็จ

ลองออนไลน์!