이 문제에서는 입력으로 두 개의 숫자 (공백으로 구분)를 가져와 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⍴⍺일 : 확인 ⍺-by- ⍺좌표 매트릭스 및 비트 필드를주는 X 좌표의 Y 좌표보다 크지 그 위치를 설정.
• (⍎⍵⌷'⌽+⍉⊖'): ⍵삼각형을 위로 하여 변환 함수를 선택 합니다.
• ' x'[1+... ]: 비트 필드에 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 솔루션에 거의 즉시 이길 것이라는 것을 알고 있습니다.

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'));
    }
}

골프 공, 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
수식을 사용하여 다른 문자를 잘라냅니다. 여전히이 비트가 더 짧을 수 있다고 생각합니다.

파이썬 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)

파이썬 3, 91

Abhijit의 답변을 기반으로합니다.

에서 문자열과 ugly 1의 합을 피하기 위해 출력 문자열 생성을 수정했습니다 range. Python 3은 raw_in을 제거 raw_input하지만 //정수 나눗셈 에 사용하고에 대한 paranthese를 추가 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

오버로드를 구현하고 표준 라이브러리를 구현해야한다는 증거.