Нарисуй дугу шара

35

Нарисуйте параболическую траекторию брошенного шара.

Входные данные - начальная скорость мяча, положительное целое число v. Каждую секунду шар перемещается в 1пространстве вправо и в vпространстве вертикально, а затем vуменьшается 1из-за силы тяжести. Таким образом, восходящая скорость постепенно снижается от и vдо 0и -v, наконец, падает до первоначальной высоты.

Положение мяча отслеживает параболу. В горизонтальном положении x, его высота y=x*(2*v+1-x)/2, с (0,0)начальным положением шара в нижнем левом углу .

Выведите ASCII-арт траектории шара с символами O's' по координатам, которые он когда-либо занимал. Выходные данные должны быть одним многострочным фрагментом текста, а не анимацией пути во времени.

В выводе не должно быть начальных символов новой строки и не более одного завершающего символа новой строки. Нижняя строка должна быть на одном уровне с левым краем экрана, то есть не иметь лишних начальных пробелов. Конечные пробелы в порядке. Вы можете предположить, что ширина выходной линии соответствует выходному терминалу.

v = 1

 OO 
O  O

v = 2

  OO  
 O  O 

O    O

v = 3

   OO   
  O  O  

 O    O 


O      O

v = 4

    OO    
   O  O   

  O    O  


 O      O 



O        O

v = 10

          OO          
         O  O         

        O    O        


       O      O       



      O        O      




     O          O     





    O            O    






   O              O   







  O                O  








 O                  O 









O                    O

Связанный: симулятор прыгающего мяча

Leaderboard:

Показать фрагмент кода

code-golf ascii-art physics XNOR
источник
Можем ли мы вывести список строк?
Rɪᴋᴇʀ
@Riker Нет, строка с переводом строки.
xnor
слабо связанный: codegolf.stackexchange.com/q/110410
Титус
Нужно ли учитывать только V> 0?
nmjcman101
Да, V будет положительным.
xnor

Ответы:

17

Древесный уголь , 18 16 13 байтов

-3 байта благодаря @Neil !

Ｆ⊕Ｎ«←OＭ⊕ι↓»‖Ｃ

объяснение

Ｆ⊕Ｎ«        »    For ι (implicitly from 0) to (1 + input as number)
       ←O          Print O, with print direction rotated 180 degrees
         Ｍ⊕ι↓     Move 1+ ι units down

                ‖Ｃ Reflect (in the default direction, right), leaving original intact

Попробуйте онлайн! Ссылка на подробный код.

ASCII-только
источник
Мне это очень нравится, +1; Кроме того, в выводе OP используется заглавная буква "O". (Не то, чтобы это вообще
Альберт Реншоу
Если вы используете, ↘Oто вы можете зациклить от 0 до N включительно, что сразу же сэкономит вам два байта.
Нил
@Neil Спасибо! Кроме того, это очень старый пост: P (и мне интересно, следует ли мне использовать более новые функции. Вероятно, нет?)
только для ASCII,
Строго говоря , я только спас вас 1 байт до сих пор , как и другие два байта были вы заменить ⁺¹с ⊕. Однако теперь, когда вы переместил ←от ‖Ｃк Oвам может спасти другие байты в письменной форме ↙OＭι↓, поэтому я вернулся до двух байт снова экономия.
Нил
Также вы забыли обновить свою ссылку TIO. И технически я считаю, что теперь мы разрешаем новые функции, но я не могу претендовать на кредит за эти байты.
Нил
6

С 93 92

(Обратите внимание, кто-то получил 87 в комментариях)

y,n;f(s){for(y=0;y<=s;){printf("%*c%*c",s-y+1,79,y*2+1,79);for(n=++y;s+1-n&&n--;)puts("");}}

Попробуйте онлайн!

Удобочитаемый: 

y,n;f(s){
    for(y=0;y<=s;){
        printf("%*c%*c",s-y+1,79,y*2+1,79);
        for(n=++y;s+1-n&&n--;)puts("");
    }
}

Заметки:

Я могу свернуть оба цикла for в один цикл for, повторяя общее количество выводимых строк, которое задается формулой: n*-~n/2+1

y,n,r;f(s){
    for(r=s,y=n=0;r<s*-~s/2+1;)
        y==n?printf("%*c%*c",s-y+1,79,y*2+1,79),y=0,++n:r++,y++,puts("");
}

Но в итоге получается еще больше байтов, чем просто использование двух отдельных циклов for

Альберт Реншоу
источник
Вы можете сохранить один байт, увеличив его sв начале, например так:y,n;f(s){++s;for(y=0;y<s;){printf("%*c%*c",s-y,79,y*2+1,79);for(n=++y;s-n&&n--;)puts("");}}
Steadybox
@Steadybox не будет компилироваться для меня. Кроме того, я получил 90 байт, когда я посчитал это (после удаления пробельных символов)
Альберт Реншоу
Все, что я сделал, это добавил ++s;в начале, а затем изменил y<=sна y<sи s-y+1на s-yи s+1-nна s-n, так что он должен скомпилироваться (и должен быть 91 байт).
Steadybox
Кажется, что-то не так с кодировкой блока кода в моем комментарии. Копирование и вставка кода из комментария для меня тоже не скомпилируется.
Steadybox
1
87 байт
floorcat
5

GNU sed, 41

  • Оценка включает +1 от -r флагов к седу.
s/$/OO/
:
s/(\s*) O( *)O$/&\n\1O \2 O/
t

Ввод одинарный, как строка пробелов - длина строки является вводом.

Попробуйте онлайн .

Цифровая травма
источник
4

Python 2, 76 байт

x=input()
for i in range(x):print' '*(x-i),'O'+' '*i*2+'O'+'\n'*(i-x+1and i)

Довольно просто Это i-x+1and iдолжно предотвратить кучу новых строк.

HyperNeutrino
источник
Перемещение новой строки в начало печати, например, '\n'*(i-1)экономит 7 байт, избегая конечных строк.
Emigna
4

MATL , 19 17 байт

Q:tqYsQ79Z?PtPv!c

Попробуйте это в MATL Online! Или проверьте все тестовые случаи .

объяснение

Q        % Implicitly input v. Add 1
:        % Push [1 2 ... v+1]
tq       % Duplicate and subtract 1: pushes [0 1 ... v]]
Ys       % Cumulative sum: gives [0 1 3 6 ...]
Q        % Add 1: gives [1 2 4 7 ...]
79       % Push 79 (ASCII for 'O')
Z?       % Create sparse matrix from column indices [1 2 3 4 ...],
         % row indices [1 2 4 7 ...], and data 79
P        % Flip vertically
tP       % Duplicate, flip vertically
v        % Concatenate the two matrices vertically
!        % Transpose
c        % Convert to char. Implicitly display. Char 0 is shown as space
Луис Мендо
источник
4

05AB1E , 18 14 байтов

Сохранено 4 байта благодаря Аднану

ƒ¶N×'ONúRÂJ}.c

Попробуйте онлайн!

объяснение

ƒ                   # for N in [0 ... input]
 ¶N×                # push N newlines
    'O              # push "O"
      Nú            # pad with N spaces in front
        RÂ          # reverese and create a reversed copy
          J         # join everything to a string
           }        # end loop
            .c      # pad lines until centered
Emigna
источник
Для 14 байтов: ƒ¶N×'ONúRÂJ}.c:)
Аднан
@ Adnan Спасибо! Я попробовал .cс другой версией, но тогда это не сработало. Забыл о том, чтобы попробовать это с этим, и полностью забыл, что úсуществует :)
Emigna
Определенно лучше, чем метод zip, который я выбрал, интересный подход по вертикали.
Волшебный Осьминог Урна
4

JavaScript (ES6), 98 92 89 84 78 байт

(-20 байт благодаря Арно!)

f=(v,i=0)=>i>v?"":" "[r="repeat"](v-i)+0+" "[r](2*i)+0+`
`[r](i++<v&&i)+f(v,i)

Рекурсивное решение. Это также мой первый когда - либо ответ на JavaScript, поэтому , пожалуйста , быть нежным! Я все еще учусь всему этому аккуратному языку, поэтому советы по игре в гольф очень ценятся. :)

Тестовый фрагмент

Возможно, вам придется прокрутить, чтобы увидеть весь вывод.

f=(v,i=0)=>i>v?"":" "[r="repeat"](v-i)+0+" "[r](2*i)+0+`
`[r](i++<v&&i)+f(v,i)
<input id=i min=1 type=number><button onclick=alert(f(document.getElementById("i").value))>Submit</button>
Развернуть фрагмент

Р. Кап
источник
Кроме того, включение переменных внутри строк обратного тика с ${}сохранением байтов только тогда, когда переменная часть окружена статическими частями. Таким образом, эти строки всегда должны начинаться и заканчиваться статическими частями.
Люк
@Arnauld Спасибо за все советы! Я очень ценю это! :)
Р. Кап
@Luke Спасибо за совет. Это пригодится. :)
Р. Кап
Вы можете безопасно использовать 0вместо "0". Они будут принуждены к струнам. И, если подумать: i++<v&&iна самом деле на один байт короче (i<v)*++i.
Арно
@Arnauld Спасибо еще раз! :)
Р. Кап
3

RProgN 2 , 37 байт

x=0xR{y@xy-` *`o` y2**`o...2y{[` };};

Познакомлюсь с моим языком игры в гольф до того, как в него войдут соответствующие гольф-языки.

Разъяснения

x=              # Set 'x' to the input
0xR{            # For everything between the input and 0
    y@          # Set the iteration value to y, for this function only.
    xy-` *      # Subtract y from x, repeat the string " " that many times.
    `o          # Push an "o" to the stack.
    ` y2**      # Push 2*y " "'s to the stack
    `o          # Push another "o" to the stack
    ...         # Concatenate the parts of this string together, giving us the two balls.
    2y{[` };    # For all numbers between 2 and y, add a newline.
};              #

Попробуйте онлайн!

Ataco
источник
3

Сетчатка, 29 19 байт

 ?
$.`$*¶$&$'O$`$`O

Попробуйте онлайн!

Принимает ввод в унарном виде как пробел. Порт моего JavaScript ответа. Редактировать: 10 байтов сохранено благодаря @ MartinEnder ♦.

Нил
источник
Я только жду, когда кто-нибудь придумает спинину Retina под названием Retsina.
Титус
3

Баш , 76 байт

for((n=$1+1;--n;));{
yes ''|head -$n
r=$r›${n}AO
t=›${n}BO$t
}
echo O${r}O$t

Работает только в терминале, поскольку использует escape-последовательности ANSI . ›представляет байт CSI ( 0x9b ).

Тестовый забег

$ # The terminal's encoding must be set to ISO-8859-1.
$
$ xxd -g 1 arc.sh
0000000: 66 6f 72 28 28 6e 3d 24 31 2b 31 3b 2d 2d 6e 3b  for((n=$1+1;--n;
0000010: 29 29 3b 7b 0a 79 65 73 20 27 27 7c 68 65 61 64  ));{.yes ''|head
0000020: 20 2d 24 6e 0a 72 3d 24 72 9b 24 7b 6e 7d 41 4f   -$n.r=$r.${n}AO
0000030: 0a 74 3d 9b 24 7b 6e 7d 42 4f 24 74 0a 7d 0a 65  .t=.${n}BO$t.}.e
0000040: 63 68 6f 20 4f 24 7b 72 7d 4f 24 74              cho O${r}O$t
$
$ bash arc.sh 1
 OO
O  O
$ bash arc.sh 2
  OO
 O  O

O    O
$ bash arc.sh 3
   OO
  O  O

 O    O


O      O
$ bash arc.sh 4
    OO
   O  O

  O    O


 O      O



O        O
Деннис
источник
Вы можете использовать, sed $nqчтобы сохранить байт.
Цеппелин
К сожалению нет. Я должен был бы использовать sed ${n}qкоторый дольше.
Деннис
Argh, я вижу, вы можете сделать sed $n\qвместо этого, но это не имеет особого смысла, так как это будет такое же количество байтов, как head!
Цеппелин
3

R, 89 байт

a=2*v+3
x=matrix(" ",a,v^2+1)
for(k in 0:v)x[c(1-k,k+2)+v,k^2+1]="o"
x[a,]="\n"
cat(x,sep="")
  • Создайте матрицу пробелов (переменная a является шириной этой матрицы, сохраняя пару байтов)
  • Заполните «о» в нужных местах, работая сверху дуги вниз и наружу
  • Добавьте новую строку в конце каждой строки матрицы
  • Сверните матрицу до одной строки и напечатайте

Это моя первая попытка игры в гольф, комментарии приветствуются ...

user2390246
источник
3

Röda , 53 52 байта

f n{seq 0,n|{|i|["
"*i," "*(n-i),"O"," "*i*2,"O"]}_}

Попробуйте онлайн!

Использование: main { f(5) }

Безголовая версия:

function f(n) {
    seq(0, n) | for i do
        push("\n"*i, " "*(n-i), "O", " "*i*2, "O")
    done
}
fergusq
источник
Можете ли вы использовать буквальный перевод строки вместо \nи сохранить 1 байт?
Kritixi Lithos
@KritixiLithos Это работает. Благодарность!
fergusq
2

Befunge, 75 73 байта

<vp00:&
1<-1_:v#\+55:g01\-g01g00" O"1\*2g01" O"1p0
#@_\:v>$$:!
1\,:\_^#:-

Попробуйте онлайн!

Первая строка читает в скорости, v , и сохраняет копию в памяти. Затем вторая строка ведет обратный отсчет от v до нуля с индексом i и на каждой итерации помещает последовательность пар символ / длина в стек.

Length  Character
-----------------
1       'O'
i*2     ' '
1       'O'
v-i     ' '
i       LINEFEED

Эта последовательность представляет собой вид кодирования длин серий требуемого вывода в обратном порядке. Последние две строки затем просто выталкивают эти пары символов / длины из стека, выводя вхождения длины каждого символа , пока стек не станет пустым.

Джеймс Холдернесс
источник
2

Ява 8, 129 124 109 байтов

Golfed:

v->{String s="",t="";for(int j,y=0;y<=v;++y){for(j=0;j<v;++j)s+=j<y?"\n":" ";s+="o"+t+"o";t+="  ";}return s;}

Попробуйте онлайн!

Ungolfed:

public class DrawTheArcOfABall {

  public static void main(String[] args) {
    for (int i = 1; i < 6; ++i) {
      System.out.println(f(v -> {
        String s = "", t = "";
        for (int j, y = 0; y <= v; ++y) {
          for (j = 0; j < v; ++j) {
            s += (j < y ? "\n" : " ");
          }
          s += "o" + t + "o";
          t += "  ";
        }
        return s;
      } , i));
      System.out.println();
      System.out.println();
    }
  }

  private static String f(java.util.function.IntFunction<String> f, int v) {
    return f.apply(v);
  }
}

источник
Попробуйте онлайн!
Poke
Для второго вложенного цикла, я думаю, for(;j<v;++)будет работать, потому что на данный момент j==y. Кроме того, вы можете удалить третью, добавив вторую строковую переменную внутри цикла for String t="";(12) и t+=" ";(8) внутри первого вложенного цикла. Тогда третий цикл просто становитсяs+="o"+t+"o";
nmjcman101
Кроме того, вы можете объединить первые два вложенных цикла, for(j=0;j<v;++j)s+=j<y?"\n":" ";хотя я не уверен, как это согласуется с моим предыдущим комментарием оt
nmjcman101
Вы можете инициализировать t=""рядом с s в начале, а затем добавлять t+=" "каждый цикл после того, как вы это сделаетеs+="o"+t+"o"
nmjcman101
2

VBA, 124 112 85 88 66 63 59 байт

For i=0To[A1]:?Space([A1]-i)"O"Space(2*i)"O"String(i,vbCr):Next

Всего сэкономлено 29 байт благодаря Тейлору Скотту

Это нужно запустить в окне VBA Immediate и распечатать результат в том же виде.

Расширяется / форматируется, становится:

For i=0 To [A1]
   Debug.Print Space([A1]-i) & "O" & Space(2*i) & "O" & String(i,vbCr)
Next

(Оказывается, что объединение в команде печати происходит автоматически без оператора.)

Инженер Тост
источник
b & s &Космическая тревога!
CalculatorFeline
Я попытался, и он ошибся в первый раз. Возвращаясь, я понял, что он будет расширяться, b &s &Stringно нет b&s&String. Кроме того, сначала я подумал, что вы хотите использовать Spaceфункцию, которую я полностью должен был использовать, и это привело к экономии большего количества байтов.
Инженер Тост
Вы можете сжать for i=0 To vи debug.? bдо for i=0To vи Debug.?b, соответственно, для -2байтов. И, как вы знаете, общественное мнение состоит в том, что для языков с автоформатированием вы можете рассчитывать до того, как оно будет автоматически отформатировано, то есть после внесения этих изменений у вас должно быть число байтов 85 байтов
Тейлор Скотт,
На второй взгляд, это фрагмент, а не функция или подпрограмма; так что это не верное решение. Я считаю, что вы могли бы это исправить, преобразовав функцию непосредственного оконного окна Excel VBA и взяв ввод из [A1]( v=[A1]). Кроме того, я не думаю, что вам действительно нужна sпеременная.
Тейлор Скотт,
1
@TaylorScott Это кажется очевидным улучшением в ретроспективе, но я не знал, что для конкатенации не требуется оператор в непосредственном окне. Это сэкономит мне несколько байтов в будущем. ;Тем не менее мне пришлось добавить в конец команды печати, потому что она по-прежнему добавляла дополнительный разрыв строки по умолчанию. Благодарность!
Инженер Тост
2

05AB1E , 18 13 байт

ÝηRO«ð×'O«ζ»

Попробуйте онлайн!

Ý                # [0..n]
 €LRO            # [0.sum(), 0..1.sum(), ..., 0..n-1.sum(), 0..n.sum()]
     «          # Mirror image the array [0, 0..n.sum(), 0]
       ð×'O«     # Push that many spaces with an O appended to it.
            .B   # Pad small elements with spaces to equal largest element length.
              ø» # Transpose and print.
Урна волшебного осьминога
источник
1

Желе , 17 16 байт

‘Ḷ+\Ṛ⁶ẋ;€”Om0z⁶Y

Попробуйте онлайн!

Как?

‘Ḷ+\Ṛ⁶ẋ;€”Om0z⁶Y - Main link: v         e.g. 3
‘                - increment: v+1            4
 Ḷ               - lowered range             [0,1,2,3]
  +\             - reduce with addition      [0,1,3,6]
    Ṛ            - reverse                   [6,3,1,0]
     ⁶           - a space                   ' '
      ẋ          - repeat (vectorises)       ['      ','   ',' ','']
       ;€        - concatenate each with
         ”O      -     an 'O'                ['      O','   O',' O','O']
           m0    - concatenate reflection    ['      O','   O',' O','O','O','O ','O   ','O      ']
             z⁶  - transpose with space fill ['   OO   ','  O  O  ','        ',' O    O ','        ','        ','O      O']
               Y - join with line feeds      ['   OO   \n  O  O  \n        \n O    O \n        \n        \nO      O']
                 - implicit print
Джонатан Аллан
источник
1

PHP, 76 байт

for(;$argn>=0;$s.="  ")echo($r=str_repeat)("
",$i++),$r(" ",$argn--),o,$s,o;

Запустите echo <v> | php -nR '<code>'или протестируйте его онлайн .

зацикливается $argnот входа до 0и $iот 0;
печатает - в том порядке - в каждой итерации

  • $i переводы строки (нет в первой итерации)
  • левый отступ: $argnпробелы
  • левый шар: o
  • внутренняя обивка: 2*$iпробелы
  • правый мяч: o
Titus
источник
1

V , 23 19 байт

2éoÀñYço/^2á O
HPJ>

Попробуйте онлайн!

объяснять

2éo            " Insert two 'o's
   Àñ          " <Arg> times repeat
     Y         " Yank the current (top) line.  This is always '\s*oo'
      ço/      " On every line that matches 'o'
         ^     " Go to the first non-whitespace character (the 'o')
          2á   " Append two spaces (between the two 'o's
             O " Add a blank line on top of the current one
H              " Go to the first line
 P             " Paste in front ('\s*oo')
  J            " Join this line with the blank line immediately after it
   >           " Indent once
nmjcman101
источник
1

JavaScript (ES6), 87 байт

f=
n=>' '.repeat(n+1).replace(/./g,"$`#$'O$`$`O").replace(/ *#/g,s=>[...s].fill``.join`
`)
<input type=number min=0 oninput=o.textContent=f(+this.value)><pre id=o>
Развернуть фрагмент

Нерекурсивное решение. Требование индексации было раздражающим, как в приведенном выше, так и в следующем 62-байтовом (я не знаю, приведет ли это к более короткому порту Retina) рекурсивное решение:

f=n=>~n?` `.repeat(n)+`OO`+f(n-1).replace(/^ *O/gm,`
$&  `):``
Нил
источник
0

Stacked, 67 63 байта

args 0#1+:@x:>{!n x\-1-' '*'O'+n 2*' '*+'O'+x 1-n!=n*LF*+out}"!

Начальная попытка, 67 байт

args 0# :@v 1+2*:>[:v:+1+\-2/*' '*'O'+''split]"!fixshape tr rev out

Полная программа. Создает что-то вроде:

('O'
 ' ' 'O'
 ' ' 'O'
 'O')

Который является дополненным, транспонированным, реверсированным и выведенным.

Конор О'Брайен
источник
0

Пакетный, 163 байта

@set l=@for /l %%i in (1,1,%1)do @call
@set s=
%l% set s= %%s%%
@set t=
%l%:c&for /l %%j in (2,1,%%i)do @echo(
:c
@echo %s%O%t%O
@set s=%s:~1%
@set t=  %t%
Нил
источник
0

Рубин, 52 байта

->x{(0..x).map{|a|$><<$/*a+' '*(x-a)+?O+' '*a*2+?O}}

Нет завершающего перевода строки (допускается по правилам: " не более одного завершающего перевода строки ")

гигабайт
источник
0

AHK, 93 байта

m=0
n=1
f=%1%-1
Loop,%1%{
r=%r%{VK20 %f%}O{VK20 %m%}O{`n %n%}
m+=2
n++
f--
}
FileAppend,%r%,*

Если бы я мог понять, как сделать математику внутри повторяющихся нажатий клавиш, это было бы здорово.
- VK20приравнивается к пробелу
- FileAppendвыводит, stdoutесли имя файла*

Инженер Тост
источник