Göreviniz bir ASCII üçgeni basan bir program veya işlev yazmaktır. Buna benziyorlar:

|\
| \
|  \
----

Programınız nkısıtlamalarla birlikte tek bir sayısal girdi alacaktır 0 <= n <= 1000. Yukarıdaki üçgenin değeri vardı n=3.

ASCII üçgeni nters eğik çizgilere ( \) ve dikey çubuklara ( |), n+1çizgilere ve çizgilere ( -) sahip olacak ve her çizgide, nihai çizginin yanı sıra, satır numarasına (0 tabanlı, yani ilk satır 0'dır) eşit miktarda boşluk olacaktır. .

Örnekler:

Giriş:

4

Çıktı:

|\
| \
|  \
|   \
-----

Giriş:

0

Çıktı:

Bu test durumunda, çıktı boş olmalıdır. Boşluk yok.

Giriş:

1

Çıktı:

|\
--

Giriş ve çıkış tam olarak benim belirttiğim gibi olmalı .

Bu kod golf , bu yüzden mümkün olan en kısa kodu hedefliyoruz!

Jöle , 14 bayt

’⁶x⁾|\jṄµ€Ṫ”-ṁ

Çevrimiçi deneyin!

Nasıl çalışır.

’⁶x⁾|\jṄµ€Ṫ”-ṁ  Main link. Argument: n

        µ       Combine the links to the left into a chain.
         €      Map the chain over [1, ..., n]; for each k:
’                 Decrement; yield k-1.
 ⁶x               Repeat the space character k-1 times, yielding a string.
   ⁾\j            Join the character array ['|', '\'], separating by those spaces.
      Ṅ           Print the result, followed by a linefeed.
         Ṫ      Tail; extract the last line.
                This will yield 0 if the array is empty.
          ⁾-ṁ   Mold the character '-' like that line (or 0), yielding a string
                of an equal amount of hyphen-minus characters.  

C, 58 bayt

i;f(n){for(i=2*n;~i--;printf(i<n?"-":"|%*c\n",2*n-i,92));}

-

Bu cevapla ilgili yorum yapan @Steadybox sayesinde yukarıdaki çözümümde birkaç baytı tıraş etmeme yardımcı oldum

Javascript (ES6), 97 85 81 75 74 bayt

n=>(g=(n,s)=>n?g(--n,`|${" ".repeat(n)}\\
`+s):s)(n,"")+"-".repeat(n&&n+1)

Neredeyse yeterince özyineleme kullanmıyordum çıkıyor

f=n=>(g=(n,s)=>n?g(--n,`|${" ".repeat(n)}\\
`+s):s)(n,"")+"-".repeat(n&&n+1)

console.log(f(0))
console.log(f(1))
console.log(f(2))
console.log(f(3))
console.log(f(4))

05AB1E , 16 15 16 bayt

Adnan sayesinde bir bayt kaydedildi

FðN×…|ÿ\}Dg'-×»?

Çevrimiçi deneyin!

açıklama

F       }         # for N in range [0 ... input-1]
 ðN×              # push <space> repeated N times
    …|ÿ\          # to the middle of the string "|\"
         Dg       # get length of last string pushed
           '-×    # repeat "-" that many times
              »   # join strings by newline
               ?  # print without newline

V , 18 17 16 bayt

Girdi ise, hiçbir şey çıktısının başka bir yolunu kullanmak için @ nmjcman101 sayesinde 1 bayt kurtarıldı 0

é\é|ÀñÙá ñÒ-xÀ«D

Çevrimiçi deneyin!

HexDump:

00000000: e95c e97c c0f1 d9e1 20f1 d22d 78c0 ab44  .\.|.... ..-x..D

Açıklama (eski)

İlk önce argümanın olup olmadığını kontrol etmek için bir döngümüz var 0. Eğer öyleyse, aşağıdaki kod yürütülür ( |\yazılır). Aksi takdirde, hiçbir şey yazılmaz ve arabellek boştur.

Àñ     ñ            " Argument times do:
  é\é|              " Write |\
      h             " Exit loop by creating a breaking error

Şimdi üçgenin tepesini aldık, onun bedenini yaratmamız gerekiyor.

Àñ   ñ              " Argument times do:
  Ù                 " Duplicate line, the cursor comes down
   à<SPACE>         " Append a space

Şimdi tamponun altında bir ekstra satır var. Bu -s ile değiştirilmelidir .

Ó-                  " Replace every character with a -
   x                " Delete the extra '-'

Girdi için ne istiyorsak yapsak, bu cevap daha kısa olacaktır. 0

V , 14 13 bayt

é\é|ÀñÙá ñÒ-x

Çevrimiçi deneyin!

C #, 93 bayt

n=>{var s=n>0?new string('-',n+1):"";while(n-->0)s="|"+new string(' ',n)+"\\\n"+s;return s;};

ASCII üçgenini bir dizge olarak döndüren adsız işlev.

Ungolfed, yorum fonksiyonu ve test vakaları ile tam program:

using System;

class ASCIITriangles
{
    static void Main()
    {
      Func<int, string> f =
      n =>
      {
          // creates the triangle's bottom, made of dashes
          // or an empty string if n == 0
          var s = n > 0 ? new string('-', n + 1) : "";

          // a bottom to top process
          while ( n-- > 0)
          // that creates each precedent line
            s = "|" + new string(' ', n) + "\\\n" + s;

          // and returns the resulting ASCII art
          return s;
      };

      // test cases:
      Console.WriteLine(f(4));
      Console.WriteLine(f(0));
      Console.WriteLine(f(1));
    }
}

Python 2,69 bayt

lambda x:'\n'.join(['|'+' '*n+'\\'for n in range(x)]+['-'*-~x*(x>0)])

Çevrimiçi deneyin!

CJam , 24 22 21 bayt

Martin Ender sayesinde 1 bayt kaydedildi

ri_{S*'|\'\N}%\_g+'-*

Çevrimiçi deneyin!

açıklama

ri                     e# Take an integer from input
  _                    e# Duplicate it
   {                   e# Map the following to the range from 0 to input-1
    S*                 e#   Put that many spaces
      '|               e#   Put a pipe
        \              e#   Swap the spaces and the pipe
         '\            e#   Put a backslash
           N           e#   Put a newline
            }%         e# (end of map block)
              \        e# Swap the top two stack elements (bring input to the top)
               _g+     e# Add the input's signum to itself. Effectively this increments any 
                       e#  non-zero number and leaves zero as zero.
                  '-*  e# Put that many dashes

SmileBASIC, 51 bayt

INPUT N
FOR I=0TO N-1?"|";" "*I;"\
NEXT?"-"*(N+!!N)

PowerShell , 51 67 bayt

param($n)if($n){1..$n|%{"|"+" "*--$_+"\"};write-host -n ('-'*++$n)}

Çevrimiçi deneyin!

(Sondaki yeni satır için hesaba Bayt artışı)

Girdiyi alır $nve sıfır olmadığını doğrular. Sonra üçgeni inşa etmek için döngüler ve bir çizgi ile biter -. Örtük Write-Output, program bitiminde olur.

Retina , 39 bayt

.*
$*
*\`(?<=(.*)).
|$.1$* \¶
1
-
-$
--

Çevrimiçi deneyin

Ondalık girişi birime dönüştür. Her değiştirin 1ile |<N-1 spaces>\¶baskı, ve yerine geri al. Her birini 1kısa çizgi, son kısa çizgi 2 tire ile değiştirin. Tadaa!

Ortak Lisp, 89 86 bayt

N girişini alan ve üçgeni *standard-output*(varsayılan olarak stdout) olarak basan anonim bir işlev oluşturur .

golfed

(lambda(n)(when(< 0 n)(dotimes(i n)(format t"|~v@t\\~%"i))(format t"~v,,,'-<~>"(1+ n))))

Ungolfed

(lambda (n)
  (when (< 0 n)
    (dotimes (i n)
      (format t "|~v@t\\~%" i))
    (format t "~v,,,'-<~>" (1+ n))))

Bir şekilde bunu kısaltabileceğime eminim.

C 101 93 75 bayt

f(n){i;for(i=0;i++<n;)printf("|%*c\n",i,92);for(;n--+1;)prin‌​tf("-");}

Ungolfed versiyonu

void f(int n)
{
  int i;

  for(i=0;i++<n;)
    printf("|%*c\n",i,92);

  for(;n--+1;)
    printf("-");

}

@ Steadybox İşaret için teşekkürler, çok mantıklı.

Kömür , 15 bayt

Ｎβ¿β«↓β→⁺¹β↖↖β»

Çevrimiçi deneyin!

Yıkmak

Ｎβ¿β«↓β→⁺¹β↖↖β»
Ｎβ               assign input to variable β
   ¿β«         »  if β != 0:
      ↓β           draw vertical line β bars long
        →⁺¹β       draw horizontal line β+1 dashes long
            ↖      move cursor up one line and left one character
             ↖β    draw diagonal line β slashes long

Japt , 20 bayt

@ETHproductions sayesinde 2 bayt kaydedildi

o@'|+SpX +'\Ãp-pUÄ)·

Çevrimiçi deneyin!

açıklama

o@'|+SpX +'\Ãp-pUÄ)·
o                       // Creates a range from 0 to input
 @                      // Iterate through the array
  '|+                   // "|" + 
     SpX +              // S (" ") repeated X (index) times +
          '\Ã            // "\" }
             p-pU       // "-" repeated U (input) +1 times
                 Ä)·    // Join with newlines

J, 20 bayt

-13 bob sayesinde bayt

*#' \|-'{~3,~2,.=@i.

Çevrimiçi deneyin!

orijinal: 33 bayt

(#&'| \'@(1,1,~])"0 i.),('-'#~>:)

ungolfed

(#&'| \' @ (1,1,~])"0 i.) , ('-'#~>:)

Çevrimiçi deneyin!

Pyke, 18 17 bayt

I Fd*\|R\\s)Qh\-*

Burada dene!

Python2, 73 bayt

n=input()
w=0
exec'print"|"+" "*w+"\\\\"+("\\n"+"-"*-~n)*(w>n-2);w+=1;'*n

Tam bir program. Ayrıca, son satır için string enterpolasyonu denedim, fakat daha uzun bir kaç bayta dönüştü:

exec'print"|%s\\\\%s"%(" "*w,("\\n"+"-"*-~n)*(w>n-2));w+=1;'*n

73 byte'ta başka bir çözüm:

n=j=input()
exec'print"|"+" "*(n-j)+"\\\\"+("\\n"+"-"*-~n)*(j<2);j-=1;'*n

Test durumları

0:

1:
|\
--

2:
|\
| \
---

3:
|\
| \
|  \
----

6:
|\
| \
|  \
|   \
|    \
|     \
-------

MATL , 19 bayt

?'\|- '2GXyYc!3Yc!)

Çevrimiçi deneyin!

?         % Implicit input. If non-zero
  '\|- '  %   Push this string
  2       %   Push 2
  G       %   Push input
  Xy      %   Identity matrix of that size
  Yc      %   Prepend a column of 2's to that matrix
  !       %   Transpose
  3       %   Push 3
  Yc      %   Postpend a column of 3's to the matrix
  !       %   Transpose
  )       %   Index into string
          % Implicit end. Implicit display

QBIC , 41 bayt

:~a>0|[a|?@|`+space$(b-1)+@\`][a+1|Z=Z+@-

açıklama

:~a>0|  Gets a, and checks if a > 0
        If it isn't the program quits without printing anything
[a|     For b=1; b <= a; b++
?@|`+   Print "|"
space$  and a number of spaces
(b-1)   euqal to our current 1-based line - 1
+@\`    and a "\"
]       NEXT
[a+1|   FOR c=1; c <= a+1; c++
Z=Z+@-  Add a dash to Z$
        Z$ gets printed implicitly at the end of the program, if it holds anything
        The last string literal, IF and second FOR loop are closed implicitly.

R, 101 bayt

for(i in 1:(n=scan())){stopifnot(n>0);cat("|",rep(" ",i-1),"\\\n",sep="")};cat("-",rep("-",n),sep="")

Bu kod, n=0yalnızca dikkate alırsanız test durumuyla uyumludur STDOUT!
Nitekim, stopifnot(n>0)bölüm komut dosyası yürütme, gösteren, hiçbir şey durur STDOUTama yazma Error: n > 0 is not TRUEiçin SDTERR.

Ungolfed:

for(i in 1:(n=scan()))
    {
    stopifnot(n>0)
    cat("|", rep(" ", i-1), "\\\n", sep = "")
    }

cat("-", rep("-", n), sep = "")

Python 2 , 62 bayt

n=input();s='\\'
exec"print'|'+s;s=' '+s;"*n
if n:print'-'*-~n

Çevrimiçi deneyin!

Her seferinde ters eğik çizgiden önce başka bir boşluk ekleyerek satır satır yazdırır. Yazdırılmayan bir işleve izin verilirse, bu daha kısa olacaktır.

JavaScript (ES6), 71 bayt

f=
n=>console.log(' '.repeat(n).replace(/./g,'|$`\\\n')+'-'.repeat(n+!!n))

<form onsubmit=f(+i.value);return!true><input id=i type=number><input type=submit value=Go!>

Konsola çıkar. SpiderMonkey JavaScript kabuğuna yazdırmak kabul edilebilirse 6 bayt tasarruf edin. Çıktının döndürülmesi kabul edilebilirse, 13 bayt tasarruf edin.

Python 2,67 bayt

Python 2'deki bir başka fonksiyon kullanarak rjust.

lambda n:('|'.join(map('\\\n'.rjust,range(n+2)))+'-'*-~n)[4:]*(n>0)

Çevrimiçi deneyin!

Python 3 , 60 bayt

f=lambda n,k=0:k<n and'|'+' '*k+'\\\n'+f(n,k+1)or'-'[:n]*-~n

Çevrimiçi deneyin!

Aynı bayt sayısıyla iki çözüm daha.

f=lambda n,k=0:n and'|'+' '*k+'\\\n'+f(n-1,k+1)or-~k*'-'[:k]
f=lambda n,s='|':-~n*'-'[:n]if s[n:]else s+'\\\n'+f(n,s+' ')

Perl, 63 bayt

$n=shift;print'|',$"x--$_,"\\\n"for 1..$n;print'-'x++$n,$/if$n

Ungolfed:

$ perl -MO=Deparse triangle.pl
$n = shift @ARGV;
print '|', $" x --$_, "\\\n" foreach (1 .. $n);
print '-' x ++$n, $/ if $n;

$""" olarak varsayılan liste ayracıdır. $/"\ n" olarak varsayılan çıkış kayıt ayracıdır. $_Örtük döngü değişkeni.

Haskell , 82 65 bayt

g 0=""
g n=((take n$iterate(' ':)"\\\n")>>=('|':))++([0..n]>>"-")

Çevrimiçi deneyin! Kullanımı:

Prelude> g 4
"|\\\n| \\\n|  \\\n|   \\\n-----"

Ya da daha güzel:

Prelude> putStr $ g 4
|\
| \
|  \
|   \
-----

Pyth, 23 18 bayt

VQ++\|*dN\\)IQ*\-h

Test paketi çevrimiçi olarak kullanılabilir. 5 byte kapalı golf
için Ven teşekkürler .

açıklama

VQ++\|*dN\\)IQ*\-h
 Q           Q    Q  [Q is implicitly appended, initializes to eval(input)]
       d             [d initializes to ' ' (space)]
VQ         )         For N in range(0, eval(input)):
      *dN             Repeat space N times
   +\|                Prepend |
  +      \\           Append \
                      Implicitly print on new line
            IQ       If (input): [0 is falsy, all other valid inputs are truthy]
                 hQ   Increment input by 1
              *\-     Repeat - that many times
                      Implicitly print on new line

Javascript 101 (Tam Program), 94 (İşlev Çıktısı), 79 (Dönüş) bayt

Tam Program

Chrome'da çalışmayacak (işlem görünüşte
olmadığı için ) TIO'da çalışmayacak (görünüşte istemeye izin verilmediğinden)

x=prompt();s='';for(i=0;i<x;i++)s+='|'+' '.repeat(i)+`\\
`;process.stdout.write(s+'-'.repeat(x&&x+1))

EXACT baskı ile işlev

x=>{s='';for(i=0;i<x;)s+='|'+' '.repeat(i++)+`\\
`;process.stdout.write(s+'-'.repeat(x&&x+1))}

Çevrimiçi Deneyin

Dönüş dizgeli işlev

x=>{s='';for(i=0;i<x;)s+='|'+' '.repeat(i++)+`\\
`;return s+'-'.repeat(x&&x+1)}

Çevrimiçi Deneyin

Javascript'teki karakterleri tekrarlamak aptalca ve çıktıda yeni satırları bastırıyor

Python 2 , 82 bayt

def f(i,c=0):
 if c<i:print'|'+' '*c+'\\';f(i,c+1)
 print'-'*((c+1,c)[c<1]);exit()

Çevrimiçi deneyin!

Diğer Python cevap verdiğinde, ancak farklı olması için özyinelemeli bir işlev.

İki printifade kullanarak boşa harcıyor ama bunun etrafında daha kısa bir yol bulamıyorum. Ayrıca exit()atıkları 7 durdurmak için yazdırmayı durdurmak -için üçgenin altına düşen sayıdır .