Số tuần hoàn là một số chữ số "n" mà khi nhân với 1, 2, 3, ... n, kết quả là cùng một chữ số nhưng theo một thứ tự khác nhau.

Ví dụ: số 142,857 là một số tuần hoàn kể từ 142,857 x 2 = 285,714, 142,857 x 3 = 428,571, 142,857 x 4 = 571.428, v.v. Đưa ra một đầu vào số nguyên, xác định xem đó có phải là một số tuần hoàn hay không bằng cách xuất ra một giá trị trung thực nếu có và giá trị giả nếu không.

Ngoài ra, để rõ ràng, đầu vào có thể chứa số 0 hàng đầu: ví dụ 0344827586206896551724137931

Điều này là do, nếu các số 0 đứng đầu không được phép trên các số, thì 142857 là số tuần hoàn duy nhất trong số thập phân.

Vì nó là môn đánh gôn, nên câu trả lời ngắn nhất bằng byte sẽ thắng!

05AB1E , 9 6 byte

Cảm ơn Emigna vì đã tiết kiệm 3 byte!

ā*€{ïË

Giải trình:

ā        # 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

Sử dụng mã hóa 05AB1E . Hãy thử trực tuyến!

Trên thực tế , 18 byte

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

Hãy thử trực tuyến! (dự kiến ​​trích dẫn đầu vào)

Giải trình:

;;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 byte

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

Hãy thử trực tuyến!

Nhập số dưới dạng chuỗi.

PHP, 64 byte

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

Phiên bản trực tuyến

Haskell, 36 33 32 45 byte

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

Ví dụ sử dụng:

*Main> c "142857"
True

Tôi không nghĩ rằng thuật toán này cần bất kỳ lời giải thích.

TOL

Cảm ơn các đề xuất: Tên hiển thị chung, Laikoni.

Cảm ơn đã sửa: Antony Hatchkins.

EDIT Không, thất bại trên "33".

dc, 24 25 byte

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

In "0" nếu số không theo chu kỳ, nếu không thì "1". Yêu cầu số được nhập dưới dạng chuỗi.

Ví dụ sử dụng:

$ 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

Giải thích: Thuật toán tương tự như trình Haskell của tôi.

EDIT Không, thất bại trên "33".

Toán học, 81 byte

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

Hãy thử trực tuyến!

chuỗi đầu vào

Đầu vào

"01030927835051546463917525773195876288659793814432989690721649484545360824742268041237113113206206185567" "

Đầu ra

Thật