Намалюйте параболічну траєкторію закинутої кулі.

Вхід - початкова швидкість вгору кулі, додатне ціле число 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

Супутнє: Моделювання м'яча підстрибуючим

Табло:

var QUESTION_ID=111861,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/111861/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Вугілля , 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

Спробуйте в Інтернеті! Посилання - це багатослівний код.

С, 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("");
    }
}

Примітки:

Я можу згорнути обидві петлі на лише одну для циклу, повторивши загальну кількість виведених рядків, що задається формулою: 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("");
}

Але в кінцевому підсумку це навіть більше байтів, ніж просто використання двох окремих циклів

Python 2 , 65 байт

f=lambda n,x=0:(n and f(n-1,x+1)or'')+'\n'*n+' '*x+'O'+'  '*n+'O'

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

GNU sed, 41

• Оцінка включає +1 від -rпрапорів до sed.

s/$/OO/
:
s/(\s*) O( *)O$/&\n\1O \2 O/
t

Введення є унарним, як рядок пробілів - довжина рядка - це вхід.

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

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полягає у запобіганні купі затяжних нових рядків.

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

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 

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>

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.
};              #

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

Сітківка, 29 19 байт

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

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

Здійснює введення в одинаковому режимі як пробіл. Порт моєї відповіді на JavaScript. Редагувати: Збережено 10 байт завдяки @ MartinEnder ♦

Баш , 76 байт

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

Працює лише в терміналі, оскільки він використовує послідовності відбору 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

Сітківка, 35

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

Порт моєї відповіді :

.+
$* OO
+`(\s*) (O *)O$
$&¶$1O $2 O

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

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 - ширина цієї матриці, заощадивши пару байтів)
• Заповніть "o" s в необхідних місцях, працюючи зверху дуги вниз і назовні
• Додайте новий рядок у кінці кожного рядка матриці
• Згорніть матрицю вниз до однієї рядка і надрукуйте

Це моя перша спроба гри в гольф, коментарі вітаються ...

Рода , 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
}

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

Ця послідовність являє собою різновид кодування довжини виконання необхідного виводу у зворотному порядку. Останні два рядки потім просто виводить ці пари символів / довжини зі стека, виводячи зустрічі довжини кожного символу , поки стек не порожній.

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

Гольф:

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

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

Безголівки:

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

Haskell, 69 байт

r=replicate
f n=[0..n]>>= \a->r a '\n'++r(n-a)' '++'O':r(2*a)' '++"O"

Приклад використання: f 3-> " OO\n O O\n\n O O\n\n\nO O". Спробуйте в Інтернеті! .

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 і надрукувати результат в тому ж самому.

Розширений / відформатований, він стає:

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

_{(Виявляється, що з'єднання в команді print друкується автоматично без оператора.)}

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.

Желе , 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

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

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

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,`
$&  `):``

Perl 5 , 48 байт

47 байт код + 1 для -n.

$_++;print$/x$-,$"x$_,O,$"x($-++*2),O while$_--

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

Зіставлено, 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')

Який є вкладений, транспонований, перетворений та виведений.

Пакетна, 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%

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

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

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

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якщо ім'я файлу*

Haskell , 77 байт

n!x=[1..n]>>x
-1#i=[]
x#i=(x-1)#(i+1)++x!"\n"++i!" "++'O':(2*x)!" "++"O"
(#0)

Спробуйте в Інтернеті! Використання:(#0) 5

Python 2 , 59 байт

f=lambda n,r='O':(r*n and f(n-1,' '+r))+'\n'*n+r+'  '*n+'O'

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