ในการท้าทายนี้คุณจะต้องใช้ตัวเลขสองตัว (คั่นด้วยช่องว่าง) เป็นอินพุตและเอาต์พุตสามเหลี่ยมมุมฉาก ASCII ที่สร้างขึ้นจากxs

จำนวนแรกจะเป็นความกว้างและความสูงของรูปสามเหลี่ยมที่คุณควรออก ตัวเลขที่สองจะเป็นมุมที่มุมขวาจะเป็นมุมที่มีหมายเลข 1 ถึง 4 เริ่มต้นที่มุมบนซ้ายและเรียงตามลำดับการอ่านภาษาอังกฤษ:

1    2



3    4

ตัวอย่างเช่น (อินพุตและเอาต์พุตสามเหลี่ยมที่เกี่ยวข้อง):

INPUT | 3 1 | 3 2 | 3 3 | 3 4
------+-----+-----+-----+----
 OUT- | xxx | xxx | x   |   x
 PUT  | xx  |  xx | xx  |  xx
      | x   |   x | xxx | xxx

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

อินพุตจะถูกต้องเสมอ: หมายเลขแรกจะเป็นจำนวนเต็ม≥1และหมายเลขที่สองจะเป็น 1, 2, 3 หรือ 4

นี่คือรหัสกอล์ฟ ; รหัสที่สั้นที่สุด (ในจำนวนตัวอักษร) ชนะ

APL (30)

{' x'[1+(⍎⍵⌷'⌽+⍉⊖')≤/¨⍳2⍴⍺]}/⎕

คำอธิบาย:

• {... }/⎕: ลดฟังก์ชั่นที่กำหนดเหนืออินพุต (ดังนั้นหากอินพุทมี 2 ตัวเลขเพียงแค่เรียกฟังก์ชั่นที่มีสองตัวเลขเหล่านี้⍺เป็นหมายเลขซ้ายและหมายเลข⍵ที่ถูกต้อง)
• ≤/¨⍳2⍴⍺: Make ⍺-by- ⍺ประสานเมทริกซ์และกำหนดตำแหน่งนั้นที่พิกัด X ไม่ได้มากกว่าพิกัด Y ให้ bitfield
• (⍎⍵⌷'⌽+⍉⊖'): เลือกฟังก์ชั่นการแปลงที่กำหนดโดย⍵การใส่สามเหลี่ยมด้านขวาขึ้น
• ' x'[1+... ]: เพิ่มหนึ่งบิตใน bitfield และใช้ผลลัพธ์เป็นดัชนีในสตริง' x'ดังนั้นควรเว้นช่องว่างสำหรับ 0 และx1

ทับทิม, 116 115 109 96

ฉันจะเริ่มต้นด้วยวิธีแก้ปัญหาของตัวเอง

i=gets.split
s=i[0].to_i
(i[1]<?3?s.downto(1):1..s).map{|x|t=?x*x
puts /2|4/=~i[1]?t.rjust(s):t}

ฉันเพิ่งรู้ว่าฉันจะถูกตีด้วยโซลูชั่น GolfScript 30 ตัวอักษรเกือบจะในทันที: P

ขอบคุณ minitech สำหรับการกำจัดตัวละคร 19 ตัว (ว้าว)!

GolfScript ( 34 33 ตัวอักษร)

~\:^,{)' x'^*$>^<0(2$?%}%\(2&(%n*

มันเป็นความอัปยศที่มุมนั้นไม่ได้ถูกนับในการหมุนเพราะมันจะช่วยให้การสร้างอาร์เรย์หนึ่งแถวนั้นดูหรูหรากว่าเดิมn:

~\:^,{)' x'^*$>^<}%{-1%zip}@)*n*

C # - 195

using System;class P{static void Main(string[]a){int G=int.Parse(
a[0]),O=int.Parse(a[1]),L=O<3?0:G+1,F=O<3?-G:1;G=O%2>0?-G:G;for(;
F<L;F++)Console.Write("{0,"+G+"}\n","".PadRight(F<0?-F:F,'x'));}}

จัดรูปแบบ:

using System;
class P
{
    static void Main(string[] a)
    {
        int G = int.Parse(a[0]),
            O = int.Parse(a[1]),
            L = O < 3 ? 0 : G + 1,
            F = O < 3 ? -G : 1;

        G = O % 2 > 0 ? -G : G;

        for(; F < L; F++)
            Console.Write("{0," + G + "}\n", "".PadRight(F < 0 ? -F : F, 'x'));
    }
}

Golfscript, 39 36 35 ตัวอักษร

~\:y,{' '*'x'y*+y<0~2$?%}%-1@2>?%n*

การสาธิตสด: http://golfscript.apphb.com/?c=OyczIDInCn5cOnkseycgJyoneCd5Kit5PC0xIDIkPyV9JS0xQDI%2BPyVuKgo%3D

แย่มากมันไม่ใช่ 30 ตัวอักษรตามที่ร้องขอ

Mathematica 122 (104?)

g@s_ := ({w, p} = ToExpression@StringSplit@s; 
   Array[If[Switch[p, 1, # <= (w + 1 - #2), 2, # <= #2, 3, # >= #2, 4, # > (w - #2)],
   "X", ""] &, {w, w}]) // Grid

GraphicsGrid[{{g["12 1"], g["12 3"]}}]

ภายใต้การตีความเสรีของ "เอาท์พุท" ดังต่อไปนี้ (104 ตัวอักษร) จะทำงาน

f@s_ := ({w, p} = ToExpression@StringSplit@s; 
  Graphics[Polygon@Delete[{{w, 0}, {0, 0}, {w, w}, {0, w}}, p], Axes -> True])


f["50 4"]

หากอนุญาตให้ป้อนข้อมูลในรูปแบบของรายการต่อไปนี้ (75 ตัวอักษร) จะพอเพียง:

f[{w_, p_}] := 
 Graphics[Polygon@Delete[{{w, 0}, {0, 0}, {w, w}, {0, w}}, p], Axes -> True]

J, 59 55 42 38 37 36 ตัวอักษร

หากได้รับอนุญาตให้มีการป้อนข้อมูลในตอนท้ายของโปรแกรม:

(|:@|.@]^:([:|[+_7*2<[)[:[\'x'$~])~/

ถ้าไม่ใช่ (สำหรับ 3 ตัวอักษรพิเศษ):

t=.(|:@|.@]^:([:|[+_7*2<[)[:[\'x'$~])~/

การใช้งาน:

   (|:@|.@]^:([:|[+_7*2<[)[:[\'x'$~])~/3 4
  x
 xx
xxx

หรือ

   t 3 4
  x
 xx
xxx

ฉันคิดว่านี่อาจสั้นกว่านี้เล็กน้อยเนื่องจากตัวละครส่วนใหญ่เป็นตัวยึดและฝาครอบเพื่อให้อยู่ในรูปแบบที่แน่นอน

แก้ไข
การใช้ gerund และกริยาของวาระตัดตัวละครออกไปสองสามตัว แต่ยังมีตัวพิมพ์ใหญ่มากเกินไปสำหรับความชอบของฉัน

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

แก้ไข 3
กำจัดหมวกที่ไม่เกี่ยวข้องล่าสุดออกและวงเล็บในกระบวนการ จำเป็นต้องหาวิธีที่ถูกกว่าในการเข้ารหัสจำนวนการหมุนที่ต้องการ

แก้ไข 4 ใช้คำนำหน้าแทนคำต่อท้ายเพื่อตัดอักขระ เปิดใช้วิธีการสร้างรายการที่ไม่บันทึกอักขระใด ๆ คนเสพเวจมรรค

แก้ไข 5
ใช้สูตรเพื่อตัดอักขระอื่น ยังคงรู้สึกว่าบิตนี้อาจสั้นกว่านี้ได้

Python 106 ตัวอักษร

w,d=map(int,raw_input().split())
for e in range(1,w+1)[::d/3*2-1]:print('%'+'-+'[d%2]+str(w)+'s')%('*'*e)

Python 3, 91

ตามคำตอบของอภิสิทธิ์

ดัดแปลงสร้างสตริงการส่งออกเพื่อหลีกเลี่ยงผลรวมของสตริงและน่าเกลียด1s rangeใน Python 3 กำจัดสิ่งที่raw_อยู่ข้างในraw_inputออกไป แต่จำเป็นต้องใช้//สำหรับการหารจำนวนเต็มและเพิ่ม parantheses printเพื่อที่จะประหยัดอักขระเพียงตัวเดียว

w,d=map(int,input().split())
for e in range(w)[::d//3*2-1]:print('%*s'%(w-d%2*2*w,'x'*-~e))

ลูกแมว , 140

def s{><replicate}
getLine{' 'neChar}span{readInt fromSome}toBoth->{w n}
w 0 if(n 2>){><}..
{<>w>< -{'X's}{' 's}both if(n 2%0=){><}cat say}each

Ungolfed:

getLine
{' ' neChar} span
{readInt fromSome} toBoth
->{ width corner }

width 0
if (corner 2 >):
  swap
..

{ ->index
  'X' index replicate
  ' ' (width index -) replicate
  if (corner 2 % 0 =):
    swap
  cat say
} each

หลักฐานที่แสดงว่าฉันต้องใช้งานการบรรทุกเกินพิกัดและกำหนดค่าไลบรารีมาตรฐาน