ASCII трикутники


30

Ваше завдання - написати програму або функцію, яка друкує трикутник ASCII. Вони виглядають так:

|\
| \
|  \
----

Ваша програма буде приймати один цифровий вхід nіз обмеженнями 0 <= n <= 1000. Вищезгаданий трикутник мав значенняn=3 .

Трикутник ASCII матиме nзворотні косої риски ( \) та вертикальні смуги ( |), n+1лінії та штрихи ( -), і кожен рядок буде мати кінцевий рядок, рівний номеру рядка (на основі 0, тобто перший рядок - рядок 0), крім кінцевої лінії .

Приклади:

Вхід:

4

Вихід:

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

Вхід:

0

Вихід:


У цьому тестовому випадку вихід повинен бути порожнім. Немає пробілів.

Вхід:

1

Вихід:

|\
--

Введення та вихід повинні відповідати точно тому , як я вказав.

Це , тому прагніть до найкоротшого можливого коду!

code-golf  ascii-art  code-golf  rubiks-cube  code-golf  path-finding  maze  regular-expression  code-golf  math  rational-numbers  code-golf  kolmogorov-complexity  graphical-output  code-golf  tips  code-golf  string  permutations  code-golf  sorting  base-conversion  binary  code-golf  tips  basic  code-golf  number  number-theory  fibonacci  code-golf  date  code-golf  restricted-source  quine  file-system  code-golf  code-golf  math  code-golf  ascii-art  code-golf  math  primes  code-golf  code-golf  math  matrix  code-golf  string  math  logic  factorial  code-golf  palindrome  code-golf  quine  stateful  code-golf  interactive  code-golf  board-game  code-golf  math  arithmetic  code-golf  string  code-golf  math  matrix  code-golf  math  abstract-algebra  polynomials  code-golf  date  code-golf  string  array-manipulation  sorting  code-golf  game  code-golf  string  code-golf  ascii-art  decision-problem  code-golf  number  sequence  code-golf  code-golf  code-golf  sequence  fibonacci  code-golf  math  geometry  random  code-golf  code-golf  math  decision-problem  fractal  rational-numbers  code-golf  number  number-theory  code-golf  combinatorics  permutations  card-games  code-golf  math  sequence  array-manipulation  fibonacci  code-golf  sequence  decision-problem  graph-theory  code-golf  ascii-art  parsing  lisp  code-golf  string  math  natural-language  logic  code-golf  math  logic  code-golf  string  alphabet  code-golf  string  code-golf  string 

4
Потрібно це бути програмою чи це може бути функцією?
fəˈnɛtɪk

7
Я думаю, що було б краще, якщо у випадку 0може бути якийсь несподіваний результат, оскільки це кращий випадок (тим більше, що ви просили, щоб кількість
тирев

4
@Okx Часто виникають питання, коли запитувач каже програму, але насправді мав на увазі програму чи функцію. Ви можете уточнити, що ви просите ПОВНУ програму
fəˈnɛtɪk

9
Я б обов'язково пішов як за програмою, так і за функцією. Це правило за замовчуванням, якщо нічого іншого не вказано. Я також видалив 0-крайний випадок, оскільки це пряме порушення " n + 1 рядків і тире (-) ".
Стюі Гріффін

3
Завдання було б надто простим без винятку size = 0. Частина виклику полягає у з'ясуванні способу обліку цього з найменшою кількістю зайвого коду.
12Me21

Відповіді:


3

Желе , 14 байт

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

Спробуйте в Інтернеті!

Як це працює.

’⁶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.  

11

C, 58 байт

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

-

Завдяки @Steadybox хто коментарі до цієї відповіді допомогли мені поголити кілька байт у моєму вище рішення


1
Мені вдалося досягти 68 років, був дуже гордий за себе .., а потім я прокрутив :( - Молодці!
Квентін

1
Дуже хороша! Майте +1
Steadybox

У мене 2*nтам двічі, і це мене турбує, може хтось придумає розумний спосіб якось скоротити його?
Альберт Реншо

7

Javascript (ES6), 97 85 81 75 74 байт

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

Виявляється, я не використовував майже достатню рекурсію

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))


6

05AB1E , 16 15 16 байт

Збережено байт завдяки Аднану

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

Спробуйте в Інтернеті!

Пояснення

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

ð×.svy¦…|ÿ\}¹>'-×», гадаю, моя ідея .sне була такою вдалою, як я думав. Гарне використання ÿ, не бачили цього раніше.
Magic Octopus Urn

@carusocomputing: Я розглядав, .sяк і починати з, <Ýð×але зіткнувся з проблемою в окремому випадку з цими методами.
Емінья

FðN×…|ÿ\}Dg'-×»за 15 байт
Аднан

@Adnan: Приємний улов Dg! Дякую :)
Emigna

.sтакож призвели до вкладених масивів і вирівнювання, що вимагало більше байт.
Чарівний восьминога Урна

5

V , 18 17 16 байт

1 байт збережено завдяки @ nmjcman101 за використання іншого способу виведення нічого, якщо вхід є 0

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

Спробуйте в Інтернеті!

Hexdump:

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

Пояснення (застаріле)

Спочатку у нас є цикл, щоб перевірити, чи є аргумент 0. Якщо так, код нижче виконується ( |\записується). В іншому випадку нічого не пишеться, а буфер порожній.

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

Тепер, коли ми отримали верх трикутника, нам потрібно створити його тіло.

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

Тепер ми отримали один додатковий рядок у нижній частині буфера. Це потрібно замінити -s.

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

Ця відповідь була б коротшою, якби ми могли все, що завгодно, для вкладу 0

V , 14 13 байт

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

Спробуйте в Інтернеті!


Я не повинен був би так сильно намагатися
nmjcman101

@ nmjcman101 Ах, «звичайно. Розумний! :)
Kritixi Lithos

4

C #, 93 байти

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

Анонімна функція, яка повертає трикутник ASCII у вигляді рядка.

Повна програма з незголеними коментованими функціями та тестовими кейсами:

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

3

Python 2 , 69 байт

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

Спробуйте в Інтернеті!


Якщо ви друкуєте його, ви можете зберегти кілька байт, перейшовши на python3, видаливши "".joinта замінивши його *оператором та sepаргументом у функції сну, такlambda x:print(*['|'+' '*n+'\\'for n in range(x)]+['-'*-~x*(x>0)],sep="\n")
sagiksp

3

CJam , 24 22 21 байт

Збережено 1 байт завдяки Мартіну Ендеру

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

Спробуйте в Інтернеті!

Пояснення

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


2

PowerShell , 51 67 байт

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

Спробуйте в Інтернеті!

(Збільшення байтів для врахування відсутнього нового рядка)

Бере введення $nта перевіряє, що це не нульове значення. Потім петлі побудувати трикутник, і закінчуємо лінією -. Неявне Write-Outputвідбувається при завершенні програми.


Програма роздруковує контурний новий рядок, але я попросив висновок бути точно таким, як вказано, вибачте!
Okx

@Okx Змінено вартістю 16 байт.
AdmBorkBork

2

Сітківка , 39 байт

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

Спробуйте в Інтернеті

Перетворити десятковий вхід в одинаковий. Замініть кожен 1на |<N-1 spaces>\¶, друкуйте та скасовуйте заміну. Замініть кожен 1дефісом, а останній дефісом - 2 дефісами. Тадаа!


2

Лисп звичайний, 89 86 байт

Створює анонімну функцію, яка приймає n вхід і друкує трикутник *standard-output*(stdout, за замовчуванням).

Гольф

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

Безумовно

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

Я впевнений, що міг би якось скоротити це.


2

C 101 93 75 байт

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

Безгольова версія

void f(int n)
{
  int i;

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

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

}

@Steadybox Дякую за вказівку, має багато сенсу.


1
Ви можете відшаровувати кілька байт, замінивши константи символів на їх значення ASCII і перемістивши перший i ++ в тілі циклу. І чому printf("%c",'_');так багатослівний?
Єнс

@Jens stimmt, Danke sehr :) Оновлено
Abel Tom

Це може бути зменшено до 74 байт:i;f(n){for(i=0;i++<n;)printf("%c%*c\n",124,i,92);for(;n--+1;)printf("-");}
Steadybox

До 69 байт, власне:i;f(n){for(i=0;i++<n;)printf("|%*c\n",i,92);for(;n--+1;)printf("-");}
Steadybox

@Steadybox 68: n--+1можна скоротити до~n--
Альберт Реншо

2

Вугілля деревне , 15 байт

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

Спробуйте в Інтернеті!

Зламатися

Nβ¿β«↓β→⁺¹β↖↖β»
Nβ               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

Дуже пізній коментар, але закриття »можна опустити.
DLosc

2

Japt , 20 байт

Збережено 2 байти завдяки @ETHproductions

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

Спробуйте в Інтернеті!

Пояснення

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

1
Хороший! Ви можете зберегти байти, натиснувши на останній рядок до приходу: o@'|+SpX +'\Ãp'-pUÄ)·і з - за помилки ( на насправді ненавмисний побічний ефект авто-функцій), ви можете видалити 'в '-.
ETHproductions

Насправді це так з усіма малими літерами, а не тільки p. Ось так ви можете зробити, наприклад, m*2подвоїти кожен елемент або mp2скласти їх у квадрат
ETHproductions

2

J, 20 байт

-13 байт завдяки bob

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

Спробуйте в Інтернеті!

оригінал: 33 байти

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

неозорий

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

Спробуйте в Інтернеті!


25 байт з*,&'-' '|',.'\'{."0~_1-i.
миль

22 байти з*,&'-' '|',.' \'{~=@i.
bob

@bob Це було дуже розумно використовувати матрицю ідентичності
милі

@bob дякую за пропозицію. я оновив пост
Йона


1

Python2, 73 байти

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

Повна програма. Я також спробував інтерполяцію рядків для останнього рядка, але виявилося на пару байтів довше: /

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

Ще одне рішення в 73 байти:

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

Тестові справи

0:

1:
|\
--

2:
|\
| \
---

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

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

Прошу вибачення за свій попередній коментар, зараз функції дозволені.
Okx

@Okx Немає проблем. Це виступає як повноцінна програма. Я не думаю, що я буду вивчати моду рішення функції :)
Yytsi

1

MATL , 19 байт

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

Спробуйте в Інтернеті!

?         % 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

1

QBIC , 41 байт

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

Пояснення

:~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.

1

R, 101 байт

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

Цей код відповідає n=0тестовому випадку, якщо ви тільки врахуєте STDOUT!
Дійсно, stopifnot(n>0)частина зупиняє виконання сценарію, не показує нічого, STDOUTокрім як Error: n > 0 is not TRUEзаписати SDTERR.

Безумовно:

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

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

1
Можливо, хочеться виправити написання невольфів
fəˈnɛtɪk


1

JavaScript (ES6), 71 bytes

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!>

Outputs to the console. Save 6 bytes if printing to the SpiderMonkey JavaScript shell is acceptable. Save 13 bytes if returning the output is acceptable.


That regex is ingenious. I first tried something along those lines. I din't know about the $` pattern, but don't know if I still would've thought of it. Nice.
Jan


1

Python 3, 60 bytes

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

Try it online!

Two more solutions with the same byte count.

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+' ')

1

Perl, 63 bytes

$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;

$" is the list separator, which defaults to " ". $/ is the output record separator, which defaults to "\n". $_ is the implicit loop variable.


1
probably could save some by reading the input off of stdin?$n=<>?
Ven

1

Haskell, 82 65 bytes

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

Try it online! Usage:

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

Or more nicely:

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

1

Pyth, 23 18 bytes

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

Test suite available online.
Thanks to Ven for golfing off 5 bytes.

Explanation

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

@Ven Thanks! You can cut off the last | for an additional byte.
Mike Bufardeci

0

Javascript 101(Full Program), 94(Function Output), 79(Return) bytes

Full Program

Will not run in Chrome (as process doesn't exist apparently)
Will not run in TIO (as prompt apparently isn't allowed)

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

Function with EXACT print

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

Try it Online

Function with return string

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

Try it Online

Repeating characters in Javascript is dumb and so is suppressing newlines on output


0

Python 2, 82 bytes

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

Try it online!

Longer that the other Python answers but a recursive function just to be different.

It feels wasteful using two print statements but I can't find a shorter way round it. Also the exit() wastes 7 to stop it printing decreasing number of - under the triangle.


You can do -~c*(c>0) on the last line to save 3 bytes :)
Yytsi

Or better yet: c and-~c.
Yytsi
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.