Dans ce défi, vous devez prendre deux nombres (séparés par un espace) comme entrée et sortie d'un triangle rectangle ASCII, composé de xs.

Le premier nombre sera la largeur et la hauteur du triangle que vous devez sortir. Le deuxième nombre sera dans quel coin l'angle droit sera. Les coins sont numérotés de 1 à 4, en commençant en haut à gauche et dans l'ordre de lecture anglais:

1    2



3    4

Par exemple (entrées et leurs sorties triangulaires respectives):

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

La sortie de votre programme doit correspondre exactement à ces exemples pour leurs entrées respectives.

L'entrée sera toujours valide: le premier nombre sera un entier ≥1 et le deuxième nombre sera 1, 2, 3 ou 4.

C'est du code-golf ; le code le plus court (en nombre de caractères) gagne.

APL (30)

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

Explication:

• {... }/⎕: réduire la fonction donnée sur l'entrée (donc si l'entrée a 2 nombres, appelle simplement la fonction avec ces deux nombres, ⍺soit le nombre de gauche et ⍵le bon nombre)
• ≤/¨⍳2⍴⍺: Faire une ⍺-by- ⍺coordonner la matrice et définir les positions où la coordonnée X n'est pas supérieure à la coordonnée Y, ce qui donne un champ de bits.
• (⍎⍵⌷'⌽+⍉⊖'): sélectionnez une fonction de transformation donnée par ⍵pour placer le triangle à droite.
• ' x'[1+... ]: ajoutez-en un au champ binaire et utilisez le résultat comme index dans la chaîne ' x', en mettant donc de l'espace pour 0 et xpour 1.

Rubis, 116 115 109 96

Je vais commencer par ma propre solution.

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}

Je sais juste que je vais me faire battre par une solution GolfScript à 30 caractères presque instantanément: P

Merci à minitech d'avoir rasé 19 personnages (wow)!

GolfScript ( 34 33 caractères)

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

C'est dommage que les coins ne soient pas numérotés en rotation, car cela permettrait une approche plus élégante de la construction d'un tableau puis de sa rotation 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'));}}

Formaté:

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 caractères

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

démo en direct: http://golfscript.apphb.com/?c=OyczIDInCn5cOnkseycgJyoneCd5Kit5PC0xIDIkPyV9JS0xQDI%2BPyVuKgo%3D

dommage que ce ne soit pas 30 caractères comme demandé

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

Selon une interprétation libérale de la "sortie", les éléments suivants (104 caractères) fonctionneront.

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


f["50 4"]

Si la saisie sous forme de liste était autorisée, les éléments suivants (75 caractères) suffiraient:

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

J, 59 55 42 38 37 36 caractères

S'il est permis d'avoir l'entrée à la fin du programme:

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

Sinon (pour 3 caractères supplémentaires):

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

Usage:

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

ou

   t 3 4
  x
 xx
xxx

Je pense que cela pourrait être un peu plus court car la plupart des caractères sont des crochets et des majuscules pour le garder dans un style implicite.

Éditer
À l'aide d'un gérondif et le verbe de l'agenda a coupé quelques caractères, mais il y a encore trop de majuscules à mon goût.

Edit 2
C'est un peu plus comme ça. La suppression de l'agenda pour une liste du nombre de rotations nécessaires supprime la plupart des supports supplémentaires et quelques plafonds.

Edit 3
Débarrassé du dernier capuchon étranger et d'une paire de supports dans le processus. Besoin de trouver un moyen moins coûteux d'encoder le nombre de rotations nécessaires.

Edit 4 Utilisez un préfixe au lieu d'un suffixe pour couper un caractère. Permet une manière différente de créer la liste qui n'enregistre aucun caractère. Bugger.

Edit 5
Utilisation d'une formule pour couper un autre caractère. Je pense toujours que ce morceau pourrait être plus court.

Python 106 caractères

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

Basé sur la réponse d'Abhijit.

Modification de la création de la chaîne de sortie pour éviter la somme des chaînes et les vilains 1s dans le range. Python 3 se débarrasse de raw_in raw_input, mais oblige à utiliser //pour la division entière et à ajouter des parenthèses pour print, ce qui ne sauvegarde qu'un seul caractère.

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

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

Non golfé:

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

Preuve que je dois implémenter la surcharge et étoffer la bibliothèque standard.