循环数是“ 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是十进制中唯一的循环数字。

因为它是代码高尔夫球，所以最短答案以字节为单位！

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编码。在线尝试！

其实是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

Python，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

我认为该算法不需要任何解释。

托尔

感谢您的建议：通用显示名称Laikoni。

感谢您的指正：安东尼·哈奇金斯。

编辑否，在“ 33”上失败。

dc，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

托尔

说明：与我的Haskell提交算法相同。

编辑否，在“ 33”上失败。

Mathematica，81个字节

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

在线尝试！

输入字符串

输入值

“ 010309278350515463917525773195876288659793814432989690721649484536082474226804123711340206185567”

输出量

真正