Циклічне число - це число цифр "n", яке при множенні на 1, 2, 3, ... n призводить до тих самих цифр, але в іншому порядку.

Наприклад, число 142,857 - циклічне число, оскільки 142,857 х 2 = 285,714, 142,857 х 3 = 428,571, 142,857 х 4 = 571,428 тощо. З урахуванням цілого введення, визначте, чи це циклічне число, вивівши значення "truthy", якщо воно є, і помилкове значення, якщо "ні".

Також, щоб бути зрозумілим, вхід може містити провідні 0, наприклад: 0344827586206896551724137931

Це тому, що, якщо провідні нулі не дозволені на числівниках, то 142857 є єдиним циклічним числом у десяткових числах.

Оскільки це код-гольф, найкоротша відповідь у байтах виграє!

05AB1E , 9 6 байт

Дякуємо Еміньї за збереження 3 байтів!

ā*€{ïË

Пояснення:

ā        # Push range(1, len(input) + 1)
 *       # Multiply by the input
  €{     # Sort each element
    ï    # Convert to int to remove leading zeros
     Ë   # Check if all elements are equal

Використовує кодування 05AB1E . Спробуйте в Інтернеті!

Власне , 18 байт

;;ru@≈*♂$♂S♂≈╔@S≈=

Спробуйте в Інтернеті! (очікує, що цитуються дані)

Пояснення:

;;ru@≈*♂$♂S♂≈╔@S≈=
;;                  duplicate input twice
  ru                range(1, len(input)+1)
    @≈              convert input to an integer
      *             multiply input by each element in range
       ♂$♂S♂≈       convert each product to a string, sort the digits, and convert back to int
             ╔      uniquify: remove duplicate elements
              @S≈   sort input and convert to int
                 =  compare equality

Пітон, 86 байт

lambda n:all(sorted(n)==sorted(str(int(n)*i).zfill(len(n)))for i in range(2,len(n)+1))

Спробуйте в Інтернеті!

Введіть числа у вигляді рядків.

PHP, 64 байти

for(;$i++<9;)$r+=($c=count_chars)($argn)==$c($argn*$i);echo$r>1;

Інтернет-версія

Haskell, 36 33 32 45 байт

c n=let l=length n in(10^l-1)`div`read n==l+1

Приклад використання:

*Main> c "142857"
True

Я не думаю, що цей алгоритм не потребує пояснень.

TOL

Дякуємо за пропозиції: Загальне відображуване ім’я, Лайконі.

Дякуємо за виправлення: Антоні Хеткінс.

EDIT Nope, не працює на "33".

постійний струм, 24 25 байт

[1]sa0?dZd10r^1-r1+/rx=ap

Друкує "0", якщо число не циклічне, інакше "1". Потрібен номер, який потрібно ввести як рядок.

Приклад використання:

$ echo "[052631578947368421]" | dc -e '[1]sa0?dZd10r^1-r1+/rx=ap'
1
$ echo "[052631578947368422]" | dc -e '[1]sa0?dZd10r^1-r1+/rx=ap'
0

TOL

Пояснення: той же алгоритм, що і в моєму поданні Haskell.

EDIT Nope, не працює на "33".

Математика, 81 байт

Length@Union@PadLeft[Sort/@IntegerDigits[ToExpression@#*Range@StringLength@#]]<2&

Спробуйте в Інтернеті!

вхідний рядок

Вхідні дані

"010309278350515463917525773195876288659793814432989690721649484536082474226804123711340206185567"

Вихідні дані

Правда