Pausa el doble de tiempo

15

Su desafío es imprimir la entrada, esperar cualquier cantidad de tiempo, imprimir la entrada, esperar dos veces el tiempo que inicialmente esperó, imprimir la entrada nuevamente, y así sucesivamente. El retraso inicial debe ser inferior a 1 hora y debe tener una precisión de +/- 5% en los retrasos posteriores. Aparte de eso, no hay restricción en el tiempo de retraso.

Ejemplo:

Entrada: hi.

Salida: hi(pausa de 1 hims ) (pausa de 2 ms ) (pausa de 4 ms ) (pausa de 8 ms) hi(pausa de hi16 hims), etc.

También permitido:

hi(Pausa de 1 minuto) hi( pausa de 2 minutos) hi( pausa de 4 minutos) hi(pausa de 8 minutos) hi(pausa de 16 minutos), etc.

La entrada debe proporcionarse al inicio del programa (STDIN, parámetro de línea de comando, parámetro de función, etc.) y será una cadena.

El retraso inicial no puede ser 0.

programador 5000
fuente
¿La salida debe ser infinita, o puede detenerse después de cierto tiempo?
Camarada SparklePony
1
@ComradeSparklePony se debe de salida, siempre que pueda (hasta la muerte térmica del universo, desplome de la computadora, stackoverflow, sin memoria, etc)
programmer5000
@ComradeSparklePony solo si es algo como stackoverflow, sin memoria, etc. Esto técnicamentey=x=>(x&&alert(x),y()) estaría permitido, pero lo rechazaría.
programmer5000
@ programmer5000 Gracias, lo tengo.
Camarada SparklePony
¿Puedo imprimir una nueva línea?
MD XF

Respuestas:

12

05AB1E , 6 bytes

Código:

[=No.W

Explicación:

[        # Start an infinite loop
 =       # Print the top of the stack without popping
  No     # Compute 2 ** (iteration index)
    .W   # Wait that many milliseconds

Pruébalo en línea!

Adnan
fuente
Si comienza esperando 1 segundo, puede usarlo en wlugar de .W.
Riley
@Riley No creo que eso funcione. wespera un segundo, .Wpase lo que pase , aparece una y espera tantos milisegundos.
Camarada SparklePony
@ComradeSparklePony Tienes razón. Tendría que ser Gw.
Riley
No sé si necesariamente refleja algún problema en el código, pero en el momento en que ejecuto el ejemplo vinculado, el motor me da: "Advertencia: la solicitud excedió el límite de tiempo de 60 segundos y se finalizó".
doppelgreener
@doppelgreener Sí, el intérprete en línea podría no ser la mejor opción en este caso. Sin conexión funciona como un encanto sin embargo.
Adnan
15

Scratch, 8 bloques + 3 bytes

establecer [n] a [1];  para siempre {decir [x];  espera (n) segundos;  establecer [n] en ((n) * (2))}

Equivalente en Python:

import time
n = 1
while 1:
    print("x")
    time.sleep(n)
    n = n * 2
OldBunny2800
fuente
1
¿Por qué "+ 3 bytes"?
Cole Johnson
2
9 bloques (por ejemplo, para siempre, n) + 3 bytes (por ejemplo, x, 2)
OldBunny2800
5

Python 3, 60 56 bytes

import time
def f(x,i=1):print(x);time.sleep(i);f(x,i*2)

Registro de cambios:

  • cambió lambda recursiva a función recursiva (-4 bytes)
L3viatán
fuente
Puede guardar un byte en la printdeclaración al cambiar a Python 2 :)
numbermaniac
1
@numbermaniac Sí, pero luego tendría que cambiar a Python 2.: P
L3viathan
5

MATL , 8 bytes

`[email protected]

La primera pausa es de 2 segundos.

Pruébalo en MATL Online . O ver una versión modificada que muestre el tiempo transcurrido desde que se inició el programa. (Si el intérprete no funciona, actualice la página e intente nuevamente).

O ver un gif:

ingrese la descripción de la imagen aquí

Explicación

`     % Do...while
  G   %   Push input
  D   %   Display
  @   %   Push iteration index (1-based)
  W   %   2 raised to that
  Y.  %   Pause for that time
  T   %   Push true. This will be used as loop confition
      % End (implicit). The top of the stack is true, which produces an infinite loop 
Luis Mendo
fuente
@ programmer5000 Por curiosidad: ¿el intérprete en línea trabajó para usted?
Luis Mendo
Sí, lo hizo, ¿por qué?
programmer5000
@ programmer5000 Gracias. Solo para verificar. A veces hay problemas de tiempo de espera
Luis Mendo
5

Mathematica 34 32 30 29 Bytes

Solución original 34 Bytes:

For[x=.1,1<2,Pause[x*=2];Print@#]&

Afeite 2 bytes con Do

x=1;Do[Pause[x*=2];Print@#,∞]&

Elimine un byte más con la solución recursiva de @ MartinEnder

±n_:=#0[Print@n;Pause@#;2#]&@1

@ngenisis usa la recursividad ReemplazarRepetida para eliminar otro byte

1//.n_:>(Print@#;Pause@n;2n)&
Kelly Lowder
fuente
44
Truees 1>0. Pero algo como esto es un poco más corto:±n_:=#0[Print@n;Pause@#;2#]&@1
Martin Ender
Puse el 1<2previo a tu comentario. Sin embargo, su solución recursiva ahorra un byte. Gracias @MartinEnder
Kelly Lowder
±es un byte en la codificación CP-1252 (codificación predeterminada de Windows).
JungHwan Min
3
Aún más corto:1//.n_:>(Print@#;Pause@n;2n)&
ngenisis
5

Octava, 42 41 bytes

x=input('');p=1;while p*=2,pause(p),x,end

Guardado un byte gracias a rahnema1, p*=2es más corto que p=p*2.

No puedo creer que no haya podido jugar golf, pero en realidad no fue tan fácil.

  • La entrada debe estar en el inicio, por lo que la primera parte es imposible de evitar.
  • Necesito un número que se duplique y debe inicializarse delante del bucle
    • Sería posible usar la entrada como condicional para el ciclo, pero luego tendría que tener p*=2otro lugar.
    • La pausa no tiene un valor de retorno, de lo contrario podría haber sido while pause(p*=2)
Stewie Griffin
fuente
2
Un truco que aprendí de rahnema1: input(0)funciona
Luis Mendo
1
@LuisMendo Lamentablemente, el truco no funciona en la versión reciente de octava :(
rahnema1
4

Java (OpenJDK 8) , 113 bytes

interface M{static void main(String[]a)throws Exception{for(int i=1;;Thread.sleep(i*=2))System.out.print(a[0]);}}

Pruébalo en línea!

-60 bytes gracias a Leaky Nun!

Hiperneutrino
fuente
2
+1 para "No use Java para jugar al golf. Es una mala idea". ¿Podría agregar un enlace TIO?
programmer5000
@ programmer5000 Claro, pero no funciona, porque TIO espera a que termine el código.
HyperNeutrino
2
¿Por qué una interfaz en lugar de una clase?
derecha
2
@rightfold Una interfaz le permite omitir el publicen public static void main.
Leaky Nun
1
@ColeJohnson los argumentos son obligatorios.
Leaky Nun
4

R, 50 48 bytes

function(x,i=1)repeat{cat(x);Sys.sleep(i);i=i*2}

devuelve una función anónima que tiene un argumento obligatorio, la cadena para imprimir. No imprime nuevas líneas, solo escupe xen la pantalla. ies un argumento opcional que por defecto es 1, espera isegundos y se duplica i.

-2 bytes gracias a pajonk

Pruébalo en línea!

Giuseppe
fuente
¿Por qué no comenzar a partir de i=1entonces usar i=i*2al final y dormir solo i?
pajonk
Esa es una gran idea ... Cambiaré eso.
Giuseppe
4

Ruby, 34 28 23 22 (+2 para -n) = 24 bytes

¡3 bytes guardados gracias a Value Ink!

1 byte guardado gracias a daniero

loop{print;sleep$.*=2}

Comienza en 2, entonces 4, etc.

Explicación

-n                       # read a line from STDIN
  loop{                } # while(true):
       print;            # print that line
             sleep$.*=2  # multiply $. by 2, then sleep that many seconds. 
                         # $. is a Ruby special variable that starts at 1.
Cyoce
fuente
Dormirá un segundo antes de leer la entrada, pero ya puede ingresarla
John Dvorak
Iniciar el programa Ruby con el -nindicador le permite omitir la getsllamada inicial , porque el indicador lo manejará por usted
Value Ink
printsin argumento es equivalente a puts$_- un byte guardado
daniero
4

Alice , 16 bytes

1/?!\v
T\io/>2*.

Pruébalo en línea! (No hay mucho que ver allí, por supuesto, pero puede verificar con qué frecuencia se imprimió en un minuto).

Explicación

1    Push 1 to the stack. The initial pause duration in milliseconds.
/    Reflect to SE. Switch to Ordinal.
i    Read all input.
!    Store it on the tape.
/    Reflect to E. Switch to Cardinal.
>    Move east (does nothing but it's the entry of the main loop).
2*   Double the pause duration.
.    Duplicate it.
     The IP wraps around to the first column.
T    Sleep for that many milliseconds.
\    Reflect to NE. Switch to Ordinal.
?    Retrieve the input from the tape.
o    Print it.
\    Reflect to E. Switch to Cardinal.
v    Move south.
>    Move east. Run another iteration of the main loop.
Martin Ender
fuente
4

R, 44 43 bytes

Tachado 44 sigue siendo regular 44; (

Esta respuesta ya proporciona una solución decente, pero podemos guardar algunos bytes más.

function(x)repeat{cat(x);Sys.sleep(T<-T*2)}

Función anónima que toma prácticamente cualquier cosa imprimible como argumento x. Comienza a los 2 segundos y luego se duplica cada vez. Abusa del hecho que Tse define por defecto como el TRUEque evalúa 1.

Además, mientras este comentario todavía reciba luz verde de OP, podemos hacerlo aún más corto, pero no creo que sea en el espíritu del desafío. Los tiempos de espera de 0 ya no están permitidos.

function(x)repeat cat(x)
JAD
fuente
2
mirarte, abusando de los pobres Tasí. en la versión más corta de la respuesta, ni siquiera necesita llaves, solo un espacio.
Giuseppe
1
Oye, si Tno le gusta, Tpuede defenderse. Además, buen hallazgo :)
JAD
3

Cubix , 30 bytes

/(?:u<q.;1A>?ou2$/r;w;q^_q.\*/

Pruébalo aquí

Esto se asigna a un cubo con longitud lateral 3.

      / ( ?              # The top face does the delay.  It takes the stack element with the
      : u <              # delay value, duplicates and decrements it to 0.  When 0 is hit the
      q . ;              # IP moves into the sequence which doubles the delay value.
1 A > ? o u 2 $ / r ; w  # Initiates the stack with one and the input.  For input hi this
; q ^ _ q . \ * / . . .  # gives us 1, -1, 10, 105, 104.  There is a little loop that prints 
. . . . . . . . . . . .  # each item in the stack dropping it to the bottom until -1 is hit.
      . . .              # Then the delay sequence is started om the top face
      . . .
      . . .
MickyT
fuente
oh wow, esto parece un lenguaje ordenado
Skidsdev
3

Bash , 37 bytes

for((t=1;;t*=2)){ sleep $t;echo $1;};

Por alguna razón, TIO no mostrará el resultado hasta que detenga la ejecución del programa.

Pruébalo en línea!

Maxim Mikhaylov
fuente
Sí, solo devuelve la salida al finalizar.
Jonathan Allan
3

PHP, 31 bytes

for(;;sleep(2**$i++))echo$argn;
for(;;sleep(1<<$i++))echo$argn;

duerme 1, 2, 4, 8, ... segundos. Corre como tubería conphp -nR '<code>'

Funcionará hasta la impresión 63 (en una máquina de 64 bits), después de eso no habrá más esperas.
La versión 1 arrojará advertencias sleep() expects parameter 1 to be integer, float given,
versión 2 generará una advertencia sleep(): Number of seconds must be greater than or equal to 0.

Inserte @antes sleeppara silenciar las advertencias.

Titus
fuente
3

TI-Basic, 21 bytes

Prompt Str0
1
While 1
Disp Str0
Wait Ans
2Ans
End
pizzapants184
fuente
2

Python 3, 61 bytes

import time;i=1;x=input()
while 1:print(x);time.sleep(i);i*=2

Similar al golf de @ L3viathan, pero usa whileloop

Wondercricket
fuente
2

CJam, 26 bytes

qKes{es1$-Y$<{W$o;2*es}|}h

No funciona correctamente en TIO.

La primera pausa es de 20 milisegundos.

Explicación

q                           e# Push the input.
 K                          e# Push 20 (the pause time).
  es                        e# Push the time (number of milliseconds since the Unix epoch).
    {                       e# Do:
     es1$-                  e#  Subtract the stored time from the current time.
          Y$<{              e#  If it's not less than the pause time:
              W$o           e#   Print the input.
                 ;2*es      e#   Delete the stored time, multiply the pause time by 2, push
                            e#     the new time.
                      }|    e#  (end if)
                        }h  e# While the top of stack (not popped) is truthy.
                            e#  (It always is since the time is a positive integer)
Gato de negocios
fuente
2

C, 51 bytes

main(c,v)char**v;{puts(v[1]);sleep(c);main(2*c,v);}

C, 35 bytes como una función

c=1;f(n){puts(n);sleep(c*=2);f(n);}

Toma datos como argumento de línea de comando.

cleblanc
fuente
2

Lote, 62 bytes

@set/at=%2+0,t+=t+!t
@echo %1
@timeout/t>nul %t%
@%0 %1 %t%

Esto resultó ser un byte más corto que duplicar explícitamente ten un bucle:

@set t=1
:g
@echo %1
@timeout/t>nul %t%
@set/at*=2
@goto g
Neil
fuente
2

Reticular , 12 bytes.

1idp~dw2*~2j

Pruébalo en línea!

Explicación

1idp~dw2*~2j
1               push 1 (initial delay)
 i              take line of input
  d             duplicate it
   p            print it
    ~           swap
     d          duplicate it
      w         wait (in seconds)
       2*       double it
         ~      swap
          2j    skip next two characters
1i              (skipped)
  d             duplicate input
   p            print...
                etc.
Conor O'Brien
fuente
2

C #, 80 79 bytes

s=>{for(int i=1;;System.Threading.Thread.Sleep(i*=2))System.Console.Write(s);};

Guardado un byte gracias a @raznagul.

TheLethalCoder
fuente
Puede guardar 1 byte moviendo la Writedeclaración al cuerpo del bucle.
raznagul
@raznagul No sé cómo me perdí esa, ¡gracias!
TheLethalCoder
2

Python 2, 54 bytes

Utiliza un cálculo largo en lugar de bibliotecas de temporización.

def f(x,a=1):
 while 1:a*=2;exec'v=9**9**6;'*a;print x
Skyler
fuente
Ahora noto que mi respuesta es similar a la tuya. No había leído su respuesta cuando publiqué, pero si desea incorporar mi solución en la suya, con mucho gusto eliminaré mi respuesta.
Tim
2

PowerShell, 35 33 30 29 Bytes

Con una pista útil de lo que sea y Joey

%{for($a=1){$_;sleep($a*=2)}}

Explicación

%{          # Foreach
for($a=1){  # empty for loop makes this infinite and sets $a
$_;         # prints current foreach item
sleep($a*=2)# Start-Sleep alias for $a seconds, reassign $a to itself times 2           
}}          # close while and foreach

Ejecutado con:

"hi"|%{for($a=1){$_;sleep($a*=2)}}
SomeShinyMonica
fuente
1
debería poder usar un vacío para en lugar de while:% {$ a = 1; for () {$ _; sleep ($ a * = 2)}} ``
lo que sea
¡Gracias! Había intentado usar un bucle for antes pero lo puse for(;;). Ni siquiera trató de eliminar los punto y coma.
SomeShinyMonica
1
Ponga $a=1como inicialización en el forpara guardar otro byte ( for($a=1){...}). Además, no estoy seguro de contar %, ya que la rutina real que está ejecutando es solo un bloque de script. (Mis desafíos tienden a ser bastante estrictos sobre la necesidad de un programa, evitando tales reflexiones, pero para cualquier cosa que surja, todavía no estoy muy seguro de cómo contar varias formas de usar PowerShell.)
Joey
@Joey, dulce eso sí funciona. Gracias por el consejo
SomeShinyMonica
2

Python 3, 49 bytes

b=input();x=6**6
while 1:print(b);exec("x+=1;"*x)

Utiliza el ligero retraso de la +=operación y la ejecuta xveces. xse duplica agregando uno a sí mismo tantas veces como el valor dex .

Comienza en 6^6(46656) para mantener la variación máxima del 5% en el retraso.

Tim
fuente
Inteligente, pero este es un cerdo de memoria.
eush77
@ eush77 sí, ¡en mi tableta terminó después de solo 7 iteraciones del bucle! Espero que dure un poco más en mi escritorio.
Tim
1

Perl 6 , 39 bytes

print(once slurp),.&sleep for 1,2,4...* 

Pruébelo ( printanulado para agregar información de tiempo)

Expandido:

  print(        # print to $*OUT
    once slurp  # slurp from $*IN, but only once
  ), 
  .&sleep       # then call sleep as if it was a method on $_

for             # do that for (sets $_ to each of the following)

  1, 2, 4 ... * # deductive sequence generator
Brad Gilbert b2gills
fuente
1

JS (ES6), 44 42 40 38 36 bytes

Tachado 44 sigue siendo 44

i=1,y=x=>setTimeout(y,i*=2,alert(x))

¿No te gustan las bombas de alerta?

i=1,y=x=>setTimeout(y,i*=2,console.log(x))

Técnicamente correcto, pero abusivo de lagunas:

y=x=>(x&&alert(x),y())

-3 bytes gracias a Cyoce, -2 gracias a Business Cat, -2 gracias a Neil

programador 5000
fuente
2
Parece que no puedo probar esto correctamente, pero probablemente podría hacer i=1,y=x=>(alert(x),setTimeout(y,i*=2))para guardar un par de bytes
Business Cat
1
Seguí adelante y edité un mensaje de crédito para Cyoce; si desea cambiarlo, no dude en editar / revertir.
HyperNeutrino
1
¿Qué tal i=1,y=x=>setTimeout(y,i*=2,console.log(x))?
Neil
1

Lisp común, 49 bytes

(do((a(read))(i 1(* 2 i)))(())(print a)(sleep i))

El primer retraso debe ser el 1segundo.


fuente
1
Tienes 321 rep!
programador
@ programmer5000 tienes 3683 rep!
Cyoce
1

Pyth, 7 bytes

#|.d~yT

Explicación:

#           Infinitely loop
  .d         Delay for 
      T      10 seconds
    ~y       and double T each time
 |           print input every iteration, too
Steven H.
fuente
1

TI-BASIC, 36 bytes

El período de espera inicial es de 1 segundo.

1→L
Input Str1
checkTmr(0→T
While 1
While L>checkTmr(T
End
Disp Str1
2L→L
End
kamoroso94
fuente
1

Raqueta, 51 bytes

(λ(s)(do([n 1(* n 2)])(#f)(displayln s)(sleep n)))

Ejemplo

➜  ~  racket -e '((λ(s)(do([n 1(* n 2)])(#f)(displayln s)(sleep n)))"Hello")'
Hello
Hello
Hello
Hello
Hello
^Cuser break
Winny
fuente