Bu meydan okumada, giriş olarak iki sayı (boşlukla ayrılmış) almalı ve xs'den oluşan bir ASCII sağ üçgeni çıkarmalısınız.

İlk sayı, çıkmanız gereken üçgenin genişliği ve yüksekliği olacaktır. İkinci sayı, sağ köşenin hangi köşede olacağı olacaktır. Köşeler sol üst köşeden başlayıp İngilizce okuma sırasına göre 1 ile 4 arasında numaralandırılmıştır:

1    2



3    4

Örneğin (girişler ve ilgili üçgen çıkışlar):

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

Programınızın çıktısı, ilgili girdileri için bu örneklerle tam olarak eşleşmelidir.

Giriş her zaman geçerli olacaktır: ilk sayı ≥1 tamsayısı ve ikinci sayı 1, 2, 3 veya 4 olacaktır.

Bu kod golfü ; en kısa kod (karakter sayısında) kazanır.

APL (30)

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

Açıklama:

• {... }/⎕: giriş üzerinden verilen işlevi azaltın (yani girişte 2 sayı varsa, işlevi sadece bu iki sayıyla çağırır ⍺, sol sayı ve ⍵sağ sayı olur)
• ≤/¨⍳2⍴⍺: Bir ⍺-by- ⍺koordinat matrisi yapın ve X koordinatının Y koordinatından büyük olmadığı konumları bir bit alanı vererek ayarlayın.
• (⍎⍵⌷'⌽+⍉⊖'): ⍵üçgeni sağ tarafa gelecek şekilde koymak için bir dönüştürme işlevi seçin .
• ' x'[1+... ]: bit alanına bir tane ekleyin ve sonucu dizeye bir dizin olarak kullanın ' x', böylece 0 ve x1 için boşluk bırakın .

Yakut, 116 115 109 96

Kendi çözümümle başlayacağım.

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}

Hemen hemen 30 karakterlik bir GolfScript çözümü ile dövüleceğimi biliyorum: P

Minitech'e 19 karakteri tıraş ettiği için teşekkürler (vay)!

GolfScript ( 34 33 karakter)

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

Köşelerin dönüşte numaralandırılmaması bir utançtır, çünkü bu bir dizi oluşturmak ve daha sonra nsüreleri döndürmek için daha zarif bir yaklaşıma izin verir :

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

biçimlendirilmiş:

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 karakter

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

canlı demo: http://golfscript.apphb.com/?c=OyczIDInCn5cOnkseycgJyoneCd5Kit5PC0xIDIkPyV9JS0xQDI%2BPyVuKgo%3D

çok kötü istendiği gibi 30 karakter değil

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

"Çıktı" nın liberal bir yorumu altında, aşağıdaki (104 karakter) işe yarayacaktır.

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


f["50 4"]

Liste biçimindeki girdiye izin verilmişse, aşağıdaki (75 karakter) yeterli olacaktır:

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

J, 59 55 42 38 37 36 karakter

Programın sonunda girişe izin verilirse:

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

Değilse (fazladan 3 karakter için):

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

Kullanımı:

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

veya

   t 3 4
  x
 xx
xxx

Karakterlerin çoğu örtülü bir tarzda tutmak için parantez ve kapaklar olduğu için bu biraz daha kısa olabilir.

Düzenleme
Bir ulaç ve gündem fiil kullanmak birkaç karakter doğradı, ama yine de sevdiğim için çok fazla büyük harf var.

Edit 2
Bu biraz daha fazla. Kaç tane rotasyonun gerekli olduğunun bir listesi için gündemi boşaltmak, ekstra parantezlerin ve birkaç kapağın çoğundan kurtulur.

Düzenle 3
Son yabancı kapaktan ve işlem sırasında bir çift parantezden kurtuldum. Gerekli rotasyon sayısını kodlamanın daha ucuz bir yolunu bulmanız gerekir.

Düzenle 4 Bir karakteri kesmek için sonek yerine önek kullanın. Herhangi bir karakter kaydetmeyen liste oluşturmak için farklı bir yol sağlar. Kahretsin.

Düzenle 5
Başka bir karakteri kesmek için formül kullanma. Yine de bu parçanın daha kısa olabileceğini hissediyorum.

Python 106 Karakterleri

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

Abhijit'in cevabına dayanarak.

Dizeleri ve çirkin 1s toplamını önlemek için çıkış dizesi oluşturma değiştirildi range. Python 3 kurtulmak alır raw_içinde raw_input, ama kullanılması gerekli kılan //tam sayı olarak bölünme ve için parantez eklemek için printyalnızca bir karakter kazandırır, böylece.

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

Yavru kedi , 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

Aşırı yüklemeyi uygulamam ve standart kütüphaneyi etsem gerektiğine dair kanıt.