เป้าหมายของคุณคือสร้างเกลียว Fibonacciด้วยตัวเลข

ตัวอย่างอินพุต / เอาท์พุต

1 -> 1

2 -> 1 1

3 -> 1 1
     2 2
     2 2

6 -> 8 8 8 8 8 8 8 8 5 5 5 5 5
     8 8 8 8 8 8 8 8 5 5 5 5 5
     8 8 8 8 8 8 8 8 5 5 5 5 5
     8 8 8 8 8 8 8 8 5 5 5 5 5
     8 8 8 8 8 8 8 8 5 5 5 5 5
     8 8 8 8 8 8 8 8 1 1 3 3 3
     8 8 8 8 8 8 8 8 2 2 3 3 3
     8 8 8 8 8 8 8 8 2 2 3 3 3

อินพุต 9

อินพุต อินพุตสามารถดำเนินการผ่าน STDIN หรืออาร์กิวเมนต์ของฟังก์ชัน มันจะเป็นตัวเลขเดียว

เอาท์พุท เอาต์พุตอาจมาจาก STDOUT หรือค่าส่งคืนของฟังก์ชัน ควรเป็นสตริงเดี่ยว

ไม่อนุญาตให้ใช้ช่องว่างพิเศษที่ส่วนท้ายสุดของบรรทัด เอาต์พุตสามารถมีตัวเลข, linefeeds (ขึ้นบรรทัดใหม่) และช่องว่าง

การวางแนวไม่สำคัญหมายความว่าการหมุนและการสะท้อนกลับ ตราบใดที่มันเป็นไปตามรูปแบบเกลียว Fibonacci ที่ถูกต้อง

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

1   1                          1   1
100 100  should actually be  100 100

คุณสามารถดูตัวอย่างได้ที่นี่

นี่คือโค้ดกอล์ฟที่สั้นที่สุดในหน่วยไบต์!

APL, 23

{a,⍴⍨2⍴⊃⍴a←⌽⍉⍵}⍣(⎕-1)⍪1

คำอธิบาย:

⍪1               this creates a 1x1 matrix containing just 1
{..}⍣(⎕-1)     the power operator (⍣) repeats the function {} user input - 1 times
a,⍴⍨2⍴⊃⍴a←⌽⍉⍵   the function being iterated rotates the matrix and appends the next matrix to it.

ลองใช้กับtryapl.org

Matlab, 84 ไบต์

มีการใช้ฟังก์ชั่น เอาต์พุตอยู่ใน stdout

function f(N)
s=0;t=1;y=1;for n=2:N
u=s+t;s=t;t=u;y=[rot90(y) t*ones(t)];end;disp(y)

ตัวอย่าง:

>> f(1)
     1
>> f(2)
     1     1
>> f(3)
     1     2     2
     1     2     2
>> f(6)
     5     5     5     5     5     8     8     8     8     8     8     8     8
     5     5     5     5     5     8     8     8     8     8     8     8     8
     5     5     5     5     5     8     8     8     8     8     8     8     8
     5     5     5     5     5     8     8     8     8     8     8     8     8
     5     5     5     5     5     8     8     8     8     8     8     8     8
     3     3     3     1     1     8     8     8     8     8     8     8     8
     3     3     3     2     2     8     8     8     8     8     8     8     8
     3     3     3     2     2     8     8     8     8     8     8     8     8
>> f(7)
     8     8     8     8     8     8     8     8    13    13    13    13    13    13    13    13    13    13    13    13    13
     8     8     8     8     8     8     8     8    13    13    13    13    13    13    13    13    13    13    13    13    13
     8     8     8     8     8     8     8     8    13    13    13    13    13    13    13    13    13    13    13    13    13
     8     8     8     8     8     8     8     8    13    13    13    13    13    13    13    13    13    13    13    13    13
     8     8     8     8     8     8     8     8    13    13    13    13    13    13    13    13    13    13    13    13    13
     8     8     8     8     8     8     8     8    13    13    13    13    13    13    13    13    13    13    13    13    13
     8     8     8     8     8     8     8     8    13    13    13    13    13    13    13    13    13    13    13    13    13
     8     8     8     8     8     8     8     8    13    13    13    13    13    13    13    13    13    13    13    13    13
     5     5     5     5     5     1     2     2    13    13    13    13    13    13    13    13    13    13    13    13    13
     5     5     5     5     5     1     2     2    13    13    13    13    13    13    13    13    13    13    13    13    13
     5     5     5     5     5     3     3     3    13    13    13    13    13    13    13    13    13    13    13    13    13
     5     5     5     5     5     3     3     3    13    13    13    13    13    13    13    13    13    13    13    13    13
     5     5     5     5     5     3     3     3    13    13    13    13    13    13    13    13    13    13    13    13    13

Matlab, 78 ไบต์

function y=f(N)
s=0;t=1;y=1;for n=2:N
u=s+t;s=t;t=u;y=[rot90(y) t*ones(t)];end

เช่นเดียวกับข้างต้นยกเว้นคุณสมบัติของ Matlab ที่ถูกใช้ประโยชน์คือมันจะแสดงฟังก์ชั่นเอาต์พุต (เป็นสตริง) โดยอัตโนมัติใน stdout วิธีนี้จะหลีกเลี่ยงการแปลงเป็นสตริงในวิธีการข้างต้น

f(6)
ans =
     5     5     5     5     5     8     8     8     8     8     8     8     8
     5     5     5     5     5     8     8     8     8     8     8     8     8
     5     5     5     5     5     8     8     8     8     8     8     8     8
     5     5     5     5     5     8     8     8     8     8     8     8     8
     5     5     5     5     5     8     8     8     8     8     8     8     8
     3     3     3     1     1     8     8     8     8     8     8     8     8
     3     3     3     2     2     8     8     8     8     8     8     8     8
     3     3     3     2     2     8     8     8     8     8     8     8     8

Python 2, 121 ไบต์

a,b=0,1;L=[]
exec"a,b=b,a+b;L=zip(*L[::-1])+[[a]*a]*a;"*input()
for r in L:print" ".join("%*d"%(len(str(a)),x)for x in r)

กฎที่ผ่อนคลายในการหมุนทำให้สิ่งนี้ง่ายขึ้นมาก

ฉันไม่ได้ใช้ backticks แทนที่str(a)นี่เพราะฉันไม่แน่ใจว่าเราอนุญาตให้มีการเว้นวรรคนำหน้ามากกว่าที่จำเป็นหรือไม่หากเราเข้าถึงยาว ถึงแม้ว่าเราจะใช้aตัวมันเองจะสั้นลงก็ตาม

Ruby, 243 242 236 233 222 170 130 ไบต์

s,l,r=0,1,[]
gets.to_i.times{s+=l
l=s-l
s.times{r<<[s]*s}
r=r.transpose.reverse}
r.map{|w|puts w.map{|c|"%#{s.to_s.size}s"%c}*" "}

Python - 189 179 174

n=int(input())
f=[1,1]
while len(f)<n:f+=[f[-1]+f[-2]]
o=[[]]
for i in f:o=(list(zip(*o)))[::-1]+[[i]*i]*i
for x in o:print(' '.join(str(y).rjust(len(str(f[-1])))for y in x))

J, 36 ไบต์

1&(($~,~)@(1{$@]),.|:@|.@])&(,.1)@<:

การใช้งาน:

   (1&(($~,~)@(1{$@]),.|:@|.@])&(,.1)@<:) 6
8 8 8 8 8 8 8 8 5 5 5 5 5
8 8 8 8 8 8 8 8 5 5 5 5 5
8 8 8 8 8 8 8 8 5 5 5 5 5
8 8 8 8 8 8 8 8 5 5 5 5 5
8 8 8 8 8 8 8 8 5 5 5 5 5
8 8 8 8 8 8 8 8 1 1 3 3 3
8 8 8 8 8 8 8 8 2 2 3 3 3
8 8 8 8 8 8 8 8 2 2 3 3 3

วิธี:

ฟังก์ชั่นหมุนสแควร์ปัจจุบันและเพิ่มสแควร์ใหม่ไปยังปัจจุบันหนึ่งinput-1ครั้ง ขนาดสี่เหลี่ยมจัตุรัสและค่าองค์ประกอบถูกรวบรวมจากขนาดของสี่เหลี่ยมมุมฉากก่อนหน้า

คำอธิบายรหัส:

1&(           loop
    ($~,~)      new square with size and elements
    @(1{$@])    with the size of the second dimension of the current rectangle
    ,.          attached to
    |:@|.@]     rotated current rectangle
)&(,.1)       starting the loop with matrix 1
@<:           looping input-1 times

ลองออนไลน์ได้ที่นี่

Haskell, 183 176 171 163 ไบต์

import Data.List
s t=map((t>>[l t])++)t
e 1=[[1]];e n=s.reverse.transpose$e$n-1
f=g.e
g m=unlines$map(>>=((show$l m)#).show)m
a#b|l a<l b=b;a#b=a#(' ':b)
l=length

ฟังก์ชั่นคือfซึ่งใช้ตัวเลขและส่งกลับสตริงเดียว:

λ: putStr $ f 8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  5  5  5  5  5  8  8  8  8  8  8  8  8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  5  5  5  5  5  8  8  8  8  8  8  8  8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  5  5  5  5  5  8  8  8  8  8  8  8  8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  5  5  5  5  5  8  8  8  8  8  8  8  8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  5  5  5  5  5  8  8  8  8  8  8  8  8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  3  3  3  1  1  8  8  8  8  8  8  8  8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  3  3  3  2  2  8  8  8  8  8  8  8  8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21  3  3  3  2  2  8  8  8  8  8  8  8  8
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13
 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13

Pyth, 34 ไบต์

jbmsm.[hl`lhZ`k\ d=Zu+_CGmmlGGGQ]]

น่าแปลกที่รหัสมากกว่าครึ่งหนึ่งเป็นการพิมพ์ / การขยายตัวแทนที่จะสร้างเมทริกซ์

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

ตัวอย่างผลลัพธ์สำหรับ 7:

  5  5  5  5  5  8  8  8  8  8  8  8  8
  5  5  5  5  5  8  8  8  8  8  8  8  8
  5  5  5  5  5  8  8  8  8  8  8  8  8
  5  5  5  5  5  8  8  8  8  8  8  8  8
  5  5  5  5  5  8  8  8  8  8  8  8  8
  3  3  3  1  1  8  8  8  8  8  8  8  8
  3  3  3  2  2  8  8  8  8  8  8  8  8
  3  3  3  2  2  8  8  8  8  8  8  8  8
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13
 13 13 13 13 13 13 13 13 13 13 13 13 13

Perl, 289 277 257 ไบต์

@f=(0,1);push@f,$f[-1]+$f[-2]while(@f<=$ARGV[0]);$d=1+length$f[-1];shift@f;map{$v=$f[$_];$t=sprintf("%${d}d",$v)x$v;$_%4||map{unshift@s,$t}1..$v;$_%4==3&&map{$_.=$t}@s;$_%4==2&&map{push@s,$t}1..$v;$_%4==1&&map{$_=$t.$_}@s;}0..$#f;$\=$/;for(@s){s/^ //;print}

K, 48 ไบต์

{{`0:1_',/'(1+#$|//x)$x}(x-1){+|x,\:t#t:#x}/,,1}

และในการดำเนินการ:

  {{`0:1_',/'(1+#$|//x)$x}(x-1){+|x,\:t#t:#x}/,,1}7
 8  8  8  8  8  8  8  8  5  5  5  5  5
 8  8  8  8  8  8  8  8  5  5  5  5  5
 8  8  8  8  8  8  8  8  5  5  5  5  5
 8  8  8  8  8  8  8  8  5  5  5  5  5
 8  8  8  8  8  8  8  8  5  5  5  5  5
 8  8  8  8  8  8  8  8  1  1  3  3  3
 8  8  8  8  8  8  8  8  2  2  3  3  3
 8  8  8  8  8  8  8  8  2  2  3  3  3
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13
13 13 13 13 13 13 13 13 13 13 13 13 13

อาจเป็นโอกาสที่ดีสำหรับการเล่นกอล์ฟ

โปรแกรมโดยทั่วไปประกอบด้วยสองส่วน - สร้างเมทริกซ์ที่ต่อกันแล้วจัดรูปแบบสำหรับเอาต์พุต อดีตค่อนข้างง่าย:

  {(x-1){+|x,\:t#t:#x}/,,1}5
(3 3 3 2 2
 3 3 3 2 2
 3 3 3 1 1
 5 5 5 5 5
 5 5 5 5 5
 5 5 5 5 5
 5 5 5 5 5
 5 5 5 5 5)

เริ่มต้นด้วยเมทริกซ์ 1x1 ที่มี 1 ให้สร้างเวกเตอร์ความยาว T ของ T โดยที่ T คือความยาวของเมทริกซ์เริ่มต้นในมิติแรก ( t#t:#x) และแนบกับแต่ละแถวของเมทริกซ์ดั้งเดิม ( x,\:) การย้อนกลับและการเปลี่ยนผลลัพธ์ ( +|) หมุน 90 องศา เราทำเช่นนี้ N-1 ครั้ง

การจัดรูปแบบค่อนข้างน่าสนใจเพราะ K เป็นวิธีธรรมชาติในการพิมพ์เมทริกซ์จะไม่จัดแนวคอลัมน์จำนวนตามที่เราต้องการ:

{`0:1_',/'(1+#$|//x)$x}

แนวคิดพื้นฐานคือการใช้องค์ประกอบสูงสุดของเมทริกซ์ ( |//x) แปลงเป็นสตริง (unary $) ใช้ความยาวบวกหนึ่ง ( 1+#) จากนั้นจัดรูปแบบองค์ประกอบของเมทริกซ์เป็นสตริงที่จัดชิดขวาของขนาดนั้น จากนั้นเพื่อจัดระเบียบเข้าร่วมสตริงเหล่านั้น ( ,/') และวางพื้นที่นำหน้าผลลัพธ์ ( 1_')

CJam, 48 ไบต์

1saali({z{W%}%_0=,__sa*a*+}*_W=W=,):U;{USe[}f%N*

ลองออนไลน์

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

แม้ว่ารหัสสำหรับการเติมผลลัพธ์จะดูแย่มาก ฉันลองชุดค่าผสมของfและ:ตัวดำเนินการเพื่อใช้การเติมกับรายการซ้อนกัน แต่ไม่มีอะไรทำงาน หากใครมีคำแนะนำที่ดีกว่าพวกเขาจะยินดีมากที่สุด

1s    First value. Using string for values so that we can pad them in the end.
aa    Wrap it twice. Data on stack will be a list of lists (list of lines).
li    Get input.
(     Decrement, since we seeded the list at n=1.
{     Loop over n.
  z     Transpose...
  {W%}% ... and reverse all lines, resulting in a 90 degree rotation.
  _0=,  Get length of line, which is the size of square we need to add.
  __    Create two copies of size.
  sa    Convert one size to string, and wrap it in array.
  *     Replicate it size times. This is one line.
  a     Wrap the line...
  *     ... and replicate it size times. The square of new values is done.
  +     Add the list of lines to the previous list of lines.
}*    End of loop over n.
_W=W= Get last value produced.
,)    Take its length, and increment it. This is the output field width.
:U;   Store the field width in variable, and pop it. This is ugly.
{     Start of block applied to all values.
  U     Field width stored in variable.
  S     Space.
  e[    Pad left.
}f%   End of block applied to all values.
N*    Join lines with newline.

Pyth, 29 ไบต์

Vu+C_GmmlGGGQ\]Yjdm.\[l`lN`d\ N

สาธิต.

หากการเติมเต็มอิสระ / โดยนัยเช่นเดียวกับ APL หรือเอาต์พุตเมทริกซ์ที่ได้รับอนุญาตนี่จะเป็น 14 ไบต์:

u+C_GmmlGGGQ]Y

ทับทิมขนาด 129 ไบต์

ฉันแก้ไข ruby ​​อื่น ๆ ตอบพวง แต่การเปลี่ยนแปลงล่าสุดของฉันไม่ได้รับการยอมรับหรือบางสิ่งบางอย่างดังนั้นนี่คือ:

s,r=0,[[1]]
gets.to_i.times{s+=r[0][0]
r=(r+[[s]*s]*s).transpose.reverse}
r.map{|w|puts w.map{|c|"%#{r[0][s].to_s.size}s"%c}*' '}

ES6, 248 ไบต์

n=>(f=(n,o=n)=>Array(n).fill(o),g=n=>n<3?[f(n,1)]:(a=g(n-2)).reverse().concat(f(l=a[0].length,f(l))).map((e,i,a)=>f(a.length).concat(e.reverse())),a=g(n),s=' '.repeat(l=` ${a[0][0]}`.length),a.map(a=>a.map((e,i)=>(s+e).slice(!i-1)).join``).join`\n`)

ซึ่ง\nหมายถึงอักขระขึ้นบรรทัดใหม่ตามตัวอักษร

การจัดรูปแบบที่น่ารำคาญใช้โค้ดจำนวนมาก

fเป็นฟังก์ชั่นตัวช่วยที่ทำให้อาร์เรย์เต็ม ส่วนใหญ่จะใช้ในการสร้างสี่เหลี่ยมที่เติมเต็ม แต่ก็เพิ่มขึ้นเป็นสองเท่าอย่างคล่องแคล่วเพื่อสร้างเคสพื้นฐานสำหรับการเรียกซ้ำ

gเป็นงานหลักที่ต้องทำ มันสร้างโซลูชันสุดท้าย แต่โซลูชันเดียวหมุน 180 องศาจากนั้นผนวกสองสแควร์ถัดไป