在此挑战中，您必须采用两个数字（以空格分隔）作为输入，并输出由xs 组成的ASCII直角三角形。

第一个数字是您应该输出的三角形的宽度和高度。第二个数字是直角将位于哪个角。这些角的编号为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⍴⍺：创建一个⍺按⍺坐标矩阵，并设置X坐标不大于Y坐标的那些位置，并提供一个位域。
• (⍎⍵⌷'⌽+⍉⊖')：选择给出的转换函数，⍵以使三角形右上。
• ' x'[1+... ]：在位字段中添加一个，然后将结果用作字符串的索引' 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}

我只知道我会立即被30个字符的GolfScript解决方案击败：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

我认为这可能会短一些，因为大多数字符都用方括号和大写字母来保持隐式样式。

编辑
使用动名词，议程动词砍掉了几个字符，但是我喜欢的还有很多大写字母。

编辑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_in raw_input，但是必须//用于整数除法并为添加括号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

取消高尔夫：

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

我需要实现重载并充实标准库的证据。