Một palindrom là một số chuỗi được đánh vần theo cùng một cách cả ngược và xuôi. Chẳng hạn, 'Eva, tôi có thể đâm dơi trong hang không?' là một bảng màu (EVACANISTAB | BATSINACAVE)

Đối với môn đánh gôn này, sử dụng ngôn ngữ bạn chọn, xác định xem một chuỗi đã cho có phải là một bảng màu hay không.

Vỏ cạnh:

• Dấu câu không được tính vào sự nhạt nhẽo.
• Nhân vật điều khiển không được tính vào sự nhạt nhẽo.
• Khoảng trắng không được tính vào sự nhạt nhẽo.
• Số được tính vào palindrominess.
• Trường hợp trong thử thách này không được tính vào sự nhạt nhẽo.
• Không có giới hạn về độ dài của chuỗi để đánh giá, ngoại trừ những gì được áp đặt bởi ngôn ngữ bạn chọn.
• Đối với thử thách này, hãy giới hạn bản thân trong bộ ký tự ASCII.

Yêu cầu kỹ thuật:

• Chỉ có cơ thể phương pháp là cần thiết; những thứ bổ sung như chữ ký phương thức, khai báo cấu trúc dữ liệu, v.v. không được tính vào yêu cầu chiến thắng.
• Mã phải biên dịch hoặc giải thích mà không có lỗi thời gian biên dịch hoặc ngoại lệ.
• Mã không được ném bất kỳ trường hợp ngoại lệ chưa xử lý hoặc sụp đổ. (Hầu như không cần phải nói. Hầu như.)
• Mã phải trả về một số giá trị cho thấy sự nhạt nhẽo. Kiểu dữ liệu tùy thuộc vào ngôn ngữ bạn sử dụng (ví dụ: người dùng C # có thể sử dụng a bool, trong khi người dùng JavaScript có thể sử dụng a var.)
• Bạn không được viết trình thông dịch riêng để thực hiện nhiệm vụ này như một khả năng 'bản địa' để bạn có thể 'đánh gôn' một số điểm gần chiến thắng. (Hy vọng không cần phải nói.)

Điều kiện chiến thắng:

• Mã ngắn nhất trong các ký tự chiến thắng.

Nhà lãnh đạo hiện tại: tmartin (k, 25 ký tự)

... Muốn có dấu kiểm màu xanh kỳ diệu bằng câu trả lời của bạn ? Đánh bại câu trả lời của anh chàng này!

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 char

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

Đánh giá thành 1 khi $_là một palindrom, ""(một trong những giá trị sai của Perl) khi nó không.

Sử dụng mẫu:

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__

đầu ra:

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

Chỉ C # 82 :)

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

Không thể cưỡng lại sự cám dỗ của việc viết một chương trình không có bản tóm tắt bằng ngôn ngữ yêu thích của tôi.

Một bài kiểm tra có sẵn ở đây: http://ideone.com/8bwz7z

GolfScript, 36 34 31 30 ký tự

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

Thuật toán tương tự với giải pháp (Javascript) trước đây của tôi .

0"0:A[a{"@{>^}+/- Tối ưu hóa bởi Peter Taylor và Howard. Phiên bản của tôi là "/9@Z"{1$<},,2%\;. Howard đã quyên góp chức năng và Peter Taylor đã tặng XOR cho modulo-2. Về cơ bản, đây là một phương pháp chung để so sánh nếu giá trị nằm trong một chuỗi các phạm vi.

{.96>32*-}%(11 ký tự) không thực sự là một cải tiến so với Javascript .toUpperCase()(14 ký tự), đặc biệt là vì nó có một số dấu câu lạ xuất hiện ztrong bảng ASCII (không quan trọng ở đây).

tuy nhiên, như Peter Taylor đã đề xuất, tuy nhiên, nếu chúng ta lọc ra chữ và số trước tiên, chúng ta có thể chuyển đổi thành chữ thường và chữ số chỉ bằng cách đặt một bit trong mỗi ký tự: {32|}

.-1%=không nâng tất cả các palindromic nặng. Một phần tôi không thực sự thích là tôi mất bao lâu để tìm ra cách đảo ngược một mảng. Tôi nên đọc tài liệu. Hai nhân vật khác thực hiện quản lý ngăn xếp và so sánh.

Kiểm tra: http://golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7IjA6QVtheyJcez59Kyws9

Hơn nữa, nếu tôi có thể giả sử rằng không có ký tự điều khiển nào sau đây: (Thoát liên kết dữ liệu, điều khiển thiết bị 1-4, xác nhận tiêu cực, nhàn rỗi đồng bộ, kết thúc khối truyền, hủy, kết thúc phương tiện) (tất cả chúng ta đều đồng ý tất cả đều tối nghĩa) hoặc nếu tôi có thể coi chúng là phiên bản chữ hoa của các chữ số 0-9, chúng ta có thể lưu hai ký tự khác:

GolfScript, 28 ký tự

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

Kiểm tra: http://golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7MzJ8fSV7MCIwOmF7IK7

Javascript, 53 ký tự:

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

là một biểu thức javascript đánh giá là đúng nếu xlà một bảng màu, thành sai nếu không. Nó giả sử xlà một chuỗi. Nếu điều đó không được đảm bảo, hãy trả trướcx+="",

Đây là một mẩu bánh mì: Do cách thức reverse()hoạt động,

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

thất bại Tuy nhiên,

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

là hoàn toàn tốt

R: 66

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

Sử dụng:

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 ký tự

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

Cái này lấy sting để kiểm tra làm tham số đầu tiên và đặt mã thoát thành 0 cho palindrom và 1 cho không.

Chạy mẫu:

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

Con trăn 2: 49 (không tính chữ ký phương thức)

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

Một chương trình hoàn chỉnh, với đầu vào và đầu ra có thể được ghi vào 74 ký tự.

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

Ví dụ sử dụng:

$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 Chứa này palindrome 17.826 từ)

Giải pháp này có thể được điều chỉnh cho python 3 thêm một số ký tự:

Con trăn 3: 55

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

JAVA (hoặc ngôn ngữ dài dòng nhất từng có), 102 96 95 char

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

Cách sử dụng (với mã không mã hóa):

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!'"));
}

Rút ngắn với sự giúp đỡ của người bình luận bên dưới

Toán học 54 53

Một byte được lưu nhờ vào CatsAreFluffy:

PalindromeQ@StringCases[ToUpperCase@#,WordCharacter]&

Đối với những người có phiên bản 10.2 trở về trước:

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

Thí dụ

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

Thật

J, 30 ký tự

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

Sử dụng:

   */(=|.)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 ký tự)

Loại bỏ tất cả các lỗi, trả về mặc định là 0b(false).

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

Thí dụ:

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

chỉnh sửa: cạo thêm ba ký tự bằng cách tránh biến trung gian. H / T, CS. -7: Không cần phải loại bỏ lỗi.

Ruby: 43 38 ký tự

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

Chạy mẫu:

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 (bị sảy thai), 100 (bị sảy thai), 81

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

• Khai thác các mẫu bit ASCII.
• Dựa vào một điều ác using namespace std;.
• Sử dụng bitwise AND và OR thay vì các toán tử logic.

• Sử dụng intvì nó ngắn hơn charhoặc auto.

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

Lua, 56

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

Python 3/2 59 ký tự:

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

Haskell, 43

Sử dụng các thư viện chuẩn Control.Monad, Control.Monad.Instancesvà Data.Char:

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

PHP 60 ký tự.

Đầu tiên hãy thử trên codegolf.

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

Thí dụ:

$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

được sử dụng như thế này:

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

Smalltalk , Squeak / Pharo hương vị
116 chars sử dụng định dạng truyền thống với các tab

Bạn thêm hai phương thức vào Chuỗi:

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

Tất nhiên chúng ta có thể loại bỏ một số khoảng trắng hoặc sử dụng tên phương thức ngắn hơn, nhưng chúng ta đừng phản bội tinh thần của Smalltalk.

Hơn nữa, điều này sẽ xử lý các palindromes của Pháp, như trong http://fr.wikipedia.org/wiki/Liste_de_palindromes_fran%C3%A7ais , không nhiều câu trả lời trong trang này có thể.

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

Python 3 (51 char)

và có thể là Python 2

dựa trên giải pháp abhiram (với việc chơi golf căng thẳng hơn)

from re import findall

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

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

có thể rút ngắn xuống còn 46 ký tự, sử dụng RE '\ w'

và biến thể với cơ thể chức năng cực ngắn (27 ký tự)

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 ký tự

Đã cập nhật (xem bình luận) và có thể xóa dấu ngoặc quanh biểu thức chính quy:

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

Bản gốc (56)

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

Un-golfed gốc:

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

C ++, 74 byte

Mã này thực sự rất thanh lịch và dễ hiểu (khi được định dạng chính xác). Tôi không tin rằng có thể rút ngắn hơn trong C ++ và nó không sử dụng bất kỳ chức năng thư viện tiêu chuẩn nào.

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

Ví dụ sử dụng:

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

Phiên bản được định dạng chính xác:

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 byte

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

lấy đầu vào từ đối số dòng lệnh đầu tiên; in 1cho sự thật, chuỗi trống cho giả.

I18n là một mở rộng nhỏ, vì không có sự thay thế đa bào cho strrev(110 byte; chạy với -r):

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

utf8_strrev bị đánh cắp một cách trắng trợn từ hướng dẫn PHP . Bạn cũng có thể muốn xem bài viết trên blog này .

Ruby, 48

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

Khá đơn giản, và vội vàng thực hiện để không chơi golf quá nhiều. Tôi sẽ đánh gôn nó muộn hơn.

Pylongolf2 , 24 byte

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

clấy đầu vào, ╨2để chuyển đổi sang chữ thường
Sau đó tôi đẩy regex lên ngăn xếp và sử dụng -để loại bỏ tất cả các ký tự không theo thứ tự chữ cái trong đầu vào.
_nhân đôi đầu vào.
╨1đảo ngược nó và =sau đó so sánh chúng.
~in ngăn xếp cuối cùng mà in truehoặc false.

PowerShell, 194 190 byte

Việc triển khai đệ quy để hiển thị cách tập lệnh kịch bản PowerShell chưa được đặt tên có thể tự gọi.

$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]))}

vô dụng:

$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]))
}

kiểm tra:

&$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 byte (không cạnh tranh)

Không cạnh tranh , vì ngôn ngữ hoãn thách thức. Mã số:

álÂQ

Giải trình:

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

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến! .

Jelly, 10 nhân vật (Không cạnh tranh)

fØBŒl
UÇ⁼Ç

Trả về 1 nếu đúng, 0 nếu sai

Hãy thử trực tuyến!