20

Циклическое число - это число «n» цифр, которое при умножении на 1, 2, 3, ... n приводит к тем же цифрам, но в другом порядке.

Например, число 142 857 является циклическим числом, поскольку 142 857 x 2 = 285 714, 142 857 x 3 = 428 571, 142 857 x 4 = 571 428 и т. Д. Для заданного целочисленного ввода определите, является ли оно циклическим числом, путем вывода истинного значения, если оно есть, и ложного значения, если нет.

Кроме того, для ясности, ввод может содержать начальные 0: например, 0344827586206896551724137931

Это связано с тем, что если начальные нули не разрешены для чисел, то 142857 является единственным циклическим числом в десятичной дроби.

Поскольку это код-гольф, самый короткий ответ в байтах выигрывает!

code-golf number arithmetic

— FantaC
источник

1

Привет и добро пожаловать в PPCG. Это не плохой вопрос, но если вы посмотрите на некоторые недавно опубликованные вопросы, я думаю, вы увидите, что это может быть лучше. В частности, для сообщества было бы очень полезно, если бы вы предоставили больше контрольных примеров для работы. При публикации будущих проблем, пожалуйста, подумайте об использовании песочницы .

— FryAmTheEggman

3

05AB1E , 9 6 байтов

Спасибо Emigna за сохранение 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 . Попробуйте онлайн!

— Аднан
источник

1

В чем причина ¦‚˜?

— kalsowerus

1

@kalsowerus Если вход имеет начальный ноль, умножение на 1 приведет к его исчезновению, что не сработает 0588235294117647.

— Аднан

2

@tfbninja О, хорошо, добавление лидирующих нулей после умножения также что-то, чтобы принять во внимание? Это отдельные отсортированные результаты, которые я получаю после умножения, с некоторыми отсутствующими ведущими нулями, что, вероятно, указывало бы на проблему здесь.

— Аднан

1

Рассмотрим число, 0212765957446808510638297872340425531914893617указанное в комментариях к другому ответу. Глядя на отсортированные числа, я бы предположил, что он возвращает false, но при удалении нулей он становится истинным.

— Эминья

2

@tfbninja Являются ли результаты теста Эмигны правдивыми или ложными?

— Аднан

4

На самом деле , 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

— Mego
источник

1

@tfbninja Я уже писал об этом в начале о нулях. У меня есть другое 15-байтовое решение, которое будет работать с ведущими нулями, которое я скоро отредактирую.

— Мего

1

Какую кодировку символов вы используете для достижения 18 байтов? Я попробовал UTF-8, и он весил 32 байта. РЕДАКТИРОВАТЬ: О, я вижу, это кодовая страница 437.

— Псевдоним

3

Python, 86 байт

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

Попробуйте онлайн!

Введите числа в виде строк.

— Уриэль
источник

1

@tfbninja должен работать на любом питоне (2 и 3)

— Уриэль

1

почему это не с 0212765957446808510638297872340425531914893617?

— J42161217

@ Jenny_mathy теперь это не так.

— Уриэль

2

PHP, 64 байта

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

Онлайн версия

— Йорг Хюльсерманн
источник

2

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

Спасибо за предложения: общее отображаемое имя, Laikoni.

Спасибо за исправление: Энтони Хэтчкинс.

РЕДАКТИРОВАТЬ Нет, не на «33».

— Псевдоним
источник

1

это работает для 052631578947368421?

— J42161217

Да, в этом случае возвращается True.

— Псевдоним

2

Сохраните несколько байтов, заменив ns на n

— Общее отображаемое имя

1

Вы можете использовать <1вместо ==0? Также здесь есть ссылка TIO: попробуйте онлайн!

— Лайкони

Как насчет 111111?

— Энтони Хэтчкинс

2

постоянный ток, 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.

РЕДАКТИРОВАТЬ Нет, не на «33».

— Псевдоним
источник

1

Mathematica, 81 байт

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

Попробуйте онлайн!

строка ввода

вход

"010309278350515463917525773195876288659793814432989690721649484536082474226804123711340206185567"

Выход

Правда

— J42161217
источник

FromDigitsкорочеToExpression

— JungHwan Мин

1

потому что в этом задании вам нужно работать с такими входами, как 034324 ...

— J42161217

Это циклическое число?

05AB1E , 9 6 байтов

На самом деле , 18 байт

Python, 86 байт

PHP, 64 байта

Haskell, 36 33 32 45 байт

постоянный ток, 24 25 байт

Mathematica, 81 байт