蟒蛇，60

b=0
for c in input():b^=1<<ord(c)
print('YNEOS'[b&b-1>0::2])

整型变量b存储字符数的奇偶校验。例如，'a'奇偶校验存储在第 97 位和'z'第 120 位中。

最后，它检查是否b只设置了一位。该表达式b & (b - 1)删除数字的最低有效位。如果数字变为零，则该位是唯一的。

常量'YES'和'NO'混合在一行中。第一个位于偶数位置，第二个位于奇数位置。

红宝石，56 岁

b=1024
gets.chars{|c|b^=1<<c.ord}
puts b&b-1>0?:NO: :YES

整型变量b存储字符数的奇偶校验。例如，'a'奇偶校验存储在第 97 位和'z'第 120 位中。

Начальное значение 1024 нужно так как gets возвращает строку с переводом строки. Переводу строки соответствует десятый бит (1024). Он выставлен заранее, перевод строки в конце строки его снимает.

В конце проверяется что в b установлен только один бит. Выражение b & (b - 1) стирает младший бит числа. Если число обнулилось, этот бит был единственным.

Python, 57

Думал много дней, наконец додумался) Работает так же, как и многие (с проверкой количества одинаковых символов в строке на чётность)

a={0}
for i in input():a^={i}
print('YNEOS'[len(a)>2::2])

Подробный разбор кода:

1. Первой строчкой мы создаём множество a

2. Идём по всем символам строки:

   Если символ есть в множестве a, удаляем его оттуда, а если нет - добавляем

3. Печатаем YES если количество элементов в множестве меньше или равно 1, иначе печатаем NO

Труднее всего понять последнюю строчку. Объясняю. Если длина массива равна 1, то есть два варианта:

• В строке изначально был 1 символ;
• Остался один непарный символ в строке, который можно поставить в середину и всё равно получится палиндром.

Оба этих варианта нам подходят, печатаем YES. А если в строке 0 символов - все были парными, то есть это тоже нам подходят, также печатаем YES.

P.S. СПАСИБО ОГРОМНОЕ ЗА СОКРАЩЕНИЕ КОДА @StanislavVolodarskiy. Этот код рулит среди питоновских только благодаря ему:)

C,66

b;main(c){while(c=getchar()-10)b^=1<<c-87;puts(b&b-1?"NO":"YES");}

这是一个完整的程序，gcc temp.c已转换为功能可执行模块。编译时，发出六个警告，但没有错误。

下面是相同的代码，但不那么密集。

整型变量b存储字符数的奇偶校验。例如，'a'奇偶校验存储在零位和'z'第二十五位中。

最后，它检查是否b只设置了一位。该表达式b & (b - 1)删除数字的最低有效位。如果数字变为零，则该位是唯一的。

#include <stdio.h> 

int main() {
    int b = 0;
    int c;
    while (c = getchar() - '\n') {
        b ^= 1 << (c - ('a' - '\n'));
    }
    puts((b & b - 1) ? "NO" : "YES");
}

蟒蛇，63

算法 - 计算不配对字符的数量

s=input()
print(("NO","YES")[sum(s.count(c)%2 for c in{*s})<2])

JavaScript, 73

JUST FOR FUN

Решаем задачу на регулярках :)

Считаю не совсем честным, что другие ответы на JS не содержат promt и console.log, поэтому прилагаю тоже вариант просто функции-обёртки. 73 символа

g=t=>t.split('').sort().join('').replace(/(.)\1/g,'').length<2?'YES':'NO'

console.log(g('aab'))
console.log(g('abc'))
console.log(g('racecar'))
console.log(g('aaa'))

Изи, просто делаем скучную замену, 82 символа

alert(prompt().split('').sort().join('').replace(/(.)\1/g,'').length<2?'YES':'NO')

Монорегулярка, это уже веселее, но 103 символа

Большое регулярное выражение, ищет символы, вошедшие нечётное количество раз:

alert([...prompt().matchAll(/(.)(?<!\1.+)(?=(((.(?<!\1))*\1){2})*(.(?<!\1))*$)/g)].length<2?"YES":"NO")

C#, 70

• Использую Linq, который в пустом проекте .NET 7 подключен по умолчанию, просто создайте проект с включенным Top-Level Statements
• Группирую все буквы, и если количество групп с нечетным числом букв > 1, то это не палиндром.

Ввод передается аргументом запуска

Console.Write(args[0].GroupBy(x=>x).Sum(g=>g.Count()%2)>1?"NO":"YES");

蟒蛇，170

from collections import Counter
s = input()
counts = Counter(s)
odd_count = sum(1 for count in counts.values() if count % 2 != 0)
print("YES" if odd_count <= 1 else "NO")

蟒蛇，92

解决方案与Counter!

from collections import *
print(["NO","YES"][sum(i%2 for i in Counter(input()).values())<2])

UPD：如果需要，这里有一个 replit 链接：https://replit.com/@nikola-chistov/myfisrtcodegolf#main.py

UPD2：感谢@Acinit提供的缩短技巧。

哈斯克尔，62

蛮力：我们组成所有排列并检查它们之间是否存在回文：

p(s)=if any(\x->reverse x==x)$permutations s then"YES"else"NO"

https://ideone.com/nV67QU

哈斯克尔，66 岁

一个稍长的版本，但没有暴力，来自邻近答案的想法：

r[]="YES";r(a)="NO";p(s)=r.tail.filter odd.map length.group$sort s

https://ideone.com/YeNNSO