Cykliczna liczba to liczba cyfr „n”, które pomnożone przez 1, 2, 3, ... n, dają te same cyfry, ale w innej kolejności.

Na przykład liczba 142 857 jest liczbą cykliczną, ponieważ 142 857 x 2 = 285,714, 142 857 x 3 = 4228571, 142 857 x 4 = 571,428 i tak dalej. Biorąc pod uwagę liczbę całkowitą, określ, czy jest to liczba cykliczna, wypisując prawdziwą wartość, jeśli tak, i wartość fałsz, jeśli nie.

Ponadto, dla jasności, dane wejściowe mogą zawierać wiodące 0: np. 0344827586206896551724137931

Wynika to z faktu, że jeśli wiodące zera nie są dozwolone w liczbach, wówczas 142857 jest jedyną liczbą cykliczną w systemie dziesiętnym.

Ponieważ jest to golfowy kod, wygrywa najkrótsza odpowiedź w bajtach!

05AB1E , 9 6 bajtów

Dzięki Emigna za oszczędność 3 bajtów!

ā*€{ïË

Wyjaśnienie:

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

Wykorzystuje kodowanie 05AB1E . Wypróbuj online!

Właściwie 18 bajtów

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

Wypróbuj online! (oczekuje podanych danych)

Wyjaśnienie:

;;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 bajtów

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

Wypróbuj online!

Wprowadź liczby jako ciągi znaków.

PHP, 64 bajty

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

Wersja online

Haskell, 36 33 32 45 bajtów

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

Przykładowe użycie:

*Main> c "142857"
True

Nie sądzę, aby ten algorytm wymagał wyjaśnienia.

TOL

Dzięki za sugestie: Ogólna nazwa wyświetlana, Laikoni.

Dzięki za korektę: Antony Hatchkins.

EDYCJA Nie, nie udaje się na „33”.

dc, 24 25 bajtów

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

Wyświetla „0”, jeśli liczba nie jest cykliczna, w przeciwnym razie „1”. Wymaga wprowadzenia liczby jako ciągu.

Przykładowe użycie:

$ 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

Objaśnienie: Ten sam algorytm, co moje przesłanie Haskella.

EDYCJA Nie, nie udaje się na „33”.

Mathematica, 81 bajtów

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

Wypróbuj online!

ciąg wejściowy

Wejście

„010309278350515463917525773195876288659793814432989690721649484536082474226804123711340206185567”

Wynik

Prawdziwe