이 게시물에서 영감을 얻었 습니다 . 이 질문을 중복으로 표시하는 사람들은 실제로 내 질문이 링크 된 질문의 수정 사항인지 확인하기 위해 질문을 읽어보십시오. 링크 된 것은 입력을 요구하지 않고 알파벳을 대각선으로 만 인쇄하는 것입니다.

도전

1-26 사이의 입력이 있으면 알파벳을 대각선으로 인쇄하지만 주어진 입력의 색인에서 세로로 인쇄를 시작하십시오.

예

주어진 입력 :

16

프로그램은 다음을 출력해야합니다 :

a
 b
  c
   d
    e
     f
      g
       h
        i
         j
          k
           l
            m
             n
              o
               p
               q
               r
               s
               t
               u
               v
               w
               x
               y
               z

입력:

4

산출:

a
 b
  c
   d
   e
   f
   g
   h
   i
   j
   k
   l
   m
   n
   o
   p
   q
   r
   s
   t
   v
   w
   x
   y
   z

입력:

1

산출:

a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z

입력:

26

산출:

a
 b
  c
   d
    e
     f
      g
       h
        i
         j
          k
           l
            m
             n
              o
               p
                q
                 r
                  s
                   t
                    u
                     v
                      w
                       x
                        y
                         z

채점

이것은 code-golf 이므로 각 언어에서 가장 짧은 답변이 이깁니다.

행운을 빕니다!

숯 , 9 바이트

↘✂β⁰Ｎ↓✂βη

온라인으로 사용해보십시오!

작동 원리

↘✂β⁰Ｎ↓✂βη
 ✂β⁰Ｎ         the alphabet from position 0 to the input
↘               print diagonally, down and to the right
        ✂βη    the alphabet starting from the position of the input
       ↓        print downwards

이 솔루션은 더 이상 현재 버전의 Charcoal (버그 수정으로 인해)에서 작동하지 않지만이 문제는로 10 바이트 동안 해결되었습니다 ↘✂β⁰Ｎ↓✂βＩθ.

05AB1E , 11 바이트

AvNI<‚Wysú,

05AB1E를 처음 사용하므로 팁을 얻을 수 있습니다.

온라인으로 사용해보십시오!

로부터 인덱스 제로를 입력하는 경우 0에이 25허용되며, 이는 생략 10 바이트 일 수있다 <.

자바 스크립트 (ES2017), 73 72 71 66 바이트

@JustinMariner 덕분에 바이트를 절약했습니다.

f=(n,x=26)=>x?f(n,x-1)+(x+9).toString(36).padStart(x<n?x:n)+`
`:''

파이썬 2, 61 58 57 바이트

n=input()-1
for i in range(26):print(' '*i)[:n]+chr(i+97)

Rod 덕분에 -3 바이트

Mr. Xcoder 덕분에 -1 바이트 더

루비, 51 46 43 바이트

->n{(0..25).map{|x|(' '*x)[0,n-1]<<(x+97)}}

문자열 목록을 반환합니다.

파이썬 사람들이 아래 첨자로 무언가를하고있는 것처럼 보입니다. Xcoder의 ppperry 솔루션 개선에서 영감을 얻어 -5 바이트.

rjust(51 바이트)의 이전 솔루션 :

->n{i=0;(?a..?z).map{|c|c.rjust i+=n>c.ord-97?1:0}}

파이썬 2 , 62 50 57 바이트

x=input();n=m=1
exec"print'%*c'%(m,n+96);n+=1;m+=x>m;"*26

온라인으로 사용해보십시오!

Dennis의 답변 에서 크게 훔칩니다 .

R, 99 89 바이트

@MickeyT는 10 바이트를 저장했습니다

기능

function(x)for(i in 1:26)cat(paste(c(rep(" ",min(x,i)),letters[i]),collapse=""),sep="\n")

데모

f <- function(x)for(i in 1:26)cat(paste(c(rep(" ",min(x,i)),letters[i]),collapse=""),sep="\n")
f(1)
f(10)
f(15)
f(26)

레티 나 , 72 68 바이트

^
z
{2=`
$`
}T`l`_l`^.
\D
$.`$* $&¶
\d+
$* 
s`( *)( +)(?=.*¶\1 $)
$1

온라인으로 사용해보십시오! 출력에는 후행 공백이 포함됩니다. $if 0 인덱싱이 허용 되기 전에 공백을 삭제하여 1 바이트를 저장하십시오 . 편집 : @MartinEnder의 알파벳 생성기를 사용하여 4 바이트를 저장했습니다. 설명:

^
z
{2=`
$`
}T`l`_l`^.

알파벳을 삽입하십시오.

\D
$.`$* $&¶

그것을 대각선으로 돌리십시오.

\d+
$* 

입력을 공백으로 단항으로 변환하십시오.

s`( *)( +)(?=.*¶\1 $)
$1

끝이 빈 줄보다 길지 않도록 긴 줄을 자릅니다.

수학, 103 바이트

(T=Table;a=Alphabet[];c=Column)[c/@{T[""<>{T[" ",i],a[[i]]},{i,#}],T[""<>{T[" ",#],a[[i]]},{i,#,26}]}]&

피스 , 21 17 15 바이트

배터리가 3 % 인 휴대 전화에서 완료했습니다.

VlG+*d?>QNNQ@GN

설명:

VlG        For each character in the alphabet (G)
+          Concatenate...
 *d        Space (d) times...
   ?>QNNQ  Ternary; if Q (input) is less than N, return N, else Q
 @GN       The Nth character of the alphabet (G)

온라인으로 사용해보십시오!

젤리 , 11 바이트

26Ḷ«’⁶ẋżØaY

온라인으로 사용해보십시오!

공통 리스프, 84 바이트

(lambda(x)(dotimes(i 26)(format t"~v,,,@a~%"(if(< i x)(1+ i)x)(code-char(+ i 97)))))

온라인으로 사용해보십시오!

파이썬 , 52 바이트

명백한 접근 방식이 다른 방법들만큼 짧다는 것을 아무도 놀랐습니다.

lambda k:[(i*" ")[:k-1]+chr(i+97)for i in range(26)]

온라인으로 사용해보십시오!

파이썬 , 53 바이트

lambda k:[min(k-1,i)*" "+chr(i+97)for i in range(26)]

온라인으로 사용해보십시오!

하스켈, 58 54 바이트

f n=do m<-[1..26];([2..min n m]>>" ")++['`'..]!!m:"\n"

온라인으로 사용해보십시오!

작동 원리

f n=                  -- input number is n
  do m<-[1..26]       -- for each m from [1..26], construct a string and concatenate
                      -- them into a single string. The string is:
   [2..min n m]>>" "  -- min(n,m)-1 spaces,
      ++              -- followed by
   ['`'..]!!m         -- the m-th char after `
      :               -- followed by
   "\n"               -- a newline 

편집 : @Lynn은 4 바이트를 저장했습니다. 감사!

자바 (OpenJDK 8) , 69 바이트

n->{for(int a=0;a++<26;)System.out.printf("%"+(a<n?a:n)+"c%n",a+96);}

온라인으로 사용해보십시오!

가이아 , 12 바이트

…26⊃§×¦₵a+†ṣ

온라인으로 사용해보십시오!

설명

…             Range 0..input-1
 26⊃          Repeat the last number enough times to make it have length 26
    §×¦       Turn each number into a string of that many spaces
       ₵a+†   Add the corresponding letter to each
           ṣ  Join with newlines

자바 스크립트 (Node.js) , 72 바이트

n=>[..."abcdefghijklmnopqrstuvwxyz"].map((e,i)=>" ".repeat(i<n?i:n-1)+e)

문자열 목록을 반환합니다.

온라인으로 사용해보십시오!

수학, 67 바이트

SparseArray[x=#;{#,#~Min~x}->Alphabet[][[#]]&~Array~26,{26,#}," "]&

SparseArray문자열을 반환합니다 . 시각화하려면 Grid@앞에 추가하십시오 .

Wolfram Sandbox에서 사용해보십시오

용법

Grid@SparseArray[x=#;{#,#~Min~x}->Alphabet[][[#]]&~Array~26,{26,#}," "]&[5]

a
 b
  c
   d
    e
    f
    g

    ⋮

    z 

파이썬 2 , 52 바이트

lambda n:['%*c'%(min(i+1,n),i+97)for i in range(26)]

온라인으로 사용해보십시오!

문자열 목록이 괜찮다고 가정합니다 ...

재귀를 얻을 수있는 가장 짧은 :

f=lambda n,i=0:i<26and['%*c'%(min(i+1,n),i+97)]+f(n,i+1)or[]

SOGL V0.12 , 12 바이트

z{ē.-.Hχ@*Ot

여기 사용해보십시오!

파이썬 3 , 52 바이트

lambda n:[('%*c'%(i,i+96))[-n:]for i in range(1,27)]

온라인으로 사용해보십시오!

C (gcc) , 50 바이트

i;f(n){for(;i<26;printf("%*c\n",i++<n?i:n,i+97));}

온라인으로 사용해보십시오!

양성자 , 40 바이트

문자열 목록이 양호하다고 가정합니다.

k=>[(i*" ")[to~-k]+chr(i+97)for i:0..26]

온라인으로 사용해보십시오!

양성자 , 49 바이트

대신 ASCII 예술로 :

k=>'\n'.join((i*" ")[to~-k]+chr(i+97)for i:0..26)

온라인으로 사용해보십시오!

C # (. NET 코어) , 66 + 18 바이트

n=>new int[26].Select((x,i)=>$"{(char)(i+97)}".PadLeft(i<n?i+1:n))

바이트 수는 또한 포함합니다

using System.Linq;

온라인으로 사용해보십시오!

각 줄마다 하나씩 문자열 모음을 반환합니다. 허용되지 않으면 대답은 문자열 내부 string.Concat()및 \n내부에서 17 바이트만큼 팽창 합니다.

설명:

n =>
    new int[26]                      // Create a new collection of size 26
    .Select((x, i) =>                // Replace its members with:
        $"{(char)(i + 97)}"          // String of an alphabet character corresponding to the index
        .PadLeft(i < n ? i + 1 : n)  // Add spaces to the left
    )

MATL, 14 바이트

26:tiXl2Y2oZ?c

MATL Online 에서 사용해보십시오

설명

26      % number literal
:       % range; vector of equally spaced values [1...26]
t       % duplicate
i       % explicitly grab the input
Xl      % clamp the array to have a maximum value of the input
2Y2     % predefined literal: ['a'...'z']
o       % convert to a numeric array
Z?      % create sparse matrix using the first two inputs as the rows/columns 
        % and the letters 'a'...'z' as the values
c       % convert back to character and implicitly display

Pyth , 12 바이트

j.e+<*kdtQbG

여기 사용해보십시오!

문자열 목록이 허용되면 11 바이트 로 단축 할 수 있습니다 .

.e+<*kdtQbG

Pyth , 12 바이트

VG+<*dxGNtQN

여기 사용해보십시오!

Pyth , 14 바이트

jm+<*d;tQ@Gd26

여기에서 시도하십시오.

문자열 목록이 허용되면이를 13 바이트 로 단축 할 수 있습니다 .

m+<*d;tQ@Gd26

이것들은 어떻게 작동합니까?

대부분의 다른 답변과 달리이 방법은 세 가지 솔루션 모두에서 소문자 알파벳을 매핑 / 반복합니다.

설명 # 1

j.e+<*kdtQbG - Full program.

 .e        G - Enumerated map over "abcdefghijklmnopqrstuvwxyz", with indexes k and values b.
     *kd     - Repeat a space a number of times equal to the letter's index.
    <   tQ   - Crop the spaces after the input.
   +      b  - Concatenate with the letter.
j            - (Optional): Join by newlines.

설명 # 2

VG+<*dxGNtQN  - Full program.

VG            - For N in "abcdefghijklmnopqrstuvwxyz".
      xGN     - Index of the letter in the alphabet.
    *d        - Repeat the space a number of times equal to the index above.
   <     tQ   - But crop anything higher than the input.
  +        N  - Append the letter (at the end)

설명 # 3

jm+<*d;tQ@Gd26 - Full program.

 m          26 - Map over [0...26) with a variable d.
    *d;        - Space repeated d times.
   <   tQ      - Crop anything whose length is higher than the input.
  +      @Gd   - Concatenate with the letter at that index in the alphabet.
j              - (Optional): Join by newlines.

하스켈, 60 바이트

f n=unlines$scanl(\p c->take(n-1)(p>>" ")++[c])"a"['b'..'z']

출력을 문자열로 반환하는 함수입니다.

온라인으로 사용해보십시오.

apt , 16 13 바이트

@Oliver 덕분에 3 바이트 절약

;C£RiXiYmUÉ î

온라인으로 테스트하십시오!

q / kdb +, 33 31 바이트

해결책:

-1{(&[x-1;til 26]#'" "),'.Q.a};

예:

q)-1{(&[x-1;til 26]#'" "),'.Q.a}16;
a
 b
  c
   d
    e
     f
      g
       h
        i
         j
          k
           l
            m
             n
              o
               p
               q
               r
               s
               t
               u
               v
               w
               x
               y
               z

설명:

최소 입력 길이와) 범위까지의 공백 목록 (26) 0..25을 작성하고 알파벳의 각 문자와 결합하여 표준 출력으로 인쇄하십시오.

-1{(&[x-1;til 26]#'" "),'.Q.a}; / solution
-1                            ; / print result to stdout and swallow return
  {                          }  / lambda function
                         .Q.a   / "abcd..xyz"
                       ,'       / concatenate (,) each
   (                  )         / do all this together
    &[   ;      ]               / minimum of each 
      x-1                       / implicit input (e.g. 10) minus 1 (e.g. 9)
          til 26                / 0 1 2 ... 23 24 25
                   '#" "        / take " " each number of times (0 1 2 )

노트:

• 대괄호를 다시 조정하여 -2 바이트

Java 1.8 (람다 제외), 98 바이트

void m(int i){int c=0,o=97;String s="";for(;c++<26;s+=c<i?" ":"")System.out.println(s+(char)o++);}

논리는 간단합니다. 입력 데이터 유효성 검사를 제공하지 않으며 매우 나쁩니다!

• 업데이트 : 기능 만! @Olivier Grégoire에게 감사합니다