Neste desafio, você deve pegar dois números (separados por um espaço) como entrada e saída de um triângulo retângulo ASCII, composto por xs.

O primeiro número será a largura e a altura do triângulo que você deve exibir. O segundo número será em qual canto o ângulo reto estará. Os cantos são numerados de 1 a 4, começando no canto superior esquerdo e seguindo a ordem de leitura em inglês:

1    2



3    4

Por exemplo (entradas e suas respectivas saídas triangulares):

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

A saída do seu programa deve corresponder a esses exemplos exatamente para as respectivas entradas.

A entrada sempre será válida: o primeiro número será um número inteiro ≥1 e o segundo número será 1, 2, 3 ou 4.

Isso é código-golfe ; o código mais curto (na contagem de caracteres) vence.

APL (30)

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

Explicação:

• {... }/⎕: reduz a função fornecida sobre a entrada (por isso, se a entrada tiver 2 números, basta chamar a função com esses dois números, ⍺sendo o número esquerdo e ⍵o número certo)
• ≤/¨⍳2⍴⍺: Crie uma matriz de coordenadas ⍺-por- ⍺e defina as posições em que a coordenada X não é maior que a coordenada Y, fornecendo um campo de bits.
• (⍎⍵⌷'⌽+⍉⊖'): selecione uma função de transformação fornecida por ⍵para colocar o triângulo com o lado direito para cima.
• ' x'[1+... ]: adicione um ao campo de bits e use o resultado como um índice na string ' x', colocando espaço para 0 e x1.

Ruby, 116 115 109 96

Começarei com minha própria solução.

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}

Só sei que vou ser derrotado por uma solução GolfScript de 30 caracteres quase que instantaneamente: P

Graças à minitech por cortar 19 caracteres (uau)!

GolfScript ( 34 33 caracteres)

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

É uma pena que os cantos não sejam numerados em rotação, porque isso permitiria uma abordagem mais elegante de criar uma matriz e depois girá-la várias nvezes:

~\:^,{)' 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'));}}

Formatado:

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 caracteres

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

demonstração ao vivo: http://golfscript.apphb.com/?c=OyczIDInCn5cOnkseycgJyoneCd5Kit5PC0xIDIkPyV9JS0xQDI%2BPyVuKgo%3D

Pena que não são 30 caracteres, conforme solicitado

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"]}}]

Sob uma interpretação liberal de "saída", o seguinte (104 caracteres) funcionará.

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


f["50 4"]

Se a entrada na forma de uma lista fosse permitida, o seguinte (75 caracteres) seria suficiente:

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

J, 59 55 42 38 37 36 caracteres

Se for permitido ter a entrada no final do programa:

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

Caso contrário (para 3 caracteres adicionais):

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

Uso:

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

ou

   t 3 4
  x
 xx
xxx

Eu acho que isso poderia ser um pouco mais curto, já que a maioria dos personagens são colchetes e bonés para mantê-lo em um estilo implícito.

Editar
Usando um gerúndio e o verbo da agenda foram cortados alguns caracteres, mas ainda existem muitos limites para o meu gosto.

Edit 2
Isso é um pouco mais parecido. Despejar a agenda de uma lista de quantas rotações são necessárias elimina a maioria dos colchetes extras e alguns limites.

Editar 3
Livre-se da última tampa estranha e de um par de colchetes no processo. Precisa encontrar uma maneira mais barata de codificar o número de rotações necessárias.

Editar 4 Use prefixo em vez de sufixo para cortar um caractere. Permite uma maneira diferente de criar a lista que não salva nenhum caractere. Bugger.

Editar 5
Usando uma fórmula para cortar outro caractere. Ainda sinto que esse pedaço pode ser mais curto.

Python 106 caracteres

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

Com base na resposta de Abhijit.

Modificou a criação da string de saída para evitar a soma de strings e os feios 1s no range. O Python 3 se livra do raw_in raw_input, mas torna necessário usar //a divisão inteira e adicionar parênteses para print, de modo que salva apenas um caractere.

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

Gatinho , 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

Evidência de que preciso implementar sobrecarga e detalhar a biblioteca padrão.