ความท้าทาย

กำหนดจำนวนเต็มสองค่าเป็นอินพุต ( xและy), ส่งออกxเป็นสตริงที่มีเลขศูนย์นำหน้าจำนวนมากที่จำเป็นเพื่อให้yอักขระมีความยาวโดยไม่มีเครื่องหมาย

กฎระเบียบ

• หากxมีมากกว่าyตัวเลขเอาท์พุทxเป็นสตริงโดยไม่มีการดัดแปลง

• ไม่ยอมรับเอาต์พุตเป็นจำนวนเต็มแม้ว่าจะไม่มีเลขศูนย์นำหน้า

• เมื่อxใดที่เป็นลบให้รักษา-ตามที่เป็นและดำเนินการกับค่าสัมบูรณ์

• ค่าลบyควรถือเป็น 0 ซึ่งหมายความว่าคุณแสดงผลxตามที่เป็น (แต่เป็นสตริง)

ตัวอย่าง:

IN: (1,1)   OUT: "1"
IN: (1,2)   OUT: "01"
IN: (10,1)  OUT: "10"
IN: (-7,3)  OUT: "-007"
IN: (-1,1)  OUT: "-1"
IN: (10,-1) OUT: "10"
IN: (0,0)   OUT: "0"
IN: (0,1)   OUT: "0"
IN: (0,4)   OUT: "0000"

รหัสที่สั้นที่สุดในการชนะไบต์ใช้ช่องโหว่มาตรฐาน

Japt , 13 8 ไบต์

รับอินพุตแรก ( x) เป็นสตริง

®©ùTV}'-

ลองมัน

บันทึกขนาดใหญ่ 5 ไบต์ด้วย ETHproductions

คำอธิบาย

การป้อนข้อมูลโดยนัยของสตริงและจำนวนเต็มU=xV=y

® }'-แยกออกUเป็นอาเรย์บนสัญลักษณ์ลบแผนที่เหนือมันและเข้าร่วมอีกครั้งกับสตริงที่มีสัญลักษณ์ลบ

©เป็นตรรกะและ ( &&) ดังนั้นหากองค์ประกอบปัจจุบันเป็น truthy (สตริงไม่ว่างเปล่า) แล้วแผ่นซ้าย ( ù) 0 ( T) Vความยาว

Pyth , 12 ไบต์

%"%0*d",+E>0

ลองที่นี่!

Python 2 , 29 ไบต์

lambda x,y:x.zfill(y+(x<'.'))

ลองออนไลน์!

เพียงแค่str.zfillมาเพื่อให้ใกล้เคียง

05AB1E , 11 10 ไบต์

อินพุตที่ได้รับเป็น amount_of_digits, number

ÎIÄg-×ì'-†

ลองออนไลน์!

คำอธิบาย

Î            # push 0 and first input
 IÄ          # push the absolute value of the second input
   g         # length
    -        # subtract, (input1-len(abs(input2))
     ×       # repeat the zero that many times
      ì      # prepend to the second input
       '-†   # move any "-" to the front

Python ขนาด 29 ไบต์

f(x,y)ใช้การป้อนข้อมูลเป็น ใช้%โอเปอเรเตอร์ของ Python

lambda x,y:'%0*d'%(y+(x<0),x)

ลองออนไลน์!

C #, 56 ไบต์

ลองออนไลน์!

a=>b=>(a<0?"-":"")+((a<0?-a:a)+"").PadLeft(b<0?0:b,'0')

Java (OpenJDK 8) , 47 ไบต์

x->y->"".format("%0"+((y<1?1:y)-(x>>31))+"d",x)

ลองออนไลน์!

ตอนแรกฉันคิดว่าง่ายสูงสุด 30 ตัวอักษร (ซึ่งค่อนข้างสั้นเมื่อจัดการสตริงใน Java) จากนั้นมีข้อยกเว้นเกิดขึ้น

JavaScript (ES6), 42

วนซ้ำพารามิเตอร์ตามลำดับย้อนกลับก่อนอื่น y แล้ว x และแกงกะหรี่

y=>r=x=>x<0?'-'+r(-x):`${x}`.padStart(y,0)

ทดสอบ

var F=
y=>r=x=>x<0?'-'+r(-x):`${x}`.padStart(y,0)

;`IN: (1,1)   OUT: "1"
IN: (1,2)   OUT: "01"
IN: (10,1)  OUT: "10"
IN: (-7,3)  OUT: "-007"
IN: (-1,1)  OUT: "-1"
IN: (10,-1) OUT: "10"
IN: (0,0)   OUT: "0"
IN: (0,1)   OUT: "0"
IN: (0,4)   OUT: "0000"`
.split(`\n`).map(r => r.match(/[-\d]+/g))
.forEach(([x,y,k])=>{
  o = F(y)(x)
  ok = o == k
  console.log(ok?'OK':'KO',x,y,'->', o)
})

Python 3.6 , 28 37 bytes

lambda x,y:f'{x:0{(y,0)[y<0]+(x<0)}}'

ลองออนไลน์! (กรณีทดสอบจากคำตอบของ Colera Su)

การใช้ประโยชน์จากวิธีใหม่ในการจัดรูปแบบสตริงใน python 3.6

+9 ไบต์เพื่อจัดการ y<0

bash, 27 , 25 ไบต์

-2 ไบต์ต้องขอบคุณ Bruce Forte

printf %0$[$2+($1<0)]d $1

ลองออนไลน์

Huskขนาด 12 ไบต์

Ö±Ωo≥⁰#±:'0s

ลองออนไลน์!

คำอธิบาย

Ö±Ωo≥⁰#±:'0s  Inputs are y=4 and x=-20
           s  Convert x to string: "-20"
        :'0   Prepend '0'
  Ω           until
      #±      the number of digits
   o≥⁰        is at least y: "00-20"
Ö±            Sort by is-digit: "-0020"
              Print implicitly.

R, 56 48 ไบต์

function(x,y)sprintf(paste0("%0",y+(x<0),"d"),x)

ลองออนไลน์!

-8 ไบต์ขอบคุณdjhurio

คำอธิบาย

• sprintf("%0zd",x)ส่งคืนxเป็นสตริงที่เติมด้วยศูนย์ที่มีความยาวz
• paste0("%0",y+(x<0),"d")สร้างสตริง"%0zd"ที่zเป็นyบวก 1 ถ้าxน้อยกว่าศูนย์
• ถ้าzน้อยกว่าจำนวนของตัวเลขในx, xมีการพิมพ์เป็นสตริงเป็นเป็น

อลิซ 23 ไบต์

/oRe./'+Ao
\I*tI&0-R$@/

ลองออนไลน์!

อินพุตควรแยกบรรทัดป้อนด้วยหมายเลขในบรรทัดแรกและความกว้างของบรรทัดที่สอง

คำอธิบาย

/...
\...@/

นี่เป็นกรอบปกติสำหรับโปรแกรมเชิงเส้นในโหมด Ordinal สิ่งเดียวที่จับได้ในกรณีนี้คือบิตนี้:

.../...
...&...

นี่ทำให้ IP เข้าสู่โหมด Cardinal ในแนวตั้งและทำงาน&ในโหมด Cardinal ก่อนที่จะกลับมาทำงานในโหมด Ordinal

แฉการควบคุมการไหลของซิกแซกจะให้

IRt.&'-A$o*eI/&/0+Ro@

I    Read the first line of input (the value) as a string.
R    Reverse the string.
t.   Split off the last character and duplicate it.
&    Fold the next command over this string. This doesn't really do anything,
     because the string contains only one character (so folding the next
     command is identical to executing it normally).
'-   Push "-".
A    Set intersection. Gives "-" for negative inputs and "" otherwise.
$o   If it's "-", print it, otherwise it must have been a digit which we
     leave on the stack.
*    Join the digit back onto the number. If the number was negative, this
     joins the (absolute value of the) number to an implicit empty string,
     doing nothing.
e    Push an empty string.
I    Read the width W.
/&/  Iterate the next command W times.
0    Append a zero. So we get a string of W zeros on top of the absolute
     value of the input number.
+    Superimpose. This takes the character-wise maximum of both strings
     and appends extraneous characters from the longer string. Since the
     string of zeros can never be larger than the digits in the input,
     the input itself will be uneffected, but extraneous zeros are appended,
     padding the string to the required length.
R    Reverse the result.
o    Print it.
@    Terminate the program.

ต่อไปนี้เป็นทางเลือกสองทางเช่น 23 ไบต์ซึ่งใช้ Cardinal H( abs ) เพื่อกำจัด-:

/R.I&0-RoH
\Ie#\'+Ao\@/

/R.H#/.+Xo
\Ie\I&0QRo@/

ในหลักการเหล่านี้เป็นคำสั่งสั้น แต่&ไม่พอดีกับตำแหน่งที่มีสตริง 1 #ตัวในกองดังนั้นเราจึงจำเป็นที่จะข้ามมันด้วย

C, 33 ไบต์

f(x,y){printf("%0*d",y+(x<0),x);}

ลองออนไลน์!

ถ่าน , 16 13 ไบต์

‹Ｎ⁰﹪⁺⁺%0ηd↔Ｉθ

ลองออนไลน์!

นี่เป็นระยะสั้นที่สุดที่ฉันสามารถใช้ Charcoal ได้โดยไม่ต้องพิมพ์ whitespaces นำหน้าหรือต่อท้าย อย่างน้อยตอนนี้ฉันเริ่มเข้าใจวิธีใช้Moduloฟังก์ชันเพื่อจัดรูปแบบสตริง

รหัส deverbosed เป็นดังนี้:

Print(Less(InputNumber(),0));    # Prints a - if the first input is less than 0
Print(Modulo(Add(Add("%0",h),"d"),Abs(Cast(q))));   # q: first input;  h: second input

• บันทึกขนาด 3 ไบต์ด้วย Neil!

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

\d+$
$*0
((\d)*),(?<-2>-0+|0)*(0*)
$3$1

ลองออนไลน์!

การป้อนข้อมูลควรคั่นด้วยเครื่องหมายจุลภาคด้วยหมายเลขแรกและความกว้างที่สอง

PHP, 45 ไบต์

printf("%0".($argv[2]+(0>$n=$argv[1])).d,$n);

หรือ

[,$n,$e]=$argv;printf("%0".($e+(0>$n)).d,$n);       # requires PHP 7.1 or later

ทำงานด้วย-nrหรือลองพวกเขาออนไลน์

Mathematica, 118 ไบต์

(j=ToString;If[#2<=0,j@#,If[(z=IntegerLength@#)>=#2,t=z,t=#2];s=j/@PadLeft[IntegerDigits@#,t];If[#>=0,""<>s,"-"<>s]])&

ลองออนไลน์!

Mathematica, 63 62 ไบต์

If[#<0,"-",""]<>IntegerString[#,10,Max[#2,IntegerLength@#,1]]&

ลองออนไลน์!

Excel, 29 ไบต์

การใช้TEXTฟังก์ชันของ Excel ("แปลงค่าเป็นข้อความในรูปแบบตัวเลขเฉพาะ")

xใน A1 yใน B1

=TEXT(A1,REPT("0",MAX(1,B1)))

อ็อกเทฟ 44 ไบต์

@(x,y)fprintf(['%0',num2str(y+(x<0)),'d'],x)

ลองออนไลน์!

Haskell , 54 ไบต์

x#y|s<-show$abs$x=['-'|x<0]++('0'<$[length s+1..y])++s

ลองออนไลน์!

Ruby , 31 28 ไบต์

ขอบคุณCarlสำหรับการบันทึก 3 ไบต์โดยใช้การแก้ไข

->x,y{"%0#{y+(x<0?1:0)}d"%x}

ลองออนไลน์!

Japt , 14 12 ไบต์

บันทึก 2 ไบต์ด้วย @ETHproductions

s r"%d+"_ù0V

ลองออนไลน์

PowerShellขนาด25 40 ไบต์

param($a,$b)$a|% *g $("D$b"*($b|% *o 0))

ลองออนไลน์!

คำอธิบาย

สิ่งนี้จะเรียก.ToString()หมายเลขที่มีสตริงรูปแบบที่สร้างขึ้น แต่คูณด้วย -1, 0 หรือ 1 โดยพิจารณาว่า$b( y) เป็นลบ, 0 หรือบวกตามลำดับ นี่คือการจัดการyค่าลบซึ่งสตริงรูปแบบไม่ได้ด้วยตัวเอง

ดูเหมือนว่าจะต้องมีการตัดตัวเลขลบในสถานะ()เพื่อให้ทำงานได้ซึ่งเป็นเพียงการเล่นโวหารเมื่อใช้ตัวอักษร ถ้าผ่านตัวแปรของจำนวนเต็มชนิดมันจะไม่ต้องการ

C # 6.0, 35 ไบต์

(x,y)=>(x.ToString($"D{y<0?0:y}"));

ทางเลือกอื่น ๆ (51 ไบต์)

(x,y)=>(x.ToString(string.Format("D{0}",y<0?0:y)));

ทำความสะอาด , 90 86 83 ไบต์

import StdEnv
@x y=if(y<0)"-"""+++{if(c>'-')c'0'\\c<-rjustify x[k\\k<-:toString y]}

ลองออนไลน์!

C (gcc) , 45 ไบต์

f(x,y){printf("%s%0*i","-"+(x>=0),y,abs(x));}

ลองออนไลน์!

คำอธิบาย

printf รูปแบบสามข้อโต้แย้ง:

%s      ->    "-"+(x>=0)
%0*i    ->    y
        ->    abs(x)

%s"-"+(x>=0)รูปแบบสตริง เป็นจริงเพียงที่อยู่บางอย่างเช่น"-" 41961441ในหน่วยความจำนี้จะมีลักษณะดังนี้:

MEMORY ADDRESS | 41961441  41961442 ...
VALUE          | 45 ('-')  0 (0x00) ...

เมื่อจัดรูปแบบเป็นสตริง C จะใช้ที่อยู่ (พูด 41961441) และรับตัวอักษรต่อไปจนกว่าจะมีค่าว่างเป็นไบต์ (0x00) เมื่อ x น้อยกว่าศูนย์ค่า"-"+(x>=0)จะมีที่อยู่เดิม (41961441) มิฉะนั้นx>=0จะเท่ากับ 1 ดังนั้นนิพจน์จะกลายเป็น"-"+1ซึ่งจะให้คะแนนเป็นโมฆะหลังจาก"-"นั้นซึ่งไม่ได้พิมพ์อะไรเลย

%0*iพิมพ์จำนวนเต็มเบาะกับจำนวนที่ระบุ0s yหมายถึงหมายเลขนี้ เราใส่abs(x)เพื่อหลีกเลี่ยงการลบในการโต้แย้ง

Perl, 25 + -nflag = 26 ไบต์

printf"%0*d",<>+($_<0),$_

ลองออนไลน์!

Perl 5, 22 + 1 (- n) = 23 ไบต์

printf"%0*d",<>+/-/,$_

ลองออนไลน์