Số cầu thang là số nguyên dương x sao cho chữ số thứ n của nó (một chỉ số bắt đầu bằng chữ số có nghĩa nhỏ nhất) bằng x% (n + 1) . Đó là một chút của một miệng để xem xét một ví dụ. Lấy 7211311 , nếu chúng ta lấy dư lượng mô-đun của 7211311 trong phạm vi 2-8, chúng ta sẽ nhận được những điều sau:

7211311 % 2 = 1
7211311 % 3 = 1
7211311 % 4 = 3
7211311 % 5 = 1
7211311 % 6 = 1
7211311 % 7 = 2
7211311 % 8 = 7

Đây là những chữ số của 7211311 ! Do đó 7211311 là một số cầu thang.

Bài tập

Viết mã nhận khi được cung cấp một số dương làm đầu vào, sẽ xuất ra hai giá trị riêng biệt một nếu số đó là số cầu thang và số còn lại nếu không.

Đây là một cuộc thi golf-code, vì vậy mục tiêu của bạn là giảm thiểu số lượng byte trong mã nguồn của bạn.

Các trường hợp thử nghiệm

Dưới đây là 13 số cầu thang đầu tiên:

1, 10, 20, 1101, 1121, 11311, 31101, 40210, 340210, 4620020, 5431101, 7211311, 12040210

Haskell, 55 57 byte

f m|let n#x=n==0||n`mod`10==m`mod`x&&div n 10#(x+1)=m#2

Một cách tiếp cận khác với các giải pháp Haskell khác.

Cảm ơn xnor đã lưu 2 byte.

Brachylog , 25 21 16 14 byte

{it+₂;?↔%}ᶠ↔c?

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

Lần gửi Brachylog đầu tiên: D có lẽ rất vô duyên ... cảm ơn Leaky Nun và Fatalize đã khuyến khích và giúp đỡ môn golf này từ 25 đến hết 14. :) :)

Javascript, 42 41 39 38 byte

-4 byte nhờ @Shaggy và @ETH Productstions

s=>[...s].some(d=>s%i++^d,i=~s.length)

Điều này lấy số là một chuỗi và trả về falsenếu số đó là số cầu thang vàtrue nếu không.

Đoạn mã ví dụ:

f=
s=>[...s].some(d=>s%i++^d,i=~s.length)

function update() {
  o.innerText = f(document.getElementById("i").value)
}

<input id="i" type="number">
<button onclick="update()">Test</button>
<p id="o">

05AB1E , 6 byte

Mã số:

ā>%JRQ

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

Giải trình:

ā        # Get the range [1 .. len(input)]
 >       # Increment by 1
  %      # Vectorized modulo
   J     # Join the array into a single number
    RQ   # Reverse that number and check if it's equal to the original input

Haskell, 60 byte

Lấy số là số nguyên

x n|s<-show n=reverse s==(rem n.(+1)<$>[1..length s]>>=show)

Toán học, 60 byte

FromDigits@Reverse@Mod[#,Range@Length@IntegerDigits@#+1]==#&

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

@alephalpha đánh gôn tới 48

Toán học, 48 byte

FromDigits@Reverse@Mod[#,Range[2,Log10@#+2]]==#&

tiếp theo là 24120020

Python 2 , 54 byte

f=lambda n,x=0:10**x>n or(`n%(x+2)`==`n`[~x])*f(n,x+1)

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

Japt , 9 7 byte

Đưa đầu vào dưới dạng một chuỗi.

¥£%´JÃw

Kiểm tra nó

• 2 byte được lưu với sự trợ giúp từ ETHproductions.

Giải trình

Chúng tôi mặc nhiên lấy chuỗi làm đầu vào.

£   Ã

Bản đồ trên mỗi ký tự trong chuỗi.

´J

Jlà hằng số Japt cho -1và ´giảm nó 1 trên mỗi lần vượt qua ( --bằng JavaScript). Vì vậy, trên đường chuyền đầu tiên, điều này mang lại cho chúng ta -2.

%

Chúng tôi sử dụng giá trị đó để thực hiện thao tác modulo trên chuỗi đầu vào được tự động chuyển thành số nguyên trong quy trình. Trong JavaScript x%-ycho kết quả tương tự như x%y.

w

Đảo ngược chuỗi kết quả.

¥

Kiểm tra xem chuỗi mới có bằng với đầu vào ban đầu hay không và kết quả đầu ra là boolean.

Neim , 6 byte

𝐧ᛖ𝕄𝐫𝐣𝔼

Giải trình:

𝐧         Get the length of the input, then create an exclusive range
 ᛖ        Add 2 to each element
  𝕄       Modulus
    𝐫      Reverse
     𝐣     Join
      𝔼   Check for equality

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

Thạch , 7 byte

DJ‘⁸%⁼Ṛ

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

Python 2 , 56 byte

lambda x:all(`x%(i+2)`==`x`[~i]for i in range(len(`x`)))

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

Perl 6 , 32 byte

{$_ eq[~] $_ «%«(1+.comb...2)}

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

• .comb là số lượng ký tự trong biểu diễn chuỗi của đối số đầu vào $_ (nghĩa là số chữ số).
• 1 + .comb ... 2 là dãy số từ một lớn hơn số chữ số xuống còn 2.
• «%«là siêu bộ điều biến mô đun cung cấp phần còn lại khi $_, đối số đầu vào bên trái của nó, được chia cho mỗi phần tử của chuỗi bên phải : $_ % 2, $_ % 3, ....
• [~]nối các chữ số đó thành một số mới, được so sánh với đối số đầu vào bằng toán tử đẳng thức chuỗi eq.

PHP , 43 byte

for(;$r<$a=$argn;)$r=$a%~++$i.$r;echo$r>$a;

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

PHP , 44 byte

in 1 cho đúng và không có gì sai

for(;$r<$a=$argn;)$r=$a%~++$i.$r;echo$r==$a;

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

Bình , 13 byte

-1 byte nhờ Okx .

qsjk_m%QhdSl`

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

Giải trình

             QQ    # Implicit input
          Sl`Q     # Generate [1, len(str(Q))]
     m%Qhd         # For digit d in above range, perform Q % (d + 1)
 sjk_              # Reverse, then convert to number
q             Q    # Test equality with input

Giải pháp thay thế , vẫn là 13 byte (nhờ karlkastor )

qi_.e%Q+2k`QT

Hãy thử trực tuyến! Về cơ bản, đó giống như giải pháp đầu tiên, ngoại trừ việc nó sử dụng iđể chuyển đổi từ mảng số sang số và phạm vi được tạo khác nhau.

C ++, 104 byte

1) phiên bản gốc:

int main(){int N,T,R=1;cin>>N;T=N;for(int i=1;i<=log10(N)+1;i++){if(N%(i+1)!=T%10){R=0;}T/=10;}cout<<R;}

2) ở dạng dễ đọc:

int main()
{
    int N, T, R = 1;

    cin >> N;
    T = N;

    for (int i = 1; i <= log10(N) + 1; i++)
    {
        if (N % (i + 1) != T % 10)
        {
            R = 0;
        }

        T /= 10;
    }

    cout << R;
}

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

Pari / GP , 42 byte

n->Vecrev(s=digits(n))==[n%d|d<-[2..#s+1]]

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

Python 2 , 66 60 58 57 byte

• Cảm ơn @Leaky nun cho 6 byte: loại bỏ không cần thiết x and( không nên kiểm tra 0)
• Cảm ơn @Einkorn Enchanter cho 1 byte: sử dụng enumerate

lambda x:all(a==`x%(i+2)`for i,a in enumerate(`x`[::-1]))

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

Python 3: 63 byte

lambda m:all(int(x)==m%(n+2)for n,x in enumerate(str(m)[::-1]))

Nếu tôi có thể đếm số lần tôi muốn 'liệt kê' thì ngắn hơn ...

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

Java (OpenJDK 8) , 60 byte

n->{int m=2,r=0,t=1;for(;n>=t;t*=10)r+=n%m++*t;return r==n;}

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

Một phiên bản không có chuỗi.

Java 8, 156 149 byte

interface B{static void main(String[]s){String f="";for(int i=1;i<=s[0].length();)f=new Long(s[0])%++i+f;System.out.print(f.equals(s[0]));}}

Ung dung:

interface B {
    static void main(String[] s) {
        String f = "";
        for (int i = 1; i <= s[0].length();)
            f = new Long(s[0]) % ++i + f;
        System.out.print(f.equals(s[0]));
    }
}

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

CẬP NHẬT:
-7 byte : loại bỏ vô dụng {}và được thay thế Integer.parseInt(...)bằng new Integer(...)
-9 byte : nhờ Kevin Cruijssen, đã loại bỏ một loạt các vô dụng (), được sử dụng Longthay vì Integervà printthay vì println. Cảm ơn Kévin!

Than , 20 15 byte

⌊Ｅθ⁼ιＩ﹪Ｉθ⁻⁺¹Ｌθκ

Hãy thử trực tuyến! Đầu ra -cho một số cầu thang, không có gì khác. Liên kết là phiên bản dài dòng của mã.

Python 2, 61 byte

lambda x:[`x%(n+2)`for n in range(len(`x`))][::-1]==list(`x`)

q / kdb +, 34 byte

Dung dịch:

{s~raze($)x mod'2+(|)(!)(#)s:($)x}

Thí dụ:

q){s~raze($)x mod'2+(|)(!)(#)s:($)x}7211311 / this is a staircase number (true)
1b
q){s~raze($)x mod'2+(|)(!)(#)s:($)x}7211312 / this is not (false)
0b
q)t(&){s~raze($)x mod'2+(|)(!)(#)s:($)x}each t:1 + til 1000000 / up to a million
1 10 20 1101 1121 11311 31101 40210 340210

Giải trình:

Truyền số đầu vào thành một chuỗi, đếm từ 0..thần của chuỗi, thêm 2 cho tất cả, đảo ngược số đó và đưa từng số vào modcùng với đầu vào ban đầu. Truyền kết quả của mod thành một chuỗi và giảm danh sách, kiểm tra xem nó có bằng chuỗi của số đầu vào không:

{s~raze string x mod'2 + reverse til count s:string x} / ungolfed solution
{                                                    } / lambda function
                                           s:string x  / convert input to string, save as s
                                     count             / return length of this string
                                 til                   / like python's range() function
                         reverse                       / reverses the list
                     2 +                               / adds two to each element in the list
               x mod'                                  / ' is each both, so feeds x, and each element of the list to modulo function
        string                                         / converts output list to string list ("7";"2";"1"..etc)
   raze                                                / reduce list ("721...")
 s~                                                    / is s equal to this reduced list, returns boolean

Ghi chú:

Hầu hết các giải pháp là để tạo 2,3,4..danh sách, tôi có một giải pháp khác ít công cụ hơn, nhưng kết thúc là 37 byte sau khi chơi golf:

{s~x mod'reverse 2 + til count s:("J"$) each string x} / ungolfed
{s~x mod'(|)2+til(#)s:("J"$)each($)x}                  / golfed

Clojure, 75 byte

#(=(sort %)(sort(map(fn[i c](char(+(mod(Integer. %)(+ i 2))48)))(range)%)))

Đầu vào là một chuỗi, sử dụng mapvà dấu cuối %kết thúc ngắn hơn for[i(range(count %))]cách tiếp cận.

Haskell, 62 byte

f x=and$zipWith(==)(reverse$show x)$map(head.show.mod x)[2..]

Thay vì đảo ngược danh sách các mô-đun (vô hạn), nó cắt xén danh sách bằng cách nén nó với chuỗi phản hồi chuỗi ngược của tích phân x, sau đó nó đảm bảo là phần tử thông minh.

Perl 5 , 41 byte

39 byte mã + 2 cờ -pa

map{$\||=$_!=$F[0]%++$n}0,reverse/./g}{

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

Đầu ra không có gì (undef) cho số cầu thang, 1 cho bất cứ thứ gì khác