Гольф-код. Палиндромная перестановка

Question

Условие

Палиндром - это слово, фраза или последовательность символов, которая читается одинаково как с начала, так и с конца (например, "ротор" или "мадам"). Вам нужно написать программу, которая определит, можно ли из заданной строки сделать палиндром путем перестановки ее символов.

Входные данные

Строка, состоящая из букв латинского алфавита (от a до z).

Выходные данные

Вывести строку 'YES', если можно переставить символы так, чтобы получить палиндром, и 'NO' в противном случае.

Контрольный пример

Вход: "aab"
Выход: "YES" (можно сделать "aba")
Вход: "abc"
Выход: "NO"
Вход: "racecar"
Выход: "YES" (это уже палиндром)
Вход: "aaa"
Выход: "YES"

Критерий оценивания

Любой язык программирования.

В соревновании победит самое короткое по символам решение (пробелы и переносы - тоже символы).

Ответ победителя будет отмечен верным. Ответ автора вопроса не будет фигурировать при выборе победителя.

Срок соревнования - 7 дней, конец 10.10.2023 в 8:00 по МСК

---

P.S.

Просьба указывать язык в заголовке ответа и количество символов программы через запятую.

Таблица лидеров (код формы результатов взял отсюда)

execute("ru.stackoverflow.com", "1543735");

.cssload-container,.cssload-cube{width:97px;height:97px;transform-style:preserve-3d}.cssload-container,.cssload-cube,.cssload-half1,.cssload-half2{transform-style:preserve-3d}.cssload-container{position:relative;margin:23px 84px;perspective:292px}.cssload-cube{animation:cube 11.5s forwards infinite;transform-origin:center 49px}.cssload-half1,.cssload-s1{top:0;transform-origin:50% 100%}.cssload-half1{height:39px;position:absolute;animation:half-fold 11.5s forwards infinite}.cssload-side{width:19px;height:19px;background:#ddd;position:absolute}.cssload-s1{left:39px;animation:s1ani 11.5s forwards infinite}.cssload-s2,.cssload-s3,.cssload-s4{left:39px;transform-origin:50% 0}.cssload-s2{top:19px;animation:s2ani 11.5s forwards infinite}.cssload-s3{top:39px;animation:s3ani 11.5s forwards infinite}.cssload-s4{top:58px;animation:s4ani 11.5s forwards infinite}.cssload-s5{left:19px;top:19px;transform-origin:100% 50%;animation:s5ani 11.5s forwards infinite}.cssload-s6{left:58px;top:39px;transform-origin:0 50%;animation:s6ani 11.5s forwards infinite}@keyframes cube{0%,30%{transform:rotateX(0)}40%{transform:rotateX(45deg) rotateY(0) rotate(45deg)}60%{transform:rotateX(60deg) rotateY(0) rotate(45deg)}65%,70%{transform:rotateX(60deg) rotate(45deg) rotate(180deg)}75%,80%{transform:rotateX(60deg) rotate(45deg) rotate(1turn)}90%{transform:rotateX(0) rotate(0) rotate(0)}}@keyframes s1ani{0%{opacity:1;transform:translateY(0);background:#ddd}40%{transform:rotateX(0);background:#ddd}50%{transform:rotateX(-90deg);background:#ddd}90%{transform:rotateX(-90deg)}}@keyframes s2ani{0%{opacity:0;transform:rotateX(-179deg)}10%{opacity:1;transform:rotateX(0)}40%{background:#ddd}45%,80%{background:#b4b4b4}65%{opacity:1;background:#b4b4b4}90%{opacity:1}to{opacity:0}}@keyframes s3ani{0%,10%{opacity:0;transform:rotateX(-179deg)}20%,90%{opacity:1;transform:rotateX(0)}40%{background:#ddd}45%{background:#969696}to{opacity:0}}@keyframes s4ani{0%,20%{opacity:0;transform:rotateX(-179deg)}10%,to{opacity:0}30%{opacity:1;transform:rotateX(0)}40%{transform:rotateX(0);background:#ddd}50%{transform:rotateX(90deg);background:#b4b4b4}80%{background:#b4b4b4}90%{opacity:1;transform:rotateX(90deg)}}@keyframes s5ani{0%,10%{opacity:0;transform:rotateY(-179deg)}20%{opacity:1;background:#ddd;transform:rotateY(0)}40%{transform:rotateY(0)}50%{transform:rotateY(90deg)}55%{background:#ddd}60%{background:#c8c8c8}90%{transform:rotateY(90deg);opacity:1}to{opacity:0}}@keyframes s6ani{0%,20%{opacity:0;transform:rotateY(179deg)}30%{opacity:1;transform:rotateY(0)}40%{transform:rotateY(0)}50%{transform:rotateY(-90deg);background:#ddd}60%,80%{background:#c8c8c8}90%{opacity:1;transform:rotateY(-90deg)}to{opacity:0}}@keyframes half-fold{0%,50%{transform:rotateX(0)}60%,90%{transform:rotateX(-90deg)}}

<script src="https://mayorovp.github.io/codegolf/table-8c505e68f1349e4c69e7.js"></script>
<div class=cssload-container><div class=cssload-cube><div class=cssload-half1><div class="cssload-side cssload-s1"></div><div class="cssload-side cssload-s2"></div><div class="cssload-side cssload-s5"></div></div><div class=cssload-half2><div class="cssload-side cssload-s3"></div><div class="cssload-side cssload-s4"></div><div class="cssload-side cssload-s6"></div></div></div></div>

---

Результаты и объявление победителей:

В начале хочется выразить огромные благодарности всем участникам данного соревнования за боевой дух и креативность! Представленные решения вызывают восторг и восхищение.

Особая благодарность @Зонтик за вовлеченность в модерацию и редактуру ответов.

1 место: @Stanislav Volodarskiy, Ruby, 56 символов!

2 место: @Чёткая Четырка, Python, 57 символов!

3 место: @Алексей Р, Python, 63 символа!

Всем спасибо за участие!

Answer 1

Python, 60

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

Целая переменная b хранит чётность количества символов. Например для 'a' чётность хранится в девяносто седьмом бите, для 'z' в сто двадцать втором бите.

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

Константы 'YES' и 'NO' смешаны в одну строку. Первая на чётных позициях, вторая на нечётных.

Answer 2

Ruby, 56

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

Целая переменная b хранит чётность количества символов. Например для 'a' чётность хранится в девяносто седьмом бите, для 'z' в сто двадцать втором бите.

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

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

Answer 3

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

Answer 4

Python, 63

Алгоритм - подсчет количества непарных символов

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

Answer 5

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

Answer 6

C#, 70

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

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

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

Answer 7

Python, 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")

Answer 8

JavaScript, 66

JUST FOR FUN

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

Изи, просто делаем скучную замену, 66 символов.
Спасибо @Cerbrus - сократил на 7 символов.

g=t=>[...t].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'))

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

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

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

Answer 9

Python, 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 за советы по укорочению.

Answer 10

Haskell, 62

Brute force: составляем все перестановки и проверяем есть ли среди них палиндром:

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

https://ideone.com/nV67QU

Haskell, 66

Чуть более длинный вариант, но без брутфорса, идея из соседних ответов:

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

https://ideone.com/YeNNSO

Answer 11

JavaScript, 78

f=([a,b,...c])=>a?a==b?f(c):1+f([b,...c]):0;g=a=>f([...a].sort())>1?'NO':'YES'

Демонстрация еще одной идеи: рекурсивная ф-я f, которая

• возвращает 0 для пустой строки (условие выхода из рекурсии)
• делит строку на первые 2 символа a, b и оставшийся хвост с
  • если a = b, то возвращает f(c)
  • иначе 1+f([b,...c])

f=([a,b,...c])=>a?a==b?f(c):1+f([b,...c]):0;g=a=>f([...a].sort())>1?'NO':'YES'
console.log(g('aab'))
console.log(g('abc'))
console.log(g('racecar'))
console.log(g('aaa'))

Answer 12

Oracle, 159 176

select decode(nvl(sum(1),1),1,'YES','NO')from(select''from(select''s from dual)connect by rownum<=length(s)group by substr(s,rownum,1)having mod(count(1),2)=1)

Вне конкурса, т. к. нет "стандартного ввода-вывода" ¯\_(ツ)_/¯

Реализована та же идея с подсчетом непарных символов:

select
  decode(
    nvl(sum(1), 1), -- 5. sum возвращает NULL если в подзапросе нет строк, поэтому меняем NULL на 1
    1, -- 6. здесь как раз обрабатываются случаи с одгним непарным символом и нулем (NULL заменили на 1 в п 5)
    'YES',
    'NO'
  )
from (
  select
    ''
  from (
    select 'racecar' s from dual -- 1. входная строка
  )
  connect by rownum <= length(s) -- 2. рекурсивный запрос для разворачивания строки посимвольно
  group by substr(s, rownum, 1) -- 3. группируем символы
  having mod(count(1), 2) = 1 -- 4. и берем только непарные
)

http://sqlfiddle.com/#!4/68b32/6869/0

Answer 13

Java, 149

interface G{static void main(String[]a)throws Exception{int b=0,c;for(;(c=System.in.read()-96)>0;)b^=1<<c;System.out.println((b&b-1)>0?"NO":"YES");}}

Ниже тот же код, но не такой плотный.

Целая переменная b хранит чётность количества символов. Например для 'a' чётность хранится в первом бите, для 'z' в двадцать шестом бите.

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

interface G {
    static void main(String[] a) throws Exception {
        int b = 0;
        for (int c; (c = System.in.read() - 96) > 0; )
            b ^= 1 << c;
        System.out.println((b & b - 1) > 0 ? "NO" : "YES");
    }
}

Answer 14

RUST, 263

use std::io::{self, Read};fn main(){let mut input = String::new();io::stdin().read_to_string(&mut input).unwrap();let mut b = 0;for c in input.chars().filter(|&c| c != '\n') {b ^= 1 << (c as u8 - b'a');}if b & (b - 1) != 0 {println!("NO");}else{println!("YES");}}

use std::io::{self, Read};
fn main() {
    let mut input = String::new();
    io::stdin().read_to_string(&mut input).unwrap();
    let mut b = 0;
    for c in input.chars().filter(|&c| c != '\n') {
        b ^= 1 << (c as u8 - b'a');
    }
    if b & (b - 1) != 0 {
        println!("NO");
    } else {
        println!("YES");
    }
}

Answer 15

C, 623

понятно, что не будет лидером, но это забавно

#include <stdio.h>
int main(){int o_ed5791501b27396303ad4d84f62e05c3=(0x0000000000000000 + 0x0000000000000200 + 0x0000000000000800 - 0x0000000000000A00);int o_2502a808b536a16317ab10c437e81bc0;while ((o_2502a808b536a16317ab10c437e81bc0 = getchar()) != '\n'){o_ed5791501b27396303ad4d84f62e05c3 ^= (0x0000000000000002 + 0x0000000000000201 + 0x0000000000000801 - 0x0000000000000A03) << (o_2502a808b536a16317ab10c437e81bc0 - 'a');};puts((o_ed5791501b27396303ad4d84f62e05c3 & o_ed5791501b27396303ad4d84f62e05c3 - (0x0000000000000002 + 0x0000000000000201 + 0x0000000000000801 - 0x0000000000000A03)) ? "\x4E""O" : "\x59""E\123");};

Answer 16

RUBY, 110 90

b = 0
while (c = STDIN.getc) != "\n"
  b ^= 1 << (c.ord - 'a'.ord)
end
puts (b & (b - 1)).zero? ? "YES" : "NO"

upd 90

b=0
while(c=STDIN.getc)!="\n" 
  b^=1<<(c.ord-'a'.ord)
end
puts (b&(b-1)).zero?? "YES":"NO"

Answer 17

ADA, 383

with Ada.Text_IO;
procedure Main is
   b : Integer := 0;
   c : Character;
begin
   loop
      Ada.Text_IO.Get(c);
      exit when c = Character'Val(Character'Pos('\n'));
      b := b xor (1 << (Character'Pos(c) - Character'Pos('a')));
   end loop;
if (b and (b - 1)) /= 0 then
      Ada.Text_IO.Put_Line("NO");
   else
      Ada.Text_IO.Put_Line("YES");
   end if;
end Main;

Answer 18

Perl, 77

my $b;while(my $c=ord(getc())-10){$b^=1<<($c-87);}print $b&($b-1)?"NO":"YES";

Answer 19

Lua, 82

s=io.read()repeat s,c=s:gsub('(.)(.-)%1','%2')until c<1 print(#s<2 and'YES'or'NO')

Удаляем (через regex) по 2 одинаковых символа пока удаляется, потом смотрим длину остатка.

Answer 20

F#, 141

printf (if System.Console.ReadLine()|>Seq.countBy id|>Seq.choose(snd>>fun c->if c%2=1 then Some c else None)|>Seq.length<2 then"yes"else"no")

Answer 21

C#, 250

string PalindromCheck(string inStr)
{
    int solo = 0;
    string ignoreList = "";
    foreach (char c in inStr)
    {
        if (ignoreList.Count(f => f == c) == 0 && inStr.Count(f => f == c) % 2 != 0)
            solo++;
        ignoreList += c;
        if (solo > 1)
            return "NO";
    }
    return "YES";                
}

Answer 22

LISP, 249 330

(defun c ()
  (let ((s (read-line)))
    (let* ((counts (loop for c across s
                         count c into char-counts
                         maximize char-counts))
           (odd-count (count-if (lambda (count) (oddp count)) counts))
           (result (if (< odd-count 2) "YES" "NO")))
      (format t result))))
(c)

upd 249

(defun c ()
  (let* ((b 0)
         (c (read-char)))
    (loop while (not (char= c #\Newline)) do
      (setq b (logxor b (ash 1 (- (char-code c) (char-code #\a)))))
    (if (logand b (- b 1))
        (format t "NO")
        (format t "YES"))))
(c)

Answer 23

Rust, 174 176

fn main(){let mut s=String::new();let _=std::io::stdin().read_line(&mut s);let mut b=0u128;for c in s.chars(){b^=1<<(c as u32)}println!("{}",if b&(b-1)==0{"YES"}else{"NO"});}

Компилируется без варнингов. За основу взял код на C.

UPDATE: Нашёл два лишних пробела.

Answer 24

Java, 270

В моём ответе два решения.

Код в обоих один и тот же, просто в одном все переменные названы односимвольно и всё записано в 1 строку.

Идея в том, что в строке-палиндроме может быть только один неповторяющийся символ. А если в строке чётное количество символов, то вообще ни одного.

Собственно код:

1. Нечитаемый, 270 символов.

interface I{static void main(String[]a){String s=new java.util.Scanner(System.in).next();int e=0;String r="YES";for(int i=0; i<s.length();i++){char c=s.charAt(i);if(!s.matches(".*"+c+".*"+c+".*")){++e;r=((e>1)||(e>0&&s.length()%2==0))?"NO":"YES";}}System.out.print(r);}}

2. Читаемый, 585 символов.

interface I {
    static void main(String[] args){
        String string = new java.util.Scanner(System.in).next();
        int repeatCharacters = 0;
        String result = "YES";
        for(int i = 0; i < string.length(); i++){
            char currentCharakter = string.charAt(i);
            if(!string.matches(".*" + currentCharakter  + ".*" + currentCharakter  + ".*")){
                ++repeatCharacters;
                result = ((repeatCharacters > 1) || (repeatCharacters > 0 && string.length() % 2 == 0))? "NO" : "YES";
            } 
        }
        System.out.print(result);
    }
}

Вывод (добавил цикл while, чтобы одним запуском кода продемонстрировать все тесты):

Answer 25

Java, 177

interface I{static void main(String[]s){System.out.print(new java.util.Scanner(System.in).next().chars().sorted().reduce(0,(a,b)->(a&0xFF)==b?a>>8:(a<<8)|b)>>8==0?"YES":"NO");}}

Отформатированная версия

interface I {
    static void main(String[] s) {
        System.out.print(
            new java.util.Scanner(System.in)
            .next()
            .chars()
            .sorted()
            .reduce(0, (a, b) -> (a & 0xFF) == b ? a >> 8 : (a << 8) | b)
            >> 8 == 0 ? "YES" : "NO");
    }
}

Answer 26

Java, 281

Не в погоне за минимизацией числа символов, но просто ещё не видел тут решения с использованием Java Stream API, поэтому решил написать своё.

import static java.util.stream.Collectors.*;
interface I {
    static void main(String[] a) {
        System.out.print(
                new java.util.Scanner(System.in).next().chars().boxed()
                        .collect(groupingBy(c -> c, counting()))
                        .values().stream().filter(v -> v % 2 != 0).count() > 1 ? "NO" : "YES"
        );
    }
}

Особенно интересно в сравнении с ответом от aepot: вроде я тут ничего лишнего в стримах не делал, но, как видно, с использованием C# LINQ данная задача решается заметно короче.

Answer 27

Python, 67

tio.run

s=0
for c in input():s^=1<<int(c,36)
print('NO'if s&(s-1)else'YES')

Answer 28

VBscript, 267

vbscript

В моём ответе два решения.

Код в обоих похожий. Различия такие:

• В одном (в нечитаемом) все переменные названы односимвольно и всё записано в меньшее количество строк.
• Во втором (читаемом) добавлена просьба ввести число, а не просто пустое диалоговое окно + добавлены иконки (для красоты).

Идея в том, что в строке-палиндроме может быть только один неповторяющийся символ. А если в строке чётное количество символов, то вообще ни одного.

Собственно код:

1. Нечитаемый, 267 символов

s=inputbox(""):dim a():For i=1to len(s):redim preserve a(i):a(i)=right(left(s,i),1):next:For each c in a:r=0:for i=1to UBound(a)
if a(i)=c then:r=r+1:end if:next:if r=1 then
l=l+1
if(l>1)or((l>0)and(len(s)mod 2=0))then
msgbox"NO":WScript.Quit
end if
end if:next:msgbox"YES"

2. Читаемый, 569 символов.

str = inputbox("Введите строку:")
dim array()
For i = 1 to len(str) 
    redim preserve array(i)
    array(i) = right(left(str, i), 1)
next
For each currentCharakter in array
    retreatCurrentCharakter = 0
    for i = 1 to UBound(array)
        if array(i) = currentCharakter then retreatCurrentCharakter = retreatCurrentCharakter + 1
    next
if retreatCurrentCharakter = 1 then 
    repeatCharacters = repeatCharacters + 1
    if(repeatCharacters > 1) or ((repeatCharacters > 0) and (len(str) mod 2 = 0)) then
        msgbox"NO", 16 
        WScript.Quit
    end if
end if

next
msgbox"YES", 64

Запуск читаемого варианта (ибо он красивей: с просьбой ввода строки и с иконками в окнах):

P.S: если у вас ОС windows, то вы можете сами запустить скрипт у себя на компьютере. Для этого создайте файл с расширением .vbs, cкопируйте код (лучше читаемый) и щёлкните по файлику два раза.

Answer 29

Python, 113

import functools as f
print('YNEOS'[len(f.reduce(lambda a,b:a[:-1]if a[-1:]==b else a+b,sorted(input()),))>1::2])

Бладорность Станиславу за YNEOS хак!

Answer 30

Kotlin, 135

fun main(){print(if(readLine()!!.chars().sorted().reduce(0, {a,b->if(a and 0xFF==b)a.shr(8)else a.shl(8)+b}) shr 8==0)"YES" else "NO")}

Отформатированная версия

fun main() {
 print(
  if(readLine()!!.chars().sorted().reduce(0, {
    a,b->if(a and 0xFF==b)a.shr(8)else a.shl(8)+b
  }) shr 8==0) "YES" else "NO")
}

В Котлине нет привычных & | << >> для битовых операций (& и | там вообще булевские), поэтому приходится использовать and or + и shl/shr

Что интересно, в некоторых случаях инфиксная форма x shl y короче, чем x.shl(y), а в других наоборот: a.shr(8)else короче, чем (a shr 8)else

Answer 31

Javascript, 81

s=>eval(Object.values([...s].reduce((r,c)=>(r[c]^=1,r),{})).join`+`)<2?'YES':'NO'

Проверка:

f=s=>eval(Object.values([...s].reduce((r,c)=>(r[c]^=1,r),{})).join`+`)<2?'YES':'NO'
for (var s of ["aab", "abc", "racecar", "aaa"]) {
  console.log(s, f(s))
}

Answer 32

Javascript, 87

s=>s.replace(/(.)((?=.*\1)|(?<=^(((?!\1).)*\1((?!\1).)*\1)*))/g,'').length<2?'YES':'NO'

f=s=>s.replace(/(.)((?=.*\1)|(?<=^(((?!\1).)*\1((?!\1).)*\1)*))/g,'').length<2?'YES':'NO'
for (var s of ["aab", "abc", "racecar", "aaa", 'aaaa']) {
  console.log(s, f(s))
}

Answer 33

Python, 341

def can_be_palindrome(s):
    letter_count = {}
for letter in s:
    if letter in letter_count:
        letter_count[letter] += 1
    else:
        letter_count[letter] = 1

odd_count = 0
for count in letter_count.values():
    if count % 2 != 0:
        odd_count += 1

if odd_count > 1:
    return "NO"
else:
    return "YES"


input_str = input("Введите строку: ").strip()
result = can_be_palindrome(input_str)
print(result)

Answer 34

Assembly, 537

section .data
    msg db "Введите строку: ",0
    len equ $ - msg
section .bss
    input resb 255
    is_palindrome_msg resb 1
section .text
    global _start
_start:
    mov eax, 4
    mov ebx, 1
    mov ecx, msg
    mov edx, len
    int 0x80
mov eax, 3
mov ebx, 0
mov ecx, input
mov edx, 255
int 0x80

mov esi, input

mov edi, esi
add edi, eax
dec edi

mov byte [is_palindrome_msg], 1


check_palindrome:
    cmp byte [esi], byte [edi]
    jne not_palindrome
inc esi
dec edi

cmp esi, edi
jae is_palindrome

jmp check_palindrome


not_palindrome:
    mov byte [is_palindrome_msg], 0
is_palindrome:
    mov eax, 4
    mov ebx, 1
    mov ecx, is_palindrome_msg
    mov edx, 1
    int 0x80
mov eax, 1
mov ebx, 0
int 0x80