เป้าหมาย

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

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

ไม่อนุญาตให้มีทรัพยากรหรืออินพุตภายนอกอื่น ๆ

ตัวอย่างอินพุตและเอาต์พุต

10

ABDDFFFFHHHHHHHHJJJJJJJJJJJJJJJJ
CCDDFFFFHHHHHHHHJJJJJJJJJJJJJJJJ
EEEEFFFFHHHHHHHHJJJJJJJJJJJJJJJJ
EEEEFFFFHHHHHHHHJJJJJJJJJJJJJJJJ
GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ
GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ
GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ
GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ

เกณฑ์การคัดเลือก

รหัสที่สั้นที่สุดในหนึ่งสัปดาห์จะชนะคะแนน

code-golf ascii-art

— มือ-E-อาหาร
แหล่งที่มา

เอาต์พุตควรเป็นอะไรสำหรับ non-powers 4

— marinus

เอาต์พุตจำเป็นต้องเป็นของลำดับ A, B, C ฯลฯ หรือไม่

— Kendall Frey

2

@marinus พิเศษเกี่ยวกับพลังของ 4 คืออะไร? บางทีคุณอาจเข้าใจผิดตัวอย่าง?

— Kendall Frey

@KendallFrey ไม่มีมีเพียงแค่ต้องการที่จะเป็นnตัวอักษรพิมพ์ที่ไม่ซ้ำกัน

— Hand-E-Food

มันต้องเกิดขึ้นอีกครั้งตรงมุมบนซ้ายหรือไม่

— mniip

10

APL, 25 ตัวอักษร / ไบต์ *

{⍉⍣⍵⊃{a,⍺⍴⍨⍴a←⍉⍪⍵}/⌽⍵↑⎕A}

มุมมองการระเบิด

{                   ⍵↑⎕A}   ⍝ take the first ⍵ letters
    ⊃{           }/⌽        ⍝ fold over them, using the first one as initial accum. value
            a←⍉⍪⍵           ⍝    ensure the accum. is a table, transpose it and call it 'a'
        ⍺⍴⍨⍴                ⍝    make a table as large as 'a' filled with the next letter
      a,                    ⍝    append it to the right of 'a' and loop as new accumulator
 ⍉⍣⍵                        ⍝ transpose the result as many times as the original ⍵ number

ตัวอย่าง

      {⍉⍣⍵⊃{a,⍺⍴⍨⍴a←⍉⍪⍵}/⌽⍵↑⎕A}¨⍳8
A AB  AB  ABDD  ABDD  ABDDFFFF  ABDDFFFF  ABDDFFFFHHHHHHHH
      CC  CCDD  CCDD  CCDDFFFF  CCDDFFFF  CCDDFFFFHHHHHHHH
                EEEE  EEEEFFFF  EEEEFFFF  EEEEFFFFHHHHHHHH
                EEEE  EEEEFFFF  EEEEFFFF  EEEEFFFFHHHHHHHH
                                GGGGGGGG  GGGGGGGGHHHHHHHH
                                GGGGGGGG  GGGGGGGGHHHHHHHH
                                GGGGGGGG  GGGGGGGGHHHHHHHH
                                GGGGGGGG  GGGGGGGGHHHHHHHH

⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯⎯
^{*: APL สามารถเขียนด้วยชุดอักขระแบบไบต์เดียว (ดั้งเดิม) ของตัวเองที่จับคู่สัญลักษณ์ APL กับค่าบน 128 ไบต์ ดังนั้นเพื่อจุดประสงค์ในการให้คะแนนโปรแกรมของ N chars ที่ใช้อักขระ ASCII และสัญลักษณ์ APLเท่านั้นจึงถือได้ว่ามีความยาว N ไบต์}

— Tobia
แหล่งที่มา

9

GolfScript 30 ตัวอักษร

~(,[0`]{{[49+]1$,*+}+%zip}@/n*

ตัวอย่าง (ทำงานออนไลน์ ):

— ฮาวเวิร์ด
แหล่งที่มา

สิ่งนี้สร้างผลลัพธ์ที่ไม่ถูกต้องสำหรับตัวเลขคู่เช่นหนึ่งในคำถาม ...

— Timwi

@ Timwi ฉันเพิ่งทดสอบมันทำงานได้สำหรับฉัน เอาท์พุทเป็น transposed แต่ไม่ได้ระบุการวางแนวในคำถาม

— Howard

เอาล่ะฉันเดาว่าฉันเข้มงวดเกินไป :)

— ทิมวี่

@ โฮวาร์ดหืมนั่นเป็นวิธีที่ฉันเข้าใจ "และพื้นที่ก่อนหน้ายังคงไม่เปลี่ยนแปลง" เขาบอกว่าตัวละครสองตัวแรกอาจอยู่ในมุมใดก็ได้ แต่เขาไม่ได้บอกว่าการวางแนวอาจเปลี่ยนไป

— Martin Ender

7

Python 2.7 - 85 103

สิ่งนี้ใช้zip(*s)ไวยากรณ์เพื่อโอนย้ายรายการอย่างต่อเนื่อง ขอบคุณ Daniel มากสำหรับคำแนะนำของเขาที่โกนตัวละคร 12 ตัว! จากนั้นโกนอีกสองสามครั้งโดยใช้ตัวเลขแทนตัวอักษร

s=[]
for i in range(input()):x=1<<i/2;s=zip(*s+[chr(65+i)*x]*x)
for i in s:print''.join(i)

นอกจากนี้สิ่งนี้ใช้1<<xแทน2**xบิตกะมีความสำคัญต่ำกว่า (?) สังเกต:

>>> 1<<(2*3)
64
>>> 1<<2*3
64
>>> 2**2*3
12
>>> 2**(2*3)
64

และบางเอาท์พุท:

10
01335555777777779999999999999999
22335555777777779999999999999999
44445555777777779999999999999999
44445555777777779999999999999999
66666666777777779999999999999999
66666666777777779999999999999999
66666666777777779999999999999999
66666666777777779999999999999999
88888888888888889999999999999999
88888888888888889999999999999999
88888888888888889999999999999999
88888888888888889999999999999999
88888888888888889999999999999999
88888888888888889999999999999999
88888888888888889999999999999999
88888888888888889999999999999999

1

ดี คุณสามารถย่อ bit for i in s:print''.join(i)กับ

— Daniel Lubarov

5

ทับทิม, 88

อ่าน N จากอินพุตมาตรฐาน

s=[?A]
66.upto(64+gets.to_i){|i|x=i.chr*y=s.size;i%2<1?s.map!{|r|r+x}:s+=[x*2]*y}
puts s

ตัวอย่างการใช้งานสำหรับ N = 8:

echo 8 | rectangular-pseudo-fractal.rb

เอาท์พุท:

ABDDFFFFHHHHHHHH
CCDDFFFFHHHHHHHH
EEEEFFFFHHHHHHHH
EEEEFFFFHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH

N = 10

echo 10 | rectangular-pseudo-fractal.rb

เอาท์พุท:

ABDDFFFFHHHHHHHHJJJJJJJJJJJJJJJJ
CCDDFFFFHHHHHHHHJJJJJJJJJJJJJJJJ
EEEEFFFFHHHHHHHHJJJJJJJJJJJJJJJJ
EEEEFFFFHHHHHHHHJJJJJJJJJJJJJJJJ
GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ
GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ
GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ
GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ
IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ

— Paul Prestidge
แหล่งที่มา

ผลลัพธ์ของลักษณะนี้เป็นอย่างไร

@LegoStormtroopr เพิ่มตัวอย่างมันเป็นรูปแบบที่แน่นอนเหมือนกับคำถาม

— Paul Prestidge

4

J, 57 43

(,`,.@.(=/@$@[)$${&a.@(66+2&^.@#@,)^:)1$'A'

ตัวอย่าง:

5 (,`,.@.(=/@$@[)$${&a.@(66+2&^.@#@,)^:)1$'A'
ABDDFFFF
CCDDFFFF
EEEEFFFF
EEEEFFFF

7 (,`,.@.(=/@$@[)$${&a.@(66+2&^.@#@,)^:)1$'A'
ABDDFFFFHHHHHHHH
CCDDFFFFHHHHHHHH
EEEEFFFFHHHHHHHH
EEEEFFFFHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH

— barbermot
แหล่งที่มา

C และ D ทั้งสองขยายในแนวนอน พวกเขาควรสลับแนวนอนและแนวตั้ง

— Hand-E-Food

@ Hand-E-Food คุณพูดถูก ขอบคุณสำหรับการชี้ให้เห็นว่า ฉันแก้ไขรหัสแล้ว (และโพสต์)

— barbermot

4

MATLAB, 86 ตัวอักษร

MATLAB ที่สั้นที่สุดที่ฉันลองใช้โดย @flawr (สองครั้ง!):

function M=f(n)
M='';
if n
M=cat(mod(n,2)+1,f(n-1),64+n*ones(2.^fix(n/2-[.5,1])));
end

ตัวอย่างผลลัพธ์:

>> disp(f(7))
ACEEGGGG
BCEEGGGG
DDEEGGGG
DDEEGGGG
FFFFGGGG
FFFFGGGG
FFFFGGGG
FFFFGGGG

— knedlsepp
แหล่งที่มา

สิ่งนี้จะช่วยให้คุณประหยัดไบต์:function M=f(n) M=''; if n M=cat(mod(n,2)+1,f(n-1),64+n*ones(2.^fix([n-1,n-2]/2))); end

— ข้อบกพร่อง

@flawr: โอ้! เห็นได้ชัด!

— knedlsepp

บันทึกไบต์อื่นด้วยการแทนที่อาร์กิวเมนต์fixด้วยfix(n/2-[.5,1])PS: วิธีแก้ปัญหาที่ดีจริงๆด้วยcat, ไม่ทราบเกี่ยวกับการใช้งานนี้ซึ่งคุณสามารถเลือกขนาด =)

— ข้อบกพร่อง

@ flawr: ดูเหมือนว่าฉันฉันค่อนข้างสิ้นเปลือง ;-)

— knedlsepp

ฉันเพิ่งสังเกตว่าคุณใหม่ที่นี่ดังนั้นยินดีต้อนรับบน codegolf.SE มันดีที่จะมี.) เพิ่มเติม matlab junkies, b.) ลำโพงเยอรมันที่นี่ (ฉันถือว่า)!

— ข้อบกพร่อง

3

q [73 ตัวอักษร]

{"c"$64+{n:x 0;m:x 1;if[2>n;m:(),m];(o;$[n-2*n div 2;,';,][m;(#m;#m 0)#o:n+1])}/[x-1;(1;1)]1}

ตัวอย่าง

10
"ABDDFFFFHHHHHHHHJJJJJJJJJJJJJJJJ"
"CCDDFFFFHHHHHHHHJJJJJJJJJJJJJJJJ"
"EEEEFFFFHHHHHHHHJJJJJJJJJJJJJJJJ"
"EEEEFFFFHHHHHHHHJJJJJJJJJJJJJJJJ"
"GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ"
"GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ"
"GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ"
"GGGGGGGGHHHHHHHHJJJJJJJJJJJJJJJJ"
"IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"
"IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"
"IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"
"IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"
"IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"
"IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"
"IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"
"IIIIIIIIIIIIIIIIJJJJJJJJJJJJJJJJ"

3
"AB"
"CC"

6
"ABDDFFFF"
"CCDDFFFF"
"EEEEFFFF"
"EEEEFFFF"

— Nyi
แหล่งที่มา

3

Sclipting 59 ตัวอักษร

❶塊갠分감⓶左貶終辦감標가⓺貶⓹開上❶❶貶雙是不⒉갠乘⒉終가①上뀀❷②갠分小是增終❸⓷另要감右⓶갠加⓶終丟字⓶終丟겠終

(โปรแกรมนี้อาจจะค่อนข้างสั้นลงเล็กน้อยถ้าฉันมีคำแนะนำสำหรับลอการิทึมฐาน 2 แต่ฉันทำไม่ได้ดังนั้นฉันจึงทำด้วยตนเองด้วยลูป)

รหัสข้อเขียน

n คืออินพุต

❶ | n n

f = i => (1 << (i/2)) - 1;
塊갠分감⓶左貶終 | n n f

w = f(n);
辦 | n w f

d = 1;
감 | n w f d

s = "";
標 | n w f d M [s]

for (y in [0..f(n-1)])
가⓺貶⓹開上 | w d M [s] y

    if ((y & (y-1)) == 0) d *= 2;
    ❶❶貶雙是不⒉갠乘⒉終 | w d M [s] y

    for (x in [0..w])
    가①上 | w d M [s] y x

        c = 64; // '@'
        뀀 | w d M [s] y x c

        if (x < d/2) c++;
        ❷②갠分小是增終 | w d M [s] y x c

        a = x | y;
        ❸⓷另 | w d M [s] y c a

        while (a > 0) { a >>= 1; c += 2; }
        要감右⓶갠加⓶終丟 | w d M [s] y c

        s += (char) c;
        字⓶ | w d M [s] y
    終丟 | w d M [s]

    s += "\n"
    겠 | w d M [s]
終

เอาท์พุต

สำหรับn= 6:

ABDDFFFF
CCDDFFFF
EEEEFFFF
EEEEFFFF

แน่นอนคุณสามารถเปลี่ยน뀀( @) เป็นอักขระพื้นฐานอื่น ๆ เช่นด้วย글(ช่องว่าง) และn= 7:

!"$$&&&&
##$$&&&&
%%%%&&&&
%%%%&&&&
''''''''
''''''''
''''''''
''''''''

จำนวนสูงสุดที่ไม่ได้ทำให้โปรแกรมนานขึ้นคือ믰(= 255) ซึ่งให้เรา ( n= 8 ครั้งนี้):

Āāăăąąąąćććććććć
ĂĂăăąąąąćććććććć
ĄĄĄĄąąąąćććććććć
ĄĄĄĄąąąąćććććććć
ĆĆĆĆĆĆĆĆćććććććć
ĆĆĆĆĆĆĆĆćććććććć
ĆĆĆĆĆĆĆĆćććććććć
ĆĆĆĆĆĆĆĆćććććććć

หากเราทำให้โปรแกรม 1 ตัวละครยาวขึ้นเช่น use 냟및(= \u4DFF) และn= 9 เราจะได้รับ:

一丁七七丅丅丅丅万万万万万万万万
丂丂七七丅丅丅丅万万万万万万万万
丄丄丄丄丅丅丅丅万万万万万万万万
丄丄丄丄丅丅丅丅万万万万万万万万
丆丆丆丆丆丆丆丆万万万万万万万万
丆丆丆丆丆丆丆丆万万万万万万万万
丆丆丆丆丆丆丆丆万万万万万万万万
丆丆丆丆丆丆丆丆万万万万万万万万
丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈
丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈
丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈
丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈
丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈
丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈
丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈
丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈丈

— Timwi
แหล่งที่มา

3

C #, 239 185 182 180 ไบต์

C # ไม่มีอะไรในภาษา verbose น้อย

using C=System.Console;
class P{
    static void Main(string[]a){
        for(int x,i,n=int.Parse(a[0]);n-->0;C.CursorTop=0)
            for(i=1<<n,x=1<<n/2+n%2;i-->0;)
                C.Write((char)(n+33)+(i%x<1?"\n":""));
    }
}

เอาต์พุตอักขระที่เลือกไว้สำหรับความน่ารัก:

!"$$&&&&((((((((****************
##$$&&&&((((((((****************
%%%%&&&&((((((((****************
%%%%&&&&((((((((****************
''''''''((((((((****************
''''''''((((((((****************
''''''''((((((((****************
''''''''((((((((****************
))))))))))))))))****************
))))))))))))))))****************
))))))))))))))))****************
))))))))))))))))****************
))))))))))))))))****************
))))))))))))))))****************
))))))))))))))))****************
))))))))))))))))****************

— มือ-E-อาหาร
แหล่งที่มา

1

ไม่แน่ใจว่าคุณนับ แต่ฉันนับ 184 คุณสามารถบันทึกอักขระสองตัวโดยการใส่เครื่องหมายวงเล็บจากforลูปด้านนอกทำให้ 182

— Bob

ขอบคุณ @Bob! ฉันต้องผิดพลาดในขณะที่เพิ่มประสิทธิภาพขนาดเล็ก

— Hand-E-Food

2

PERL, 122 ตัวอักษร

$N=<>;$x=$r=1;do{$_=chr$a+++65;$s=$x;$o=$_ x$s;$o.=$_++x$s,$s*=2while$N+65>ord++$_;print"$o\n"x$r;$r=$x;$x*=2}while++$a<$N

ด้วยการเพิ่มช่องว่าง:

$N=<>;
$x=$r=1;
do{
    $_=chr$a+++65;
    $s=$x;
    $o=$_ x$s;
    $o.=$_++x$s,$s*=2 
        while $N+65>ord++$_;
    print "$o\n"x$r;
    $r=$x;
    $x*=2
} while++$a<$N

เอาท์พุท:

$ echo 8 | perl pseudo-fractal.pl
ABDDFFFFHHHHHHHH
CCDDFFFFHHHHHHHH
EEEEFFFFHHHHHHHH
EEEEFFFFHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH

— โทมัส
แหล่งที่มา

1

PERL, 94 81 ตัวอักษร

$N=$_;$_=$:=A;$h=1;++$i%2?s/$/$:x$h/gem:($_.=($/.$:x2x$h)x$h,$h*=2)while++$:,--$N

มันสร้างเศษส่วนซ้ำแล้วซ้ำอีกทีละตัวอักษรเพิ่มแถวและคอลัมน์ใหม่และแถวและคอลัมน์ ... ใช้การดำเนินการสตริงง่าย ๆ ที่จะทำ โปรดทราบว่าฉันใช้ตัวแปรมาตรฐานในทางที่ผิดแทนที่จะใช้ตัวอักษรตัวหนึ่งเพื่ออนุญาตให้ใช้ไวยากรณ์น้ำตาล (เช่นเว้นวรรค - $:x2เป็นต้น)

ด้วยการเพิ่มช่องว่างและความคิดเห็น:

$N=$_;
$_=$:=A;                    # $: is current letter
$h=1;

++$i%2? 
s/$/$:x$h/gem:              # every odd run - add "columns"
($_.=($/.$:x2x$h)x$h,$h*=2) # every even run - add "rows"
while++$:,--$N              # iterate over letters

เอาท์พุทบาง:

$ echo 8 | perl -p pseudo-fractal.fill.pl.5a5
ABDDFFFFHHHHHHHH
CCDDFFFFHHHHHHHH
EEEEFFFFHHHHHHHH
EEEEFFFFHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH
GGGGGGGGHHHHHHHH

— โทมัส
แหล่งที่มา

1

Sclipting , 45 ตัวอักษร

가⓶貶上倘감雙⓶壹長⓸講增字⓶復⓷是標⓷各①合終并不⓶梴❸⓶疊合終不뀐標뀐并終終⓶丟各겠終

โซลูชันนี้ทำงานแตกต่างอย่างสิ้นเชิงจากโซลูชัน Sclipting อื่น ๆ มันน่าเบื่อกว่าเดิม แต่มันสั้นกว่า ...

ข้อเขียน

for i in [0..n-1]
가⓶貶上
    if (i != 0)
    倘
        i &= 1
        감雙
        e = list[0].Length
        ⓶壹長
        c = ((char) (c[0] + 1)).Repeat(e)
        ⓸講增字⓶復
        if (i)
        ⓷是
            concatenate c onto every element of list
            標⓷各①合終并
        else
        不
            concatenate c.Repeat(list.Length) onto list
            ⓶梴❸⓶疊合
        終
    else (i.e., i == 0)
    不
        c = "A"
        뀐
        list = ["A"]
        標뀐并
    終
終
concatenate "\n" to every element in list
⓶丟各겠終

— Timwi
แหล่งที่มา

1

Delphi 348 || 449 กับเยื้อง

โดยไม่ต้องเยื้อง

var inp,j,i,x: integer;s:string;L:TStringlist;begin L:=TStringList.Create;readln(s);inp:=StrToIntDef(s,4);if inp<4then inp:=4;s:='';l.Add('AB');for I:=2to inp-1do begin j:=Length(L[0]);if i mod 2=0then for x:=0to L.Count-1do L.Add(s.PadLeft(j,Chr(65+i)))else for x:=0to L.Count-1do L[x]:=L[x]+s.PadLeft(j,Chr(65+i));end;Write(L.GetText);readln;end.

ด้วยการเยื้อง

var
  inp,j,i,x: integer;
  s:string;
  L:TStringlist;
begin
  L:=TStringList.Create;
  readln(s);
  inp:=StrToIntDef(s,4);
  if inp<4then inp:=4;
  s:='';
  l.Add('AB');

  for I:=2to inp-1do
  begin
    j:=Length(L[0]);
    if i mod 2=0then
      for x:=0to L.Count-1do L.Add(s.PadLeft(j,Chr(65+i)))
    else
      for x:=0to L.Count-1do
        L[x]:=L[x]+s.PadLeft(j,Chr(65+i));
  end;
  Write(L.GetText);
  readln;
end.

— ตี๋พรอนค์
แหล่งที่มา

1

CJam, 30 (23) ไบต์

CJam อายุน้อยกว่าความท้าทายนี้สองสามเดือนดังนั้นจึงไม่มีสิทธิ์ได้เครื่องหมายถูกสีเขียว

l~(Sa1${{_,I'!+*+}%z}fI\{z}*N*

ทดสอบที่นี่

OP อธิบายไว้ในความคิดเห็นว่าอนุญาตให้ใช้ชุดอักขระเฉพาะที่พิมพ์ได้ดังนั้นฉันจึงใช้อักขระ ASCII ที่พิมพ์ได้ตั้งแต่เริ่มต้น (โดยมีช่องว่างอยู่ที่มุม!ถัดไปเป็นต้น)

หากการวางแนวอาจเปลี่ยนไประหว่างอินพุตคู่และคี่ (ซึ่งฉันไม่คิด แต่นั่นคือสิ่งที่การส่ง GolfScript ทำ) ฉันสามารถทำได้ใน 25 ไบต์:

S]l~({{_,I'!+*+}%z}fIN*

ความคิดนั้นง่ายมาก: เริ่มจากกริดที่มีช่องว่างแล้ว N-1 คูณทรานสมันและเพิ่มทุกบรรทัดด้วยอักขระตัวถัดไป

สำหรับรุ่นยาวในตอนท้ายฉันยังแปลงอีกครั้ง N-1 อีกครั้งเพื่อรับประกันการวางแนวที่สอดคล้องกัน

— Martin Ender
แหล่งที่มา

สี่เหลี่ยมหลอกหลอกเศษส่วน

เป้าหมาย

ตัวอย่างอินพุตและเอาต์พุต

เกณฑ์การคัดเลือก

APL, 25 ตัวอักษร / ไบต์ *

GolfScript 30 ตัวอักษร

Python 2.7 - 85 103

ทับทิม, 88

q [73 ตัวอักษร]

ตัวอย่าง

Sclipting 59 ตัวอักษร

รหัสข้อเขียน

เอาท์พุต

C #, 239 185 182 180 ไบต์

PERL, 122 ตัวอักษร

PERL, 94 81 ตัวอักษร

Sclipting , 45 ตัวอักษร

ข้อเขียน

Delphi 348 || 449 กับเยื้อง

โดยไม่ต้องเยื้อง

ด้วยการเยื้อง

CJam, 30 (23) ไบต์