Палиндром некоторая строка , которая пишется точно так же , как назад и вперед. Например, «Ева, я могу заколоть летучих мышей в пещере?» такое палиндром (EVACANISTAB | BATSINACAVE)

Для этого кода гольф, используя язык по вашему выбору, определяет, является ли данная строка палиндромом или нет.

Краевые случаи:

• Пунктуация не засчитывается в палиндромность.
• Контрольные символы не засчитываются в палиндромность.
• Пробелы не засчитываются в палиндромность.
• Числа засчитываются в пользу палиндромности.
• Дело в этом вызове не засчитывается в палиндромность.
• Длина строк для оценки не ограничена, за исключением того, что навязывается выбранным вами языком.
• Для этого испытания ограничьте себя набором символов ASCII.

Технические требования:

• Нужны только тела метода; дополнительные вещи, такие как сигнатуры методов, объявления структур данных и т. д., не учитываются в требовании победы.
• Код должен компилироваться или интерпретироваться без ошибок или исключений во время компиляции.
• Код не должен выбрасывать необработанные исключения или сбои. (Почти не нужно говорить. Почти.)
• Код должен возвращать некоторое значение, указывающее на палиндромность. Тип данных зависит от используемого вами языка (например, пользователь C # может использовать a bool, тогда как пользователь JavaScript может использовать a var.)
• Вы не можете написать своего собственного переводчика, который выполняет эту задачу как «нативную» возможность, чтобы вы могли «сыграть в гольф» с почти выигрышным счетом. (Надеюсь, само собой разумеется.)

Условие победы:

• Самый короткий код в символах выигрывает.

Текущий лидер: tmartin (k, 25 символов)

... Хотите волшебную зеленую галочку своим ответом? Удар ответ этого парня!

К, 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, когда это палиндром, ""(одно из ложных значений 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{"@{>^}+/- Оптимизировано Питером Тейлором и Говардом. Моя версия была "/9@Z"{1$<},,2%\;. Говард подарил функцию конкатенации, а Питер Тейлор подарил XOR для модуля-2. Это в основном общий метод сравнения, если значение находится в последовательности диапазонов.

{.96>32*-}%(11 символов) на самом деле не является улучшением по сравнению с Javascript .toUpperCase()(14 символов), тем более что он искажает некоторые странные знаки препинания, которые следуют zв таблице ASCII (что здесь не имеет значения).

однако, как предположил Питер Тейлор, если мы сначала отфильтруем буквенно-цифровые символы, мы сможем преобразовать их в строчные буквы и цифры, просто установив один бит в каждом символе: {32|}

.-1%=выполняет все палиндромные тяжелые операции. Одна часть, которую я не очень люблю, это то, сколько времени мне потребовалось, чтобы узнать, как перевернуть массив. Я должен был прочитать документы. Два других символа выполняют управление стеком и сравнение.

Тест: http://golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7IjA6QVtheyJcez59KywsMiV9LHszMnx9JS4tMSU9

Кроме того, если я могу предположить, что ни один из следующих управляющих символов не присутствует: (Выход канала данных, управление устройством 1-4, отрицательное подтверждение, синхронный режим ожидания, конец блока передачи, отмена, конец носителя) (мы все согласны, что это все довольно неясно) или если я могу рассматривать их как прописные версии цифр 0-9, мы можем сохранить еще два символа:

GolfScript, 28 символов

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

Тест: http://golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7MzJ8fSV7MCIwOmF7IkB7Pl59Ky99LC4tMSU9

Javascript, 53 символа:

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

является выражением javascript, которое оценивается как true, если xэто палиндром, и как false, если это не так. Предполагается, что 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

Баш: 52 48 46 символов

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

Это принимает строку для проверки в качестве первого параметра и устанавливает код выхода равным 0 для палиндрома и 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 с добавлением некоторых символов:

Питон 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());

Использование (с негольфированным кодом):

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

к ( 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: нет необходимости подавлять ошибки.

Рубин: 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 (Просчитались), 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потому что он короче charили 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;
  }
  

Луа, 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])

Хаскелл, 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 Персонажи:

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
116 символов с использованием традиционного форматирования с вкладками

Вы добавляете два метода в строку:

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

Конечно, мы могли бы устранить некоторые пробелы или использовать более короткие имена методов, но давайте не будем предавать дух Smalltalk.

Более того, это будет обрабатывать французские палиндромы, как в 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

на основе решения Абхирам (с более агрессивным гольфом)

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 символов

Обновлен (см. Комментарии) и может убрать скобки вокруг регулярного выражения:

($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 байт; работает с -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чтобы преобразовать в нижний регистр.
Затем я помещаю регулярное выражение в стек и использую -для удаления все неалфавитные символы во входных данных.
_дублирует ввод.
╨1переворачивает это и =затем сравнивает их.
~печатает стопку в конце, которая печатает trueили false.

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, если ложь

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