Nhiệm vụ của bạn là tạo ra một chương trình hoặc chức năng tạo ra một dây kéo có độ dài 10 dòng. Mỗi dòng của khóa kéo được thể hiện bằng hai dấu gạch ngang --:

--
--
--
--
--
--
--
--
--
--

Chương trình / chức năng sẽ lấy phần trăm (chia hết cho 10) làm đầu vào và đầu ra sẽ là khóa kéo "giải nén" (dấu gạch ngang) từ đầu theo tỷ lệ phần trăm, hiển thị mức 1 được lập chỉ mục, mức thấp nhất được lặp lại 2 lần, với tất cả các cấp trước lặp lại 4, 6, 8, ... vv. lần, trong khi giữ đáy của khóa kéo ở giữa.

Ví dụ

>>10%
-11-
 --
 --
 --
 --
 --
 --
 --
 --
 --

>>50%
-1111111111-
 -22222222-
  -333333-
   -4444-
    -55-
     --
     --
     --
     --
     --

>>100%
-11111111111111111111-
 -222222222222222222-
  -3333333333333333-
   -44444444444444-
    -555555555555-
     -6666666666-
      -77777777-
       -888888-
        -9999-
         -10-

Đầu vào (phần trăm) có thể được định dạng theo bất kỳ cách nào bạn thích (50%, .5, 50, 5 [zero ngụ ý], v.v.) và nó sẽ luôn nằm trong phạm vi từ 0 đến 100 và chia hết cho 10. Khoảng cách trong ví dụ phải được bảo tồn trong đầu ra của bạn.

Con trăn 2 - 184 151 146 byte

def r(n):
  n/=10
  for i in range(1,11):
    if n<0:print"%s--"%p
    elif i>9:print" %s-10-"%p
    else:p=" "*~-i;print"%s-%s-"%(p,`i`*2*n);n-=1

Số cuối cùng hơi rối với tôi một chút. Tôi có thể loại bỏ câu lệnh if thứ hai nếu tôi nhìn vào nó sau.

EDIT: Thx đến mbomb007 để xóa 3 byte. Cảm ơn charredgrass về các mẹo định dạng để giúp loại bỏ rất nhiều byte! :-D Cảm ơn TheBikingViking vì đã giúp đỡ thêm hai byte!

Python 2, 74 byte

n=input()
x=0
exec"print' '*x+'-'+`x+1`*(n-x<<1-x/9)+'-';x=min(x+1,n);"*10

Đã lưu hai byte bằng cách execxác định một vòng lặp, nhờ Dennis.

EDIT: Tôi đã thực hiện một cách tiếp cận hơi khác và lưu thêm hai byte.

PowerShell v2 +, 130 120 116 110 byte

param($n)$i=0;10..1|%{" "*$i+(("-"+("$($i+1)"*([math]::Max($n-10+$_,0))*2)),"-10")[$n-$_-eq9]+"-";$i+=$i-ne$n}

_{Chỉnh sửa 1 - Đánh gôn 10 byte bằng cách loại bỏ $xbiến và làm lại một chút cách thức chuỗi được tạo.
Chỉnh sửa 2 - Đánh gôn thêm 4 byte bằng cách làm lại cách đầu vào xảy ra và bằng cách làm lại cách $itính từng vòng lặp.
Chỉnh sửa 3 - Đã lưu 6 byte bằng OP cho phép nhập dưới dạng 0..10, do đó không cần chia cho 10.}

Đáng ngạc nhiên là khó khăn!

Đưa đầu vào như 1, 5vv, được lưu trữ trong $n. Đặt $ibiến của trình trợ giúp (một trong những lần rất hiếm mà một biến cần được khởi tạo 0trong PowerShell), sau đó bắt đầu một vòng lặp từ 10đến1 .

Mỗi lần lặp, chúng tôi thiết lập bắt đầu chuỗi của chúng tôi với một số khoảng trắng bằng $i, theo sau là một giả ba (... , ...)[]. Bên trong giả, chúng tôi chọn một chuỗi -có một số chữ số (cao hơn $n-10+$_hoặc 0, nhân với 2) hoặc chuỗi -10- lựa chọn dựa trên việc chúng tôi ở lần lặp thứ 10 và đầu vào của chúng tôi là 100. Chúng tôi kết hợp điều đó với một trận chung kết -. Chuỗi kết quả đó được đặt trên đường ống.

Cuối cùng, chúng tôi tăng lên $i, và điều này thực sự khó khăn. Chúng tôi sử dụng một thủ thuật nhị phân cast-to-int để chỉ tăng $ilên cho đến khi đạt được $n, và sau đó giữ nó ở cùng một giá trị sau đó. Điều này đảm bảo chúng tôi đã đạt đến "điểm cuối" của thụt khóa kéo ở mức thích hợp.

Khi vòng lặp kết thúc, các chuỗi kết quả được tích lũy trên đường ống và đầu ra là ẩn.

Ví dụ

PS C:\Tools\Scripts\golfing> .\unzip-some-numbers.ps1 70
-11111111111111-
 -222222222222-
  -3333333333-
   -44444444-
    -555555-
     -6666-
      -77-
       --
       --
       --

PS C:\Tools\Scripts\golfing> .\unzip-some-numbers.ps1 100
-11111111111111111111-
 -222222222222222222-
  -3333333333333333-
   -44444444444444-
    -555555555555-
     -6666666666-
      -77777777-
       -888888-
        -9999-
         -10-

Bình thường, 37 34 byte

= h / QTjm + *; thS, dQj <* `d20eS, 0y-Qd" - "ST
= h / QTjm + *; thS, dQj * `d / y-Qdl`d" - "ST

Bộ thử nghiệm.

Con trăn 95 84 byte

Tôi không biết lambdas là hợp pháp, cảm ơn @Dr Green Eggs and Iron Man

lambda p:'\n'.join(' '*min(p,l)+'-'+(2-(l==9))*(p-l)*str(l+1)+'-'for l in range(10))

MATL , 48 41 35 byte

0:9"@GhX<Z"45h@QVG@-E@8>-OhX>Y"h45h

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

Ruby, 74 byte

Sử dụng hàm ý-zero định dạng cụ thể trong câu hỏi, vì vậy 40%là f[4]nếu hàm vô danh được gán cho f. Nếu cần một tỷ lệ phần trăm đầy đủ, +6 byte chon/=10;

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

->n{10.times{|i|puts' '*[i,n].min+"-#{i>8?10:(i+1).to_s*2*(n-i)if i<n}-"}}

Python 3, 98, 90, 87 , 85 byte.

Lấy số đã chia cho 10. Tôi có thể loại bỏ một số parens, nhưng điều này khá kín để chơi golf hoàn toàn.

lambda n:'\n'.join(' '*min(i,n)+'-%s-'%(str(i+1)*(n>i>8or(n-i)*2))for i in range(10))

Haskell, 83 byte

f n=unlines[[[1..y]>>" ",take(2*(n-y))$cycle$show$y+1]>>=(++"-")|y<-min n<$>[0..9]]

Javascript es7, 105 byte

A=>[...Array(10)].map((a,i)=>' '.repeat((d=A<i)?A:i)+('-'+(i+1+'').repeat(d?0:i<9?2*(A-i):1)+'-')).join`
`

gọi với

f=A=>[...Array(10)].map((a,i)=>' '.repeat((d=A<i)?A:i)+('-'+(i+1+'').repeat(d?0:i<9?2*(A-i):1)+'-')).join`
`


f(10)
f(5)
f(0)

Python 2.7, 113 108 77 byte

n = input ()
cho x trong phạm vi (0,10):
v = str (x + 1) * (nx) 2
nếu x n> 89: v = '10 '
in' '* min (x, n) + '-' + v + '-'

Lần đầu chơi golf. Gonna cứ tiếp tục, cố gắng để có được nó <100.
Giả sử đầu vào là 1-10.

Chỉnh sửa: Đã sử dụng một số thủ thuật từ câu trả lời của @LeakyNun (cảm ơn), sau đó bẻ khóa thêm một chút và ... về cơ bản là cùng một câu trả lời: / Không biết về chuyển đổi chuỗi `int` và 2 - boolean hãy để tôi thoát khỏi câu lệnh if, cho phép tôi thoát khỏi toàn bộ biến v. Rất tuyệt.

Phiên bản của tôi:

n=input()
for x in range(10):print' '*min(x,n)+'-'+`x+1`*(n-x)*(2-(x>8))+'-'

Python 2, 81 byte

n=input()/10
for i in range(10):print(' '*min(i,n)+'-'+2*(n-i)/-~(i>8)*`i+1`+'-')

Nghĩa là nó!

Python 2.7, 110 99 95 91 byte:

G=input();i=1;exec"print' '*[~-i,G][i>G]+'-%s-'%[`i`*(2*-~G-i*2),'10'][(i>9)*G>9];i+=1;"*10

Một chương trình đầy đủ lấy đầu vào của một số nguyên trong phạm vi bao gồm [1,10], trong đó 10phương tiện 100%và 1phương tiện10% . Có lẽ có thể được đánh golf xuống một chút nữa.

Dùng thử trực tuyến! (Ý)

PHP 5.3, 92 91 byte

<?for(;$i<10;$i++)echo'
'.str_pad('-'.str_repeat($i+1,$n>9&&$i>8?:($n-$i)*2).'-',22,' ',2);

• cho PHP 5.3 với register_globals=1và short_open_tags=1(và error_reporting=0)
  gọi trong cli vớiphp-cgi -f <filename> n=<number>
• số từ 0 đến 10

• để gọi trong trình duyệt web với <scriptpath>?n=<number> : trả trước<pre>
• cho 4.0.1 <PHP <5.3: thay thế ?:bằng?1: (+1)
• cho PHP> = 5.4: thay thế cái đầu tiên $nbằng ($n=$_GET[n])(+11)

không được coi là một hàm (bất kỳ PHP> = 4.0.1)

function unzip($n) // $n from 0 to 10
{
    for($i=0;$i<10;$i++)                // $i = line number -1
        $s.='
'.str_pad(                              // pad the result of the following on both sides
            '-'.                            // prepend '-'
            str_repeat($i+1,                // print line number
                ($n>9&&$i>8 ? 1             // in tenth line, if $n is 10: once
                : ($n-$i)*2)                    // else  2*($n-$i) times
            ).'-'                           // append '-'
            , 22,' ', STR_PAD_BOTH);    // pad to 22 width with SPC on both sides
    return $s;
}

bộ kiểm tra

echo'<table border=1><tr>';
for($i=0;$i<11;$i++)echo'<th>',$i*10,'%</th>';
echo'</tr><tr>';
for($i=0;$i<11;$i++)echo'<td><pre>', unzip($i), '</pre></td>';
echo '</table>';

^{Bây giờ điều này là mới đối với tôi: PHP đánh bại JavaScript.}
Cách tiếp cận này được chơi golf đến phút, tôi nghĩ vậy.

Julia, 73 byte

x->join([" "^min(x,a)*"-$("$(a+1)"^(x>a?a>8?1:2(x-a):0))-"for a=0:9],'
')

Julia trả lời đầu tiên! Lời khuyên được đánh giá cao.

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

Perl, 122 byte

$k=<>;for(my $i=0;$i++<10;){$s="-"."$i"x($k/10-$i+1);$p=length $s;$l=$l>$p?$l:$p;printf "%${l}s%s\n",$s,scalar reverse $s}

Lisp thông thường (Lispworks), 314 byte

(defun f()(let((s(string(read))))(let((n(/(parse-integer(subseq s 0(1-(length s))))10)))(if(> n 0)(progn(dotimes(r n)(progn(dotimes(c r)#1=(format t" "))(format t"-")(if(=(1+ r)10)(format t"10")(dotimes(j(* 2(- n r)))(format t"~S"(1+ r))))(format t"-~%")))(dotimes(d(- 10 n))(dotimes(c n)#1#)(format t"--~%")))))))

không được trả lời:

    (defun f ()
      (let ((s (string (read))))
        (let ((n (/ (parse-integer (subseq s 0 (1- (length s)))) 10)))
          (if (> n 0)
              (progn
                (dotimes (r n)
                  (progn
                    (dotimes (c r)
                      (format t " "))
                    (format t "-")
                    (if (= (1+ r) 10)
                        (format t "10")
                      (dotimes (j (* 2 (- n r)))
                        (format t "~S" (1+ r))))
                    (format t "-~%")))
                (dotimes (d (- 10 n))
                  (dotimes (c n)
                    (format t " "))
                  (format t "--~%")))))))

Sử dụng:

    CL-USER 2515 > (f)
    10%
    -11-
     --
     --
     --
     --
     --
     --
     --
     --
     --
    NIL

    CL-USER 2516 > (f)
    50%
    -1111111111-
     -22222222-
      -333333-
       -4444-
        -55-
         --
         --
         --
         --
         --
    NIL

    CL-USER 2517 > (f)
    100%
    -11111111111111111111-
     -222222222222222222-
      -3333333333333333-
       -44444444444444-
        -555555555555-
         -6666666666-
          -77777777-
           -888888-
            -9999-
             -10-
    NIL

APL, 46 byte

{↑(⍳10){(''↑⍨1-⍺⌊a+1),1⌽'--',⍵⍴⍕⍺}¨10↑2×⌽⍳a←⍵}

Đối số nên được đưa ra dưới dạng phần trăm chia cho 10 (nghĩa là: một số nguyên đơn giản, trong phạm vi [0,10]).