ถาม:

ตรวจสอบว่าตัวเลขที่กำหนดเป็น a number staircaseหรือไม่

อินพุต:

จำนวนเต็ม (มากกว่า 0 และไม่ใช่ทศนิยม) หมายเหตุ: คุณสามารถรับอินพุตเป็นสตริงอาร์เรย์ของตัวเลข

ผลผลิต:

ค่าความจริง / เท็จขึ้นอยู่กับว่าหมายเลขเป็นบันไดหรือไม่

จำนวนบันได:

จำนวนบันไดเป็นจำนวนเต็มว่าเมื่ออ่านจากซ้ายไปขวา: การ

• เริ่มต้นด้วย 1
• ซึ่งอาจตามด้วย 2
• ซึ่งอาจตามมาด้วย 3
• และอื่น ๆ จนถึง n
• จากนั้นตัวเลขจะเริ่มต้นที่ n - 1
• จากนั้น n - 2
• จากนั้น n - 3
• และจนกว่าจะถึง 1

บันทึก :

อาจจะเป็นส่วนหนึ่งที่จะใช้ในการระบุว่าหากความยาว> เป็นมากกว่า 1. ถ้าเป็นคำสั่งที่จะต้องปฏิบัติตามที่เป็นอยู่ เช่น: 12321

ตัวอย่าง:

12321                          ---> true
12345654321                    ---> true
9                              ---> false
1                              ---> true
2                              ---> false
123421                         ---> false
112312318901323                ---> false
123456789101110987654321       ---> true

บันทึก :

ข้อมูลที่ป้อนให้จะเป็นจำนวนเต็มมากกว่า 0 เสมอและจะไม่เป็นทศนิยม เอาต์พุตของคุณต้องเป็นtruthy or falsyค่าขึ้นอยู่กับอินพุต

ข้อ จำกัด :

นี่คือcode-golfดังนั้นรหัสที่สั้นที่สุดในหน่วยไบต์ (สำหรับแต่ละภาษาการเขียนโปรแกรม) ชนะ

R , 97 ไบต์

function(n)"if"(n>1,{while({T=T+1;x=paste(c(1:T,T:2-1),collapse="");nchar(x)<nchar(n)})0;x==n},T)

ลองออนไลน์!

ใช้nเป็นcharacterหรือinteger; ใช้characterจะให้ผลลัพธ์ที่ถูกต้องสำหรับจำนวนเต็มที่ไม่สามารถจัดขึ้นได้อย่างแม่นยำเป็น double64

สร้างหมายเลขบันไดจนกว่าจะพบอย่างน้อยหนึ่งตราบเท่าที่nเป็นแล้วทดสอบเพื่อความเท่าเทียมกัน

เทียบเท่ากับ:

function(n)
    if(n > 1){
        T <- T + 1
        x <- paste(c(1:T,T:2-1),collapse="")
        while(nchar(x) < nchar(n)){
            T <- T + 1
            x <- paste(c(1:T,T:2-1),collapse="")
        }
        return(x == n)
    } else
        return(TRUE)

เยลลี่ 5 ไบต์

ŒḄ€Vċ

ลองออนไลน์!

คำเตือน: ช้ามาก (เร็วสำหรับ1และ121)! เตรียมที่DLจะทำให้เร็วขึ้น

JavaScript (ES6), 62 57 ไบต์

บันทึก 2 ไบต์ต้องขอบคุณ @ l4m2

ส่งคืนบูลีน

f=(s,k=1)=>(m=s.match(`^${k}(.*)${k}$`))?f(m[1],k+1):s==k

ลองออนไลน์!

อย่างไร?

เริ่มต้นด้วยk = 1เรามองหาkที่จุดเริ่มต้นและจุดสิ้นสุดของสตริงและสำทับซ้ำขั้นตอนที่เหลือตรงกลางสตริงย่อยกับk + 1 การเรียกซ้ำจะหยุดทันทีที่ไม่มีการแข่งขันอีกต่อไป การป้อนข้อมูลเป็นจำนวนบันไดถ้าสุดท้ายสตริงย่อยเท่ากับk

ตัวอย่างสำหรับ s = "1234321":

 k | s         | match     | s == k 
---+-----------+-----------+--------
 1 | "1234321" | 1(23432)1 | no     
 2 | "2343"    | 2(343)2   | no     
 3 | "343"     | 3(4)3     | no     
 4 | "4"       | null      | yes    

Haskell , 55 54 ไบต์

_{-1 ไบต์ขอบคุณLaikoni !}

f x=elem x[read$[1..z]++[z-1,z-2..1]>>=show|z<-[1..x]]

ลองออนไลน์!

Pyth, 13 12 ไบต์

/mjk+Sd_Stdl

บันทึกเป็นไบต์ด้วย RK
ลองที่นี่

คำอธิบาย

/mjk+Sd_Stdl
 m         lQ   For each d up to the length of the (implicit) input...
    +Sd_Std     ... get the list [1, 2, ..., d, d-1, ..., 1]...
  jk            ... concatenated.
/               Count how many times the input appears.

หากคุณต้องการให้อินพุทเป็นจำนวนเต็มจริงๆคุณสามารถใช้}Qmsjk+Sd_Stdแทนได้ แต่สิ่งนี้ช้ามากอย่างน่ากลัว

Python 2 , 69 ไบต์

f=lambda s,n=1,t='1',u='':t+':'>s>t<s*f(s,n+1,t+`n+1`,`n`+u)or s==t+u

ลองออนไลน์!

C # (Visual C # Interactive คอมไพเลอร์) , 138 107 102 ไบต์

bool t(List<int>s)=>s.Select((j,i)=>s[0]==1&&s.Last()==1&&(i==0||j+1==s[i-1]||j-1==s[i-1])).All(x=>x);

ลองออนไลน์!

คำอธิบาย:

bool t(List<int>s)=>
    s.Select((j,i) =>         //iterate over each item and store the return value
        s[0]==1&&s.Last()==1  //does the sequence start and end with 1?
        &&                    //AND
        (i==0                 //is it the first item?
        ||                    //OR
        j+1==s[i-1]           //is the item 1 greater than the previous?
        ||                    //OR
        j-1==s[i-1])          //is the item 1 smaller than the previous?
    ).All(x=>x);              //did all pass the criteria?

05AB1E , 9 8 ไบต์

L€L€ûJså

คำเตือน: ช้ามาก! เพิ่มgไปยังจุดเริ่มต้นเพื่อเพิ่มความเร็ว

ลองออนไลน์!

คำอธิบาย:

L           1..input
 €L         for each element, map to 1..element 
   €û       palindromize each element
     J      join each element from a list to a string
      så    is the input in that list?

คำอธิบายเก่า:

F           For [0 .. input] map over
 NL          Push 1..i
   û         Palindromize
    J        Join
     ¹       First input
      Q      Equal?
       }   end loop
        O  Sum.

ลองออนไลน์!

Python 2 , 77 ไบต์

lambda s,r=range:s in[''.join(map(str,r(1,k+2)+r(k,0,-1)))for k in r(len(s))]

ลองออนไลน์!

Stax , 14 ไบต์

Ç╗☻W╧ΩÆΘαφ←≤─♣

เรียกใช้และแก้ไขข้อบกพร่อง

ช้ามากสำหรับจำนวนที่มากขึ้น

ทูต , 57 55 46 ไบต์

{GenerateFirst[N@Join@Bounce@1&`:,`>=:`#&_]=_}

ลองออนไลน์! อ่านั่นมันเยี่ยมกว่ามาก

ด้วยGenerate(49 ไบต์):

{g@Generate[{g@_>=#_2}&_]=_}g:=N@Join@Bounce@1&`:

คำอธิบาย

{GenerateFirst[N@Join@Bounce@1&`:,`>=:`#&_]=_}
{                                            }   anonymous lambda, argument: _
 GenerateFirst[                  ,        ]      find the first element satisfying...
               N@Join@Bounce@1&`:                    this generation function
                                  `>=:`#&_           and this condition
                                           =_    is it equal to the input?

ฟังก์ชั่นการสร้างเพียงสร้างNหมายเลขบันไดที่ จากนั้นการค้นหานี้จะสิ้นสุดลงเมื่อ`>=:`#&_มีความพึงพอใจ ขยายตัวนี่คือ:

 `>=:`#&_
 (`>= : `#) & _      NB. remember _ is the input
                     NB. also, f:g is f[...Map[g, args]]
 { #_1 >= #_2 } & _
 { Size[_1] >= Size[_2] } & _
 { Size[_1] >= Size[the original input] }
 [n] -> { Size[n] >= Size[input] }

ดังนั้นสิ่งนี้จะสิ้นสุดลงเมื่อความยาวของเอาต์พุตของฟังก์ชันการสร้างเป็นอย่างน้อยของอินพุต ดังนั้นสิ่งนี้จะสร้างหมายเลข staircase ที่เล็กที่สุดอย่างน้อยเท่ากับหมายเลขอินพุท ดังนั้นหากอินพุตเป็นหมายเลขบันไดผลลัพธ์จะเป็นหมายเลขบันไดเดียวกันและเป็นหมายเลขบันไดยาวที่สุดถัดไป ดังนั้นการตรวจสอบอย่างง่าย ๆ ที่มีความเท่าเทียมกับอินพุตต้นฉบับนั้นเพียงพอสำหรับการพิจารณาว่าเป็นหมายเลขบันไดหรือไม่

ทูตขนาด 55 ไบต์

0&{If[#_2>#g[_],$[_+1,_2],_2=g!_]}g:=N@Join@Bounce@1&`:

ลองออนไลน์!ด้วยการเรียกซ้ำแผนเฒ่า

J , 40 ไบต์

1#.[:(<-:"_1<@([:;>:<@":@-|@i:)@<:@#\)":

ลองออนไลน์!

ฉันไม่ได้ค่อนข้างมีความสุขกับ soluiton นี้ - จำนวนมากและมวย@<

SNOBOL4 (CSNOBOL4) , 109 ไบต์

	N =INPUT
	X =L ='1'
C	R =LT(SIZE(L R),SIZE(N)) X R	:F(O)
	X =X + 1
	L =L X	:(C)
O	OUTPUT =IDENT(L R,N) 1
END

ลองออนไลน์!

อยากรู้อยากเห็นการเปลี่ยน'1'ในบรรทัดที่สองกับสาเหตุโปรแกรมที่จะล้มเหลวในการป้อนข้อมูลของ11

K , 36 ไบต์

{|/($x)~/:{,/$(1+!x),1+1_|!x}'1+!#x}

รับค่าสตริงเช่น "12321" เป็นพารามิเตอร์

ฟังก์ชั่นนี้เขียนขึ้นเป็นแอพพลิเคชั่นฟังก์ชั่นที่มีสายยาวf g h xดังนั้นโปรดอ่านเวอร์ชั่นที่ถูกคอมเม้นต์จากด้านล่าง {x+1}is lambda x: x+1, x คือชื่อพารามิเตอร์เริ่มต้น ตรวจสอบhttps://pastebin.com/cRwXJn7Zหรือความช่วยเหลือของล่ามสำหรับความหมายของผู้ปฏิบัติงาน

เราสร้างหมายเลขบันไดที่nอยู่ตรงกลางโดย{,/$(1+!x),1+1_|!x}:

{,/                      / join all the chars
   $                     / tostring each number
     (1+!x)              / take the range [0..x-1]; add 1 to each
            ,            / concat
             (1+1_|!x)}  / take the range [0..x-1]; reverse it; drop 1; add 1 to each

ฟังก์ชั่นทั้งหมด{|/($x)~/:{,/$(1+!x),1+1_|!x}'1+!#x}:

{|/                                   / any_is_true
   ($x)~/:                            / match the string with each of the generated staircases
          {,/$(1+!x),1+1_|!x}'        / make staircase number of each of the numbers
                                      / (note: the x in the inner lambda shadows the outer x)
                              1+!#x}  / take the range [1..length of the string, inclusive]

Haskell , 64 60 58 ไบต์

^{-6 ขอบคุณ @BMO!}

elem.show<*>(`take`[[1..n]++[n-1,n-2..1]>>=show|n<-[1..]])

ลองออนไลน์!

Perl 5 -lp , 49 ไบต์

$i++while s/^$i//;$i-=2;$i--while s/^$i//;$_||=$i

ลองออนไลน์!

0 = ความจริงอะไรก็ได้ = เป็นเท็จ

Java 10, 142 ไบต์

s->{int n=1,l,f=1;try{for(;;s=s.substring(l=(n+++"").length(),s.length()-l))if(!s.matches(n+".*"+n)&!s.equals(n+""))f=0;}finally{return f>0;}}

ลองออนไลน์

คำอธิบาย:

s->{                 // Method with String parameter and boolean return-type
  int n=1,           //  Stair integer, starting at 1
      l,             //  Length integer to reduce bytes
      f=1;           //  Result-flag, starting at 1
  try{for(;;         //  Loop until an error occurs
          s=s.substring(l=(n+++"").length(),s.length()-l))
                     //    After every iteration: remove `n` from the sides of the String
        if(!s.matches(n+".*"+n)
                     //   If the current String with the current `n` isn't a stair
           &!s.equals(n+""))
                     //   And they are also not equal (for the middle)
          f=0;       //    Set the flag to 0
   }finally{         //  After the error (StringOutOfBoundsException) occurred:
      return f>0;}}  //   Return whether the flag is still 1

Japt, 11 ไบต์

รับอินพุตเป็นสตริง

Êõõ mê m¬øU

ลองมัน

คำอธิบาย

                :Implicit input of string U
Ê               :Length of U
 õ              :Range [1,Ê]
  õ             :Range [1,el] for each element
    mê          :Map & palidromise
       m¬       :Map & join
         øU     :Contains U?

ทางเลือก10 9 ไบต์

วิธีการแก้ปัญหานี้ซึ่งสามารถป้อนเป็นสตริงหรือจำนวนเต็มจะส่งกลับอาร์เรย์ของตัวเลขสำหรับความจริงหรือในที่สุดก็โยนข้อผิดพลาดสำหรับเท็จถ้ามันไม่ทำลายเบราว์เซอร์ของคุณก่อนหน้านั้น ใช้ด้วยความระมัดระวัง

@¥Xê q}aõ

ลองมัน

เรติน่า45 45ไบต์

$
;1
+`^(.+)(.*)\1;\1$
$2;$.(_$1*
^(.+);\1$

ลองออนไลน์!ลิงก์มีกรณีทดสอบ แก้ไข: บันทึก 2 ไบต์ขอบคุณ @Leo คำอธิบาย:

$
;1

initialise n1ไป

+`^(.+)(.*)\1;\1$

ในขณะที่ sเริ่มต้นและสิ้นสุดด้วยn:

$2;$.(_$1*

ลบ nออกจากส่วนท้ายของsnและเพิ่มขึ้น

^(.+);\1$

ทดสอบว่าnเหลืออยู่หรือไม่

Regex (PCRE) , 92 ไบต์

^(1|\d(?=1|9)|[2-79](?=8)|[2-68](?=7)|[2-57](?=6)|[2346](?=5)|[235](?=4)|[24](?=3)|3(?=2))+$

ลองออนไลน์!

ฉันเปิดรับข้อเสนอแนะเพื่อปรับปรุงนี้

ขอบคุณผู้ใช้งานดังต่อไปนี้:

@Nooneishere
@LyricLy
@JoKing

Python 2 , 147 ไบต์

g=s=input()
f=1
o='1'==s[0]
while`f`==s[0]:s=s[len(`f`):];f+=1
f-=2
o&=`f`==s[0]
while s and`f`==s[0]:s=s[len(`f`):];f-=1
o&=f==0
o|=g=='1'
print o

ลองออนไลน์!