ขนาดกระดาษ ISO ที่กำหนด:

ขนาดกระดาษ A series ถูกกำหนดโดยข้อกำหนดต่อไปนี้:

The length divided by the width is the square root of 2.
The A0 size has an area of 1 unit.
Each subsequent size A(n) is defined as A(n-1) cut in half parallel to its shorter sides.

งาน:

กำหนดf[n]เอาท์พุทอินพุตA0 แบ่งออกเป็นnเขตการปกครอง

กรณีทดสอบ:

f[1]ไปที่f[12]:

ที่นี่ A0 มอบให้โดย f[1]แต่การทำดัชนีนี้ไม่จำเป็น

เกณฑ์การชนะ:

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

BBC ASCIC 49 อักขระ ASCII

ไฟล์ขนาด Tokenised 44 ไบต์

I.n:F.i=0TOn:RECTANGLE0,0,1189>>i/2+.5,841>>i/2N.

สั้นกว่า แต่ก่อนมาก! ฉันลืมเกี่ยวกับตัวดำเนินการ bitshift ใน BBC BASIC สำหรับ windows เนื่องจากพวกเขาไม่สามารถใช้งานได้ในคอมพิวเตอร์เครื่องเก่าของฉันในตอนกลางวัน

ตัวละคร BBC BASIC 63 ASCII

Tokenised ขนาดไฟล์ 58 ไบต์

ล่าม Dowload ที่http://www.bbcbasic.co.uk/bbcwin/download.html

A%=841C%=1189d=4I.n:F.i=0TOn:RECTANGLE0,0,C%,A%:d!^B%/=2d=-d:N.

ใช้การจัดทำดัชนีเป็นศูนย์ซึ่งฉันชอบ ดังนั้น 0 ส่งออกกระดาษสำหรับ A0, 1 ออก A0 แบ่งออกเป็นคู่ของ A1s ฯลฯ

มีความจำเป็นต้องสลับระหว่างการลดพิกัด X และ Y ลงครึ่งหนึ่ง แต่การทำเช่นนั้นในอาร์เรย์จะมีค่าใช้จ่ายมากเกินไป แต่ฉันใช้ความจริงที่ว่า BBC พื้นฐานมีบล็อกของตัวแปรจำนวนเต็มคงที่A%..Z%4 ไบต์แต่ละอันเก็บไว้ในหน่วยความจำต่อเนื่อง ฉันเก็บ X และ Y ค่าในA%และC%และการเข้าถึงโดยใช้ตัวชี้ไปที่%Bการแก้ไขโดยมูลค่าของ d ซึ่งสลับระหว่างและ4-4

Ungolfed

  A%=841
  C%=1189
  d=4
  INPUTn
  FORi=0TOn
    RECTANGLE0,0,C%,A%
    d!^B%/=2
    d=-d
  NEXT

เอาท์พุต

JavaScript (ES6) + HTML, 96 94 + 34 = 130 128 ไบต์

f=(n,w=297,h=210)=>n--&&f(n,h<w?w/2:w,h<w?h:h/2,(C=c.getContext`2d`).rect(0,0,w,h),C.stroke())

f(8)

<canvas id=c width=300 height=300>

Mathematica, 87 85 ไบต์

ขอบคุณ @martin สำหรับ 1 ไบต์

Graphics@{EdgeForm@Thin,White,Rectangle[#,0{,}]&/@NestList[Sort[#/a]&,{1,a=√2},#]}&

JavaScript (ES6) / SVG (HTML5), 170 ไบต์

a=prompt();document.write('<svg width=297 height=210>');for(w=297,h=210;a--;h>w?h/=2:w/=2)document.write(`<rect fill=none stroke=#000 x=0 y=0 width=${w} height=${h} />`);

ใช้การจัดทำดัชนีแบบอิง 1