Seu desafio é imprimir a entrada, aguardar qualquer quantidade de tempo, imprimir a entrada, esperar duas vezes o tempo inicialmente esperado, imprimir a entrada novamente e assim por diante. O atraso inicial deve ser menor que 1 hora e você deve ter uma precisão de +/- 5% nos atrasos subsequentes. Fora isso, não há restrição no tempo de atraso.

Exemplo:

Entrada: hi.

Saída: hi(1ms de pausa) hi(2ms de pausa) hi(4ms de pausa) hi(8ms de pausa) hi(16ms de pausa), etc.

Também é 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.

A entrada deve ser fornecida no início do programa (STDIN, parâmetro da linha de comandos, parâmetro da função, etc.) e será uma sequência.

O atraso inicial não pode ser 0.

05AB1E , 6 bytes

Código:

[=No.W

Explicação:

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

Experimente online!

Scratch, 8 blocos + 3 bytes

Equivalente em Python:

import time
n = 1
while 1:
    print("x")
    time.sleep(n)
    n = n * 2

Python 3, 60 56 bytes

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

Changelog:

• mudou lambda recursiva para função recursiva (-4 bytes)

MATL , 8 bytes

`[email protected]

A primeira pausa é de 2 segundos.

Experimente no MATL Online . Ou veja um versão modificada que exibe o tempo decorrido desde o início do programa. (Se o intérprete não funcionar, atualize a página e tente novamente).

Ou veja um gif:

Explicação

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

Mathematica 34 32 30 29 Bytes

Solução original 34 bytes:

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

Raspe 2 bytes com Do

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

Raspe mais um byte com a solução recursiva do @ MartinEnder

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

O @ngenisis usa a recursão ReplaceRepeated para remover outro byte

1//.n_:>(Print@#;Pause@n;2n)&

Oitava, 42 41 bytes

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

Salvo um byte graças a rahnema1, p*=2é menor que p=p*2.

Não acredito que não fui capaz de jogar isso, mas na verdade não foi tão fácil.

• A entrada deve estar no início, portanto, é impossível evitar a primeira parte.
• Preciso de um número dobrado e ele deve ser inicializado na frente do loop
  • Seria possível usar a entrada como condicional para o loop, mas então eu teria que ter p*=2outro lugar.
  • A pausa não tem um valor de retorno, caso contrário, poderia ter sido while pause(p*=2)

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

Experimente online!

-60 bytes graças a Leaky Nun!

R, 50 bytes 48

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

retorna uma função anônima que possui um argumento obrigatório, a sequência a ser impressa. Não imprime novas linhas, apenas cospe xna tela. ié um argumento opcional cujo padrão é 1, aguarda isegundos e dobra i.

-2 bytes graças a pajonk

Experimente online!

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

3 bytes salvos graças ao Value Ink!

1 byte salvo graças a daniero

loop{print;sleep$.*=2}

Começa em 2 , então 4etc.

Explicação

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

Alice , 16 bytes

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

Experimente online! (Claro que não há muito para ver lá, mas você pode verificar com que frequência foi impresso em um minuto.)

Explicação

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.

R, 44 43 bytes

O riscado 44 ainda é regular 44;

Essa resposta já fornece uma solução decente, mas podemos economizar mais alguns bytes.

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

Função anônima, tendo praticamente qualquer coisa imprimível como argumento x. Começa em 2 segundos e dobra toda vez depois. Abusa o fato de que, Tpor padrão, é definido como o TRUEqual é avaliado 1.

Além disso, desde que esse comentário ainda receba uma luz verde do OP, podemos torná-lo ainda mais curto, mas não acho que esteja no espírito do desafio. Tempos de espera de 0 não são mais permitidos.

function(x)repeat cat(x)

Cubix , 30 bytes

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

Experimente aqui

É mapeado para um cubo com comprimento 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
      . . .
      . . .

Bash , 37 bytes

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

Por alguma razão, o TIO não mostrará a saída até que você pare a execução do programa.

Experimente online!

PHP, 31 bytes

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

dorme 1, 2, 4, 8, ... segundos. Executar como tubo comphp -nR '<code>'

Funcionará até a 63ª impressão (em uma máquina de 64 bits), depois disso não haverá mais espera.
A versão 1 gera avisos sleep() expects parameter 1 to be integer, float given, a
versão 2 gera um aviso sleep(): Number of seconds must be greater than or equal to 0.

Insira @antes sleeppara silenciar os avisos.

TI-Basic, 21 bytes

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

Python 3, 61 bytes

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

Semelhante ao golfe do @ L3viathan, mas usa whileloop

CJam, 26 bytes

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

Não funciona corretamente no TIO.

A primeira pausa é de 20 milissegundos.

Explicação

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)

C, 51 bytes

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

C, 35 bytes em função

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

Recebe entrada como um argumento de linha de comando.

Lote, 62 bytes

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

Acabou sendo um byte mais curto do que explicitamente dobrando tem um loop:

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

Reticular , 12 bytes

1idp~dw2*~2j

Experimente online!

Explicação

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.

C #, 80 bytes

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

Guardou um byte graças a @raznagul.

Python 2, 54 bytes

Usa um cálculo demorado em vez de cronometrar bibliotecas.

def f(x,a=1):
 while 1:a*=2;exec'v=9**9**6;'*a;print x

PowerShell, 35 33 30 29 bytes

Com uma dica útil de qualquer coisa e Joey

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

Explicação

%{          # 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

Executado com:

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

Python 3, 49 bytes

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

Usa o pequeno atraso da +=operação e a executa xvezes. xdobra adicionando uma a si mesma quantas vezes o valor de x.

Começa em 6^6(46656) para manter a variação máxima de 5% no atraso.

Perl 6 , 39 bytes

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

Experimente (print substituído para adicionar informações de tempo)

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

JS (ES6), 44 42 40 38 36 bytes

^{Riscado 44 ainda é 44}

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

Não gosta de bombas de alerta?

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

Tecnicamente correto, mas abusando de brechas:

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

-3 bytes graças a Cyoce, -2 graças a Business Cat, -2 graças a Neil

Lisp comum, 49 bytes

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

o primeiro atraso deve ser o 1segundo.

Pitão, 7 bytes

#|.d~yT

Explicação:

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

TI-BASIC, 36 bytes

O período de espera inicial é de 1 segundo.

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

Raquete, 51 bytes

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

Exemplo

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