Dibuja la trayectoria parabólica de una pelota lanzada.

La entrada es la velocidad ascendente inicial de la pelota, un número entero positivo v. Cada segundo, la bola mueve el 1espacio hacia la derecha y los vespacios verticalmente, y luego vdisminuye 1debido a la gravedad. Por lo tanto, la velocidad ascendente finalmente se baja de va 0y hacia abajo para -v, finalmente, volver a caer a su altura inicial.

Las posiciones de la pelota trazan una parábola. En posición horizontal x, su altura es y=x*(2*v+1-x)/2, con (0,0)la posición inicial de la pelota en la parte inferior izquierda.

Muestra el arte ASCII de la trayectoria de la pelota con Olas coordenadas que ocupa. El resultado debe ser un solo texto de varias líneas, no una animación de la ruta a lo largo del tiempo.

La salida no debe tener nuevas líneas principales y, como máximo, una nueva línea final. La línea inferior debe estar al ras con el borde izquierdo de la pantalla, es decir, no tener espacios iniciales adicionales. Los espacios finales están bien. Puede suponer que el ancho de la línea de salida se ajusta en el terminal de salida.

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

Relacionado: simulación de pelota que rebota

Tabla de clasificación:

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>

Carbón , 18 16 13 bytes

-3 bytes gracias a @Neil !

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

Explicación

Ｆ⊕Ｎ«        »    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

Pruébalo en línea! El enlace es a código detallado.

C, 93 92

(Nota, alguien llegó a 87 en los comentarios)

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

Pruébalo en línea!

Legible:

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

Notas:

Puedo contraer ambos bucles en uno solo para iterar el número total de líneas generadas, que se obtiene mediante la fórmula: 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("");
}

Pero termina siendo aún más bytes que simplemente usando dos bucles for separados

Python 2 , 65 bytes

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

Pruébalo en línea!

GNU sed, 41

• La puntuación incluye +1 de -rbanderas a sed.

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

La entrada está en unario, como una cadena de espacios: la longitud de la cadena es la entrada.

Pruébalo en línea .

Python 2, 76 bytes

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

Bastante simple. El i-x+1and ies para evitar un montón de nuevas líneas finales.

MATL , 19 17 bytes

Q:tqYsQ79Z?PtPv!c

¡Pruébalo en MATL Online! O verificar todos los casos de prueba .

Explicación

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 bytes

Guardado 4 bytes gracias a Adnan

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

Pruébalo en línea!

Explicación

ƒ                   # 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 bytes

(-20 bytes gracias a Arnauld!)

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

Una solución recursiva. Este es también mi primera vez respuesta en JavaScript, por favor suave! Todavía estoy aprendiendo todo lo que este lenguaje ordenado tiene para ofrecer, por lo que los consejos de golf son muy apreciados. :)

Fragmento de prueba

Es posible que deba desplazarse para ver la salida completa.

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 bytes

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

Entrar en mi tipo de lenguaje de golf antes de que entren los idiomas de golf adecuados.

Explicado

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

Pruébalo en línea!

Retina, 29 19 bytes

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

Pruébalo en línea!

Toma entrada en unario como una serie de espacios. Puerto de mi respuesta de JavaScript. Editar: Guardado 10 bytes gracias a @ MartinEnder ♦.

Bash , 76 bytes

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

Solo funciona en una terminal ya que usa secuencias de escape ANSI . ›representa el byte CSI ( 0x9b ).

Prueba de funcionamiento

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

Retina, 35

• 2 bytes guardados gracias a @MartinEnder

Puerto de mi respuesta sed :

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

Pruébalo en línea .

R, 89 bytes

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

• Cree una matriz de espacios (la variable a es el ancho de esta matriz, ahorrando un par de bytes)
• Complete "o" s en las ubicaciones requeridas, trabajando desde la parte superior del arco hacia abajo y hacia afuera
• Agregue una nueva línea al final de cada fila de la matriz
• Contraiga la matriz en una sola cadena e imprima

Este es mi primer intento de golf, comentarios bienvenidos ...

Röda , 53 52 bytes

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

Pruébalo en línea!

Uso: main { f(5) }

Versión sin golf:

function f(n) {
    seq(0, n) | for i do
        push("\n"*i, " "*(n-i), "O", " "*i*2, "O")
    done
}

Befunge, 75 73 bytes

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

Pruébalo en línea!

La primera línea lee en la velocidad, v , y guarda una copia en la memoria. La segunda línea luego cuenta regresivamente de v a cero, con el índice i , y en cada iteración empuja una secuencia de pares de caracteres / longitud en la pila.

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

Esta secuencia representa un tipo de codificación de longitud de ejecución de la salida requerida a la inversa. Las últimas dos líneas simplemente eliminan estos pares de caracteres / longitud de la pila, generando apariciones de longitud de cada carácter , hasta que la pila esté vacía.

Java 8, 129 124 109 bytes

Golfizado:

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

Pruébalo en línea!

Sin golf:

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 bytes

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

Ejemplo de uso: f 3-> " OO\n O O\n\n O O\n\n\nO O". Pruébalo en línea! .

VBA, 124 112 85 88 66 63 59 bytes

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

_{^{Ahorró 29 bytes en total gracias a Taylor Scott}}

Esto debe ejecutarse en la ventana Inmediato de VBA e imprimir el resultado en el mismo.

Ampliado / formateado, se convierte en:

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

_{(Resulta que la concatenación en un comando de impresión es automática sin un operador).}

05AB1E , 18 13 bytes

ÝηRO«ð×'O«ζ»

Pruébalo en línea!

Ý                # [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.

Jalea , 17 16 bytes

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

Pruébalo en línea!

¿Cómo?

‘Ḷ+\Ṛ⁶ẋ;€”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 bytes

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

Ejecutar echo <v> | php -nR '<code>'o probarlo en línea .

$argnbaja en bucle desde la entrada hasta 0y$i hacia arriba desde 0;
imprime, en ese orden, en cada iteración

• $i nuevas líneas (ninguna en la primera iteración)
• relleno izquierdo: $argn espacios
• bola izquierda: o
• acolchado interior: 2*$i espacios
• bola derecha: o

V , 23 19 bytes

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

Pruébalo en línea!

Explique

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 bytes

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>

Solución no recursiva. El requisito de indexación era molesto, tanto en lo anterior como en la siguiente solución recursiva de 62 bytes (no sé si resultaría en un puerto Retina más corto):

f=n=>~n?` `.repeat(n)+`OO`+f(n-1).replace(/^ *O/gm,`
$&  `):``

Perl 5 , 48 bytes

Código de 47 bytes + 1 para -n.

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

Pruébalo en línea!

Apilado, 67 63 bytes

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

Intento inicial, 67 bytes

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

Programa completo Genera algo como:

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

Cuál es el acolchado, transpuesto, invertido y emitido

Lote, 163 bytes

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

Ruby, 52 bytes

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

Sin nueva línea final (permitido por las reglas: " como máximo una nueva línea final ")

AHK, 93 bytes

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%,*

Si pudiera descubrir cómo hacer matemáticas dentro de la repetición de pulsaciones de teclas, sería genial.
- VK20equivale a un espacio
- da como FileAppendresultado stdoutsi el nombre de archivo es*

Haskell , 77 bytes

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

Pruébalo en línea! Uso:(#0) 5

Python 2 , 59 bytes

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

Pruébalo en línea!