Їх не треба застосовувати.

Не сперечайтеся. Є два поняття магічних чисел у програмуванні.
* Просто константа-літерал, або обрана майже довільно, або й загальновідома. Причому в інших місцях ця ж стала може використовуватися для іншого. Наприклад, десь 4 це число можливих з'єднань на IP, а поруч - число байтів у  32-бітному слові. "Магічність" тут у простій незрозумілості й безумовно шкідлива.
* Спеціально підібране число, яке прискорює чи спрощує якісь операції. Як приклад, окрім цієї задачі, можна навести множники, які разом зі зсувом замінюють ділення на константу для тих архітектур, де апаратного ділення нема чи воно повільне. Та навіть поліном crc у певному сенсі "магічний". Навіть якщо це число іменоване (і відкоментоване у місці визначення), скрізь у програмі використовується по імені, а не літералом, — воно залишається "магічним".

Долучуся і я.

Задача формулюється так:
Є дев'ять однозначних чисел від 1 до 9.
Achtung!! Нуля серед них немає.
Позначимо їх буквами r,e,s,p,u,b,l,i,k.
Сподіваюсь, що всі зрозуміли що r не обов'язково дорівнює 1,
а може мати будь яке значення.
Треба знайти всі варіанти, в яких числа зв'язані співвідношенням:
r * es = pub = l * ik
тобто всі числа задіяні по разу
Наприклад, 3 * 58 = 174 = 29 * 6
або 2 * 78 = 156 = 4 * 39

Тобто їх всього два варіанта??

Я чекав більшого...

Я вибачаюсь, за невдале висловлювання. Я думав, що результатів буде при наймі два десятки...

Що стосується не 2, а 4, то від перестановки монжників добуток не міняється...

Наскільки я розумію, треба взяти всі можливі перестановки (а їх буде 9!)
і прогнати по умові.

haskell, перестановки, можливо комусь цікаво
(доповнення до попереднього повідомлення)

upd. по темі перестановок і комбінацій, ще таке писав-грався

combs1 :: Int -> [a] -> [[a]]
combs1 0 _  = return []
combs1 n xs = do
  y:xs2 <- tails xs
  ys <- combs1 (n - 1) xs2
  return (y:ys)

{-
ghci> combs1 2 [0,1,2,3]
[[0,1],[0,2],[0,3],[1,2],[1,3],[2,3]]
ghci> combs1 3 [0,1,2,3]
[[0,1,2],[0,1,3],[0,2,3],[1,2,3]]
ghci> combs1 4 [0,1,2,3]
[[0,1,2,3]]

ghci> combs1 3 [5,4..0]
[[5,4,3],[5,4,2],[5,4,1],[5,4,0],[5,3,2],[5,3,1],[5,3,0],[5,2,1],[5,2,0],[5,1,0],[4,3,2],[4,3,1],[4,3,0],[4,2,1],[4,2,0],[4,1,0],[3,2,1],[3,2,0],[3,1,0],[2,1,0]]
-}

+
я грався з генеруванням біткоін адрес, при роботі з безкінечними списками,
і дізнався, що є ще така функція, як replicateM

https://hackage.haskell.org/package/bas … replicateM

визначена ця функція в
https://hackage.haskell.org/package/bas … replicateM

replicateM        :: (Applicative m) => Int -> m a -> m [a]
{-# INLINABLE replicateM #-}
{-# SPECIALISE replicateM :: Int -> IO a -> IO [a] #-}
{-# SPECIALISE replicateM :: Int -> Maybe a -> Maybe [a] #-}
replicateM cnt0 f =
    loop cnt0
  where
    loop cnt
        | cnt <= 0  = pure []
        | otherwise = liftA2 (:) f (loop (cnt - 1))

при цьому виявив, що в цієї коробочно-бібліотечної функції є недолік

довелось мізкувати, як недолік цей виправити)
(гугл рулить)

replicateM2 0 _ = return []
replicateM2 n xs = do
   b <- replicateM2 (n-1) xs
   a <- xs
   return (b ++ [a])

задача №2 яка в 1 повідомленні

//згодиться?
#include <stdio.h>

int main()
{
    int v1 = 5;
    int v2 = 3;
    v1 += v2;
    v2 -= v1;
    v2 = -v2;
    v1 -= v2;
    printf("%i %i", v1, v2);
}

Чи можна перевірити, чи дані у однозв'язному списку є паліндромом, при цьому шоб O(n) по часу, і O(1) по використаній пам'яті?
Я поки шо не бачу рішення без занесення даних зі списку в масив. По часу виходе O(n/2), бо нам треба перевірити, чи дані в масиві дзеркальні, а для цього треба зробити n/2 перевірок, але по пам'яті виходе O(n), бо створюємо додатковий масив для збереження даних.
осьо код

/**
 * Definition for singly-linked list.
 * function ListNode(val, next) {
 *     this.val = (val===undefined ? 0 : val)
 *     this.next = (next===undefined ? null : next)
 * }
 */
/**
 * @param {ListNode} head
 * @return {boolean}
 */
var isPalindrome = function(head) {
    let current = head;
    let arr = [];
  
    do {
      arr.push(current.val);
    } while (current = current.next);
  
    const mid = arr.length / 2;
    for (let i = arr.length - 1; i >= mid; i--) {
      if (arr[i] !== arr[arr.length - i - 1]) return false;
    }
    return true;
};