Найти число-палиндром максимальной длины, которое можно составить из цифр входной строки

/******************************************************************************/
/*                          Verevkin, CodeBlocks c++                          */
/******************************************************************************/
 
// d:\Soft\CodeBlocks\share\CodeBlocks\templates\wizard\console\cpp\main.cpp
//#include <iostream> <-- раскомментить, если надо
 
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <ctype.h>
 
// извлечение количеств каждой цифры среди символов строки src
unsigned get_counts(char* src, unsigned* dest)
{
  memset(dest, 0, 10 * sizeof(unsigned));
  unsigned total = 0;
 
  for (; *src; src++)
    if (isdigit(*src))
      dest[*src - 0x30]++, total++;
 
  return total;
}
 
//кол-во чисел, извлечённых из строки
unsigned get_total(unsigned* counts)
{
  unsigned idx = 10, total = 0;
  while (idx--) total += *counts++;
  return total;
}
 
// минимальная цифра из доступных
unsigned peek(unsigned* counts)
{
  for (unsigned digit = 0; digit != 10; digit++)
    if (counts[digit]) return digit;
  return 10; // пусто
}
 
// пока для длины, равной кол-во цифр
char* construct_palindrome(unsigned* counts)
{
  unsigned max_len = get_total(counts); // максимальная длина палиндрома
  char* demo = new char[max_len + 1];
 
  while (max_len)
  {
    bool found = false;
    unsigned temp[10], dig_idx = 0;
    memcpy(temp, counts, sizeof(temp)); // расходная копия (для наглядности)
    memset(demo, 'x', max_len);         // ххххххххххх
    demo[max_len] = 0;
 
    // единственная цифра
    if (max_len == 1)
    {
      demo[0] = 0x30 + peek(temp);
      return demo;
    }
 
    // заполнение палиндрома с обоих концов
    for (unsigned idx = 1; !found && idx != 11; idx++)
    {
      while (!found && temp[idx % 10] > 1)
      {
        demo[dig_idx] = 0x30 + (idx % 10);
        demo[max_len - dig_idx - 1] = demo[dig_idx];
        printf("%s\n", demo);
        temp[idx % 10] -= 2;
 
        // условие выхода - палиндром найден (кроме средней цифры для нечёт. кол-ва):
        found = (++dig_idx == max_len >> 1);
      }
    }
 
    // для чётного количества - сразу на выход:
    if (found && ~max_len & 1) break;
 
    // для нечётного кол-ва - поиск цифры в середину:
    if (found && max_len & 1)
    {
      unsigned center_digit = peek(temp);
      if (center_digit < 10)
      {
        demo[dig_idx] = center_digit + 0x30; // центральная цифра есть
        break; // while
      }
    }
 
    max_len--;// иначе - укорачиваю длину палиндрома и по-новой.
  } // while
 
  return demo; // будет непустым, если на входе хотя бы одна цифра есть
}
 
 
int main(int argc, char** argv)
{
  system("chcp 65001 & cls");
//  int x;
  char key, src[1024];
  unsigned total = 0;
  unsigned counts[10];
 
  do
    {
      printf("\n ?? Введи строку: ");
      gets(src);
      //strcpy(src, "for i:=99921 downto 2");
 
    total = get_counts(src, counts);
    printf(" # Найдено цифр в строке: %u\n", total);
    if (total) printf(" # палиндром: \x22%s\x22.\n", construct_palindrome(counts));
 
      printf("\n >> Ещё разок? [y/n]: ");
      key = getch();
    }
    while (key != 'n' && key != 'N' );
 
  printf("\n >> Жмакни чо-нить для выхода...");
  getch(); // ожидание клавиши
 
  return 0;
}

/******************************************************************************/
/*                          Verevkin, CodeBlocks c++                          */
/******************************************************************************/
 
// d:\Soft\CodeBlocks\share\CodeBlocks\templates\wizard\console\cpp\main.cpp
//#include <iostream> <-- раскомментить, если надо
 
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <ctype.h>
 
// извлечение количеств каждой цифры среди символов строки src
unsigned get_counts(char* src, unsigned* dest)
{
  memset(dest, 0, 10 * sizeof(unsigned));
  unsigned total = 0;
 
  for (; *src; src++)
    if (isdigit(*src))
      dest[*src - 0x30]++, total++;
 
  return total;
}
 
//кол-во чисел, извлечённых из строки
unsigned get_total(unsigned* counts)
{
  unsigned idx = 10, total = 0;
  while (idx--) total += *counts++;
  return total;
}
 
// минимальная цифра из доступных
unsigned peek(unsigned* counts)
{
  for (unsigned digit = 0; digit != 10; digit++)
    if (counts[digit]) return digit;
  return 10; // пусто
}
 
// вставка символа с обеих сторон палиндрома
char* add_digit(char* dest, char digit, unsigned position)
{
  dest[position]                    = 0x30 + digit;
  dest[strlen(dest) - position - 1] = 0x30 + digit;
  printf("%s\n", dest);
  return dest;
}
 
// пока для длины, равной кол-во цифр
char* construct_palindrome(unsigned* counts)
{
  unsigned max_len = get_total(counts); // максимальная длина палиндрома
  char* demo = new char[max_len + 1];
 
  while (max_len)
  {
    bool found = false;
    unsigned temp[10], dig_idx = 0;
    memcpy(temp, counts, sizeof(temp)); // расходная копия (для наглядности)
    memset(demo, 'x', max_len);         // xxxxxxxxxxx
    demo[max_len] = 0;
 
    // единственная цифра
    if (max_len == 1)
    {
      demo[0] = 0x30 + peek(temp);
      return demo;
    }
 
    // первая/последняя цифра
    for (unsigned idx = 1; !found && idx != 10; idx++)
      if (temp[idx] > 1)
      {
        add_digit(demo, idx, dig_idx++); // вставка символа с обеих сторон палиндрома
        temp[idx] -= 2;
        break; // первая цифра найдена
      }
 
    // остальные цифры
    for (unsigned idx = 0; !found && idx != 10; idx++)
      while (!found && temp[idx] > 1)
      {
        add_digit(demo, idx, dig_idx); // вставка символа с обеих сторон палиндрома
        temp[idx] -= 2;
 
        // условие выхода - палиндром найден (кроме средней цифры для нечёт. кол-ва):
        found = (++dig_idx == max_len >> 1);
      }
 
    // для чётного количества - сразу на выход:
    if (found && ~max_len & 1) break;
 
    // для нечётного кол-ва - поиск цифры в середину:
    if (found && max_len & 1)
    {
      unsigned center_digit = peek(temp);
      if (center_digit < 10)
      {
        demo[dig_idx] = center_digit + 0x30; // центральная цифра есть
        break; // while
      }
    }
 
    max_len--; // иначе - укорачиваю длину палиндрома и по-новой.
  } // while
 
  return demo; // будет непустым, если на входе хотя бы одна цифра есть
}
 
 
int main(int argc, char** argv)
{
  system("chcp 65001 & cls");
  char key, src[1024];
  unsigned total = 0;
  unsigned counts[10];
 
  do
    {
      printf("\n ?? Введи строку: ");
      gets(src);
      //strcpy(src, "for i:=99921 downto 2");
      //strcpy(src, "22335000");
 
    total = get_counts(src, counts);
    printf(" # Найдено цифр в строке: %u\n", total);
    if (total) printf(" # палиндром: \x22%s\x22.\n", construct_palindrome(counts));
 
      printf("\n >> Ещё разок? [y/n]: ");
      key = getch();
    }
    while (key != 'n' && key != 'N' );
 
  printf("\n >> Жмакни чо-нить для выхода...");
  getch(); // ожидание клавиши
 
  return 0;
}