คำถามนี้แพร่กระจายอย่างไวรัสในที่ทำงานของฉัน มีวิธีการที่หลากหลาย:

พิมพ์ต่อไปนี้:

        1
       121
      12321
     1234321
    123454321
   12345654321
  1234567654321
 123456787654321
12345678987654321
 123456787654321
  1234567654321
   12345654321
    123454321
     1234321
      12321
       121
        1

คำตอบจะได้คะแนนเป็นตัวอักษรโดยมีจำนวนอักขระน้อยกว่า

J, 29 26 24 23 22 21 ตัวอักษร

,.(0&<#":)"+9-+/~|i:8

ขอบคุณFUZxxlสำหรับ"+เคล็ดลับ (ฉันไม่คิดว่าฉันเคยใช้มาu"vก่อนเลย)

คำอธิบาย

                  i:8  "steps" vector: _8 _7 _6 ... _1 0 1 ... 7 8
                 |     magnitude
              +/~      outer product using +
            9-         inverts the diamond so that 9 is in the center
  (      )"+           for each digit:
      #                  copy
   0&<                   if positive then 1 else 0
       ":                copies of the string representation of the digit
                         (in other words: filter out the strictly positive
                          digits, implicitly padding with spaces)
,.                     ravel each item of the result of the above
                       (necessary because the result after `#` turns each
                        scalar digit into a vector string)

APL ( 33 31)

A⍪1↓⊖A←A,0 1↓⌽A←⌽↑⌽¨⍴∘(1↓⎕D)¨⍳9

หากอนุญาตให้มีการเว้นวรรคคั่นตัวเลข (เช่นเดียวกับในรายการ Mathematica) ก็สามารถตัดให้สั้นลงเป็น28 26:

A⍪1↓⊖A←A,0 1↓⌽A←⌽↑⌽∘⍕∘⍳¨⍳9

คำอธิบาย:

• (โปรแกรมยาว :)
• ⍳9: รายการหมายเลข 1 ถึง 9
• 1↓⎕D: ⎕Dเป็นสตริง '0123456789' 1↓ลบองค์ประกอบแรก
• ⍴∘(1↓⎕D)¨⍳9: สำหรับแต่ละองค์ประกอบของ N ⍳9ใช้องค์ประกอบ N 1↓⎕Dแรกจาก นี่เป็นรายการ: ["1", "12", "123", ... "123456789"] เป็นสตริง

• ⌽¨: ย้อนกลับแต่ละองค์ประกอบของรายการนี้ ["1", "21", "321" ... ]

• (โปรแกรมสั้น ๆ :)

• ⍳¨⍳9: รายการ 1 ถึง N สำหรับ N [1..9] นี่จะให้รายการ [[1], [1,2], [1,2,3] ... [1,2,3,4,5,6,7,8,9] เป็นตัวเลข
• ⌽∘⍕∘: การย้อนกลับของการแสดงสตริงของแต่ละรายการเหล่านี้ ["1", "2 1" ... ]
• (เหมือนกันจากนี้เป็นต้นไป :)
• A←⌽↑: สร้างเมทริกซ์จากรายการลิสต์ด้านขวามีช่องว่างแล้วย้อนกลับ สิ่งนี้จะช่วยให้ด้านบนของเพชร มันถูกเก็บไว้ใน A.
• A←A,0 1↑⌽A: A โดยมีการย้อนกลับของ A ลบคอลัมน์แรกติดกับด้านขวา นี่จะทำให้ครึ่งบนของสี่เหลี่ยม นี่จะถูกเก็บไว้ใน A อีกครั้ง
• A⍪1↓⊖A: ⊖Aเป็นมิเรอร์ในแนวตั้ง (ให้ครึ่งล่าง) 1↓เอาแถวบนสุดของครึ่งล่างและเป็นครึ่งบนด้านบนของA⍪1↓⊖A

Clojure, 191 179 bytes

#(loop[[r & s](range 18)h 1](print(apply str(repeat(if(< r 8)(- 8 r)(- r 8))\ )))(doseq[m(concat(range 1 h)(range h 0 -1))](print m))(println)(if s(recur s((if(< r 8)inc dec)h))))

-12 ไบต์โดยเปลี่ยนด้านนอกdoseqเป็น a loop, ซึ่งทำให้ฉันสามารถกำจัดatom(yay)

คู่ "for-loop" ลูปด้านนอก ( loop) ไปที่แต่ละแถวในขณะที่วงใน ( doseq) ไปที่แต่ละหมายเลขในแถวซึ่งอยู่ในช่วง(concat (range 1 n) (range n 0 -1))โดยที่nเป็นหมายเลขสูงสุดในแถว

(defn diamond []
  (let [spaces #(apply str (repeat % " "))] ; Shortcut function that produces % many spaces
    (loop [[row-n & r-rows] (range 18) ; Deconstruct the row number from the range
           high-n 1] ; Keep track of the highest number that should appear in the row
      (let [top? (< row-n 8) ; Are we on the top of the diamond?
            f (if top? inc dec) ; Decided if we should increment or decrement
            n-spaces (if top? (- 8 row-n) (- row-n 8))] ; Calculate how many prefix-spaces to print
        (print (spaces n-spaces)) ; Print prefix-spaces
        (doseq [m (concat (range 1 high-n) (range high-n 0 -1))] ; Loop over the row of numbers
          (print m)) ; Print the number
        (println)

        (if r-rows
          (recur r-rows (f high-n)))))))

เนื่องจากข้อบกพร่องในตรรกะในความพยายามครั้งแรกของฉัน (โดยไม่ได้ตั้งใจแทรกช่องว่างระหว่างแต่ละหมายเลขแทน) ฉันจัดการเพื่อรับนี้:

1
1       2       1
1      2      3      2      1
1     2     3     4     3     2     1
1    2    3    4    5    4    3    2    1
1   2   3   4   5   6   5   4   3   2   1
1  2  3  4  5  6  7  6  5  4  3  2  1
1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
12345678987654321
1 2 3 4 5 6 7 8 9 10 9 8 7 6 5 4 3 2 1
1  2  3  4  5  6  7  8  9  8  7  6  5  4  3  2  1
1   2   3   4   5   6   7   8   7   6   5   4   3   2   1
1    2    3    4    5    6    7    6    5    4    3    2    1
1     2     3     4     5     6     5     4     3     2     1
1      2      3      4      5      4      3      2      1
1       2       3       4       3       2       1
1        2        3        2        1
1         2         1

ไม่ถูกต้องแม้กระทั่งมองข้ามข้อผิดพลาดที่เห็นได้ชัด แต่มันก็ดูดี

Mathematica 83 49 43 54 51

Print@@#&/@(Sum[k~DiamondMatrix~17,{k,0,8}]/.0->" ")

ด้วย 3 ไบต์ที่บันทึกไว้ต้องขอบคุณ Kelly Lowder

การวิเคราะห์

ส่วนหลักของรหัสที่Sum[DiamondMatrix[k, 17], {k, 0, 8}]สามารถตรวจสอบWolframAlpha

ต่อไปนี้แสดงให้เห็นถึงตรรกะพื้นฐานของวิธีการในระดับที่เล็กกว่า

a = 0~DiamondMatrix~5;
b = 1~DiamondMatrix~5;
c = 2~DiamondMatrix~5;
d = a + b + c;
e = d /. 0 -> "";
Grid /@ {a, b, c, d, e}

Python 2, 72 69 67 61

ไม่ฉลาด:

s=str(111111111**2)
for i in map(int,s):print'%8s'%s[:i-1]+s[-i:]

C, 79 ตัวอักษร

v;main(i){for(;i<307;putchar(i++%18?v>8?32:57-v:10))v=abs(i%18-9)+abs(i/18-8);}

Python 2, 60 59

for n in`111111111**2`:print`int('1'*int(n))**2`.center(17)

การละเมิด backticks และการจ่ายคืน

GolfScript, 33 31 30 ตัวอักษร

โซลูชัน GolfScript อื่น

17,{8-abs." "*10@-,1>.-1%1>n}%

ขอบคุณ@PeterTaylorสำหรับคนอื่น

เวอร์ชันก่อนหน้า:

17,{8-abs" "*9,{)+}/9<.-1%1>+}%n*

( วิ่งออนไลน์ )

17,{8-abs" "*9,{)+}/9<.-1%1>n}%

Mathematica 55 50 45 41 38

(10^{9-Abs@Range[-8,8]}-1)^2/81//Grid

Grid[(10^Array[{9}-Abs[#-9]&,17]-1)^2/81]

Javascript, 114

รายการแรกของฉันใน Codegolf!

for(l=n=1;l<18;n-=2*(++l>9)-1,console.log(s+z)){for(x=n,s="";x<9;x++)z=s+=" ";for(x=v=1;x<2*n;v-=2*(++x>n)-1)s+=v}

หากสามารถย่อให้สั้นลงได้อีกโปรดแสดงความคิดเห็น :)

PHP, 92 90 ตัวอักษร

<?for($a=-8;$a<9;$a++){for($b=-8;$b<9;){$c=abs($a)+abs($b++);echo$c>8?" ":9-$c;}echo"\n";}

คำนวณและพิมพ์ระยะห่างจากตำแหน่งแมนฮัตตันจากศูนย์กลาง พิมพ์ช่องว่างถ้าน้อยกว่า 1

ผู้ใช้ที่ไม่ระบุชื่อแนะนำการปรับปรุงต่อไปนี้ (84 ตัวอักษร):

<?for($a=-8;$a<9;$a++,print~õ)for($b=-8;$b<9;print$c>8?~ß:9-$c)$c=abs($a)+abs($b++);

เสียงกระเพื่อมสามัญ 113 ตัว

(defun x(n)(if(= n 0)1(+(expt 10 n)(x(1- n)))))(dotimes(n 17)(format t"~17:@<~d~>~%"(expt(x(- 8(abs(- n 8))))2)))

ครั้งแรกที่ฉันสังเกตเห็นว่าองค์ประกอบของเพชรสามารถแสดงเช่น:

  1   =   1 ^ 2
 121  =  11 ^ 2
12321 = 111 ^ 2

เป็นต้น

xซ้ำคำนวณฐาน (1, 11, 111, ฯลฯ ) formatซึ่งเป็นสี่เหลี่ยมแล้วพิมพ์เป็นศูนย์กลางโดย เพื่อให้ตัวเลขขึ้นไปถึงเทอมสูงสุดแล้วถอยกลับอีกครั้งฉันใช้(- 8 (abs (- n 8)))เพื่อหลีกเลี่ยงการวนซ้ำครั้งที่สอง

Charcoal (ไม่ใช่การแข่งขัน), 13 ไบต์

ไม่แข่งขันเพราะภาษานั้นใหม่กว่าคำถาม

Ｆ⁹«ＧX⁻⁹ιＩ⁺ι¹→

ลองออนไลน์!

อย่างไร?

ดึงเพชรขนาดเล็กจำนวนเก้าแต้มอย่างต่อเนื่องซ้อนทับกัน:

Ｆ⁹«   Loop ι from 0 to 8:
ＧX     Draw a (filled) polygon with four equilateral diagonal sides
⁻⁹ι      of length 9-ι
Ｉ⁺ι¹    using str(ι+1) as the character
→       Move right one space before drawing the next one

JavaScript, 81

for(i=9;--i+9;console.log(s))for(j=9;j;s=j--^9?k>0?k+s+k:" "+s:k+"")k=i<0?j+i:j-i

PowerShell (2 ตัวเลือก): 92 84 45 ไบต์

1..8+9..1|%{' '*(9-$_)+[int64]($x='1'*$_)*$x}
1..9+8..1|%{' '*(9-$_)+[int64]($x='1'*$_)*$x}

ขอบคุณStrigoidesสำหรับคำใบ้ในการใช้ 1 ^ 2,11 ^ 2,111 ^ 2 ...

โกนหนวดบางตัวโดย:

• $wขจัด
• ซ้อนนิยาม$xของการใช้งานครั้งแรกแทน
• รับเบาะแสจากโซลูชันของ Rynant :
  • รวมอาร์เรย์จำนวนเต็มเข้ากับ+แทนที่จะ,ช่วยให้สามารถกำจัดวงเล็บรอบ ๆ อาร์เรย์และเลเยอร์ของการซ้อนในลูป
  • ใช้9-$_ในการคำนวณความยาวของช่องว่างที่จำเป็นแทนการใช้คณิตศาสตร์และวิธีการที่ซับซ้อนมากขึ้น $yนอกจากนี้ยังตัดความจำเป็นสำหรับ

คำอธิบาย:

1..8+9..1หรือ1..9+8..1สร้างอาร์เรย์ของจำนวนเต็มจากน้อยไปมากตั้งแต่ 1 ถึง 9 จากนั้นเลื่อนกลับไปที่ 1

|%{... }ไพพ์อาร์เรย์จำนวนเต็มเป็นForEach-Objectลูปผ่าน alias ใน%ตัว

' '*(9-$_)+ ลบจำนวนเต็มปัจจุบันจาก 9 จากนั้นสร้างสตริงของช่องว่างจำนวนมากที่จุดเริ่มต้นของการส่งออกสำหรับบรรทัดนี้

[int64]($x='1'*$_)*$xกำหนด$xเป็นสตริงของ1ตราบเท่าที่จำนวนเต็มปัจจุบันมีขนาดใหญ่ จากนั้นจะถูกแปลงเป็น int64 (จำเป็นต้องใช้เอาต์พุต 111111111 ²อย่างถูกต้องโดยไม่ใช้เครื่องหมาย E) และยกกำลังสอง

เป็นกลุ่ม62 39 38 กดแป้นพิมพ์

ขอบคุณ @DJMcMayhem สำหรับการบันทึกจำนวนหนึ่งไบต์!

คำตอบกลุ่มแรกของฉันน่าตื่นเต้นมาก!

i12345678987654321<ESC>qqYP9|xxI <ESC>YGpHq7@q

ฉันพยายามเขียนตัวเลขผ่านการบันทึก แต่มันก็นานกว่ามาก

ลองออนไลน์!

คำอธิบาย:

i123 ... 321<ESC>                   Write this in insert mode and enter normal mode
qq                                  Start recording into register q
  YP                                Yank this entire line and Paste above
    9|                              Go to the 9th column
      xx                            Delete character under cursor twice
        I <ESC>                     Go to the beginning of the line and insert a space and enter normal mode
               Y                    Yank this entire line
                G                   Go to the last line
                 p                  Paste in the line below
                  H                 Go to the first line
                   q                End recording
                    7@q             Repeat this 7 times

แก้ไข:

ฉันใช้Hแทนggและบันทึกไว้ 1 ไบต์

APL (Dyalog Classic) , 20 19 ไบต์

(⍉⊢⍪1↓⊖)⍣2⌽↑,⍨\1↓⎕d

ลองออนไลน์!

⎕d เป็นตัวเลข '0123456789'

1↓วางแรก ( '0')

,⍨\ สลับการสแกน catenate คือส่วนนำหน้าที่กลับด้าน '1' '21' '321' ... '987654321'

↑ ผสมลงในเมทริกซ์เบาะกับช่องว่าง:

1
21
321
...
987654321

⌽ กลับเมทริกซ์ในแนวนอน

(... )⍣2ทำสองครั้ง:

⍉⊢⍪1↓⊖การขนย้าย ( ⍉) ของเมทริกซ์เอง ( ⊢) ตัดแบ่งตามแนวตั้ง ( ⍪) กับเมทริกซ์กลับหัวในแนวตั้ง ( ⊖) โดยไม่ต้องแถวแรก ( 1↓)

R, 71 ตัวอักษร

สำหรับบันทึก:

s=c(1:9,8:1);for(i in s)cat(rep(" ",9-i),s[0:i],s[(i-1):0],"\n",sep="")

k ( 64 50 ตัวอักษร)

-1'(::;1_|:)@\:((|!9)#'" "),'$i*i:"J"$(1+!9)#'"1";

วิธีเก่า:

-1',/(::;1_|:)@\:((|!9)#\:" "),',/'+(::;1_'|:')@\:i#\:,/$i:1+!9;

CJam, 31 27 ไบต์

CJam ใหม่กว่าความท้าทายนี้มากดังนั้นคำตอบนี้จึงไม่มีสิทธิ์ได้รับการยอมรับ นี่เป็นความท้าทายเล็ก ๆ น้อย ๆ ในวันเสาร์ตอนเย็นที่เป็นระเบียบ ;)

8S*9,:)+9*9/2%{_W%1>+z}2*N*

ทดสอบที่นี่

แนวคิดคือสร้างจตุภาคบนซ้ายก่อน นี่คือวิธีการทำงาน:

ครั้งแรกในรูปแบบสตริงโดยใช้" 123456789" 8S*9,:)+สตริงนี้มีความยาว 17 อักขระ ตอนนี้เราทำซ้ำสตริง 9 ครั้งแล้วแยกไว้ในสตริงที่มีความยาว 9/9 การจับคู่ที่ไม่ตรงกันระหว่าง 9 ถึง 17 จะชดเชยแต่ละแถวของอักขระหนึ่งตัวทางซ้าย เราจะได้รับการพิมพ์สตริงย่อยแต่ละรายการในบรรทัดของมันเอง:

        1
23456789 
       12
3456789  
      123
456789   
     1234
56789    
    12345
6789     
   123456
789      
  1234567
89       
 12345678
9        
123456789

ดังนั้นถ้าเราปล่อยแต่ละแถวอื่น ๆ (ซึ่งทำงานได้สะดวกโดยทำ2%) เราจะได้หนึ่งจตุภาคตามที่ต้องการ:

        1
       12
      123
     1234
    12345
   123456
  1234567
 12345678
123456789

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

_      "Duplicate all rows.";
 W%    "Reverse their order.";
   1>  "Discard the first row (the centre row).";
     + "Add the other rows.";

N*สุดท้ายเราเพียงเข้าร่วมทุกสายที่มีการขึ้นบรรทัดใหม่ด้วย

GolfScript, 36 ตัวอักษร

สมมติว่าสิ่งนี้มีความหมายว่าเป็นความท้าทายของโค้ดกอล์ฟนี่เป็นโซลูชันพื้นฐานของ GolfScript:

9,.);\-1%+:a{a{1$+7-.0>\" "if}%\;n}%

Ruby, 76 ตัวอักษร

def f(a)a+a.reverse[1..-1]end;puts f [*1..9].map{|i|f([*1..i]*'').center 17}

ยินดีต้อนรับการปรับปรุง :)

Befunge-93 , 155 chars

9:v:<,+55<v5*88<v-\9:$_68v
> v>     ^>3p2vpv  -1<!  *
, 1^  2p45*3+9<4:    ,:  +
g -^_75g94+4pg7^!    +^ ,<
1 : ^ `0    :-1$_:68*^$
^1_$:55+\-0\>:#$1-#$:_^

ลองออนไลน์!

มันสามารถตีกอล์ฟได้มากกว่านี้ แต่มันเป็นโปรแกรม Funge แรกของฉันและหัวของฉันก็เจ็บอยู่แล้ว มีความสนุกสนานมากมาย

จาวาสคริปต์, 170 ไบต์

รหัสกอล์ฟครั้งแรกของฉัน :)

แข็งแรงเล่นกอล์ฟ

a="";function b(c){a+=" ".repeat(10-c);for(i=1;i<c;i++)a+=i;for(i=2;i<c;i++)a+=c-i;a+="\n";}for(i=2;i<11;i++)b(i);for(i=9;i>1;i--)b(i);document.write("<pre>"+a+"</pre>");

Ungolfed

var str = "";
function row(line) {
    str += " ".repeat(10 - line);
    for (var i = 1; i < line; i++) {
        str += i;
    }
    for (var i = 2; i < line; i++) {
        str += line - i;
    }
    str += "\n";
}
for (var line = 2; line < 11; line++) {
    row(line);
}
for (var line = 9; line > 1; line--) {
    row(line);
}
document.write("<pre>" + str + "</pre>");

Perl 56 54 ตัวอักษร

เพิ่ม 1 ถ่านสำหรับ-pสวิตช์

ใช้ repunits กำลังสองเพื่อสร้างลำดับ

s//12345678987654321/;s|(.)|$/.$"x(9-$1).(1x$1)**2|eg

Perl, 43 + 1

เพิ่ม +1 -Eที่จำเป็นสำหรับsay

say$"x(9-$_).(1x$_)**2for 1..9,reverse 1..8

แก้ไข: สั้นลงเล็กน้อย

Python 65

for i in map(int,str(int('1'*9)**2)):print' '*(9-i),int('1'*i)**2

Groovy 77 75

i=(-8..9);i.each{a->i.each{c=a.abs()+it.abs();print c>8?' ':9-c};println""}

เวอร์ชั่นเก่า:

(-8..9).each{a->(-8..9).each{c=a.abs()+it.abs();print c>8?' ':9-c};println""}

Scala - 86 ตัวอักษร

val a="543210/.-./012345";for(i<-a){for(j<-a;k=99-i-j)print(if(k<1)" "else k);println}

Javascript, 137

ด้วยการเรียกซ้ำ:

function p(l,n,s){for(i=l;i;s+=" ",i--);for(i=1;i<=n;s+=i++);for(i-=2;i>0;s+=i--);return(s+="\n")+(l?p(l-1,n+1,"")+s:"")}alert(p(8,1,""))

ครั้งแรกกับ CG :)

หรือ 118

หากฉันสามารถหาการใช้งาน JS ที่ดำเนินการ111111111**2ด้วยความแม่นยำสูงขึ้น
(ที่นี่: 12345678987654320)

a="1",o="\n";for(i=0;i<9;i++,o+="         ".substr(i)+a*a+"\n",a+="1");for(i=8;i;i--)o+=o.split("\n")[i]+"\n";alert(o)