หมายเลขวงโคจรคือตัวเลข "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 ของผู้นำ: เช่น 034482758620689655171724137931

นี่เป็นเพราะถ้าเลขศูนย์นำหน้าไม่อนุญาตให้ใช้กับตัวเลขดังนั้น 142857 จึงเป็นตัวเลขวงเดียวในรูปทศนิยม

เนื่องจากเป็น code-golf คำตอบที่สั้นที่สุดในจำนวนไบต์ชนะ!

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

ฉันไม่คิดว่าอัลกอริทึมนี้ต้องการคำอธิบายใด ๆ

TOL

ขอบคุณสำหรับคำแนะนำ: ชื่อที่แสดงทั่วไป Laikoni

ขอบคุณสำหรับการแก้ไข: Antony Hatchkins

แก้ไขไม่ได้ล้มเหลวใน "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

TOL

คำอธิบาย: อัลกอริทึมเช่นเดียวกับการส่ง Haskell ของฉัน

แก้ไขไม่ได้ล้มเหลวใน "33"

Mathematica, 81 ไบต์

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

ลองออนไลน์!

สตริงอินพุต

อินพุต

"010309278350515463917525773195876288659793814432989690721649484536082474226804123711340206185567"

เอาท์พุต

จริง