Ваше завдання полягає в тому, щоб надрукувати введення, почекати будь-яку кількість часу, надрукувати введення, почекати вдвічі час, який ви спочатку чекали, знову надрукувати вхід тощо. Початкова затримка повинна бути менше 1 години, і ви повинні мати точність +/- 5% у наступних затримках. Крім цього, обмеження часу затримки не існує.

Приклад:

Вхід: hi.

Вихід: hi(пауза 1 мс) hi(пауза 2 мс) hi(пауза 4 мс) (пауза hi8 мс) hi(пауза 16 мс) тощо.

Також дозволено:

hi(1 хвилинна пауза) hi(2 хвилинна пауза) hi(4 хвилинна пауза) hi(8 хвилинна пауза) hi(16 хвилинна пауза) тощо.

Вхід повинен бути наданий на початку програми (STDIN, параметр командного рядка, параметр функції тощо) і буде рядком.

Початкова затримка не може бути 0.

05AB1E , 6 байт

Код:

[=No.W

Пояснення:

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

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

Скретч, 8 блоків + 3 байти

Еквівалент у Python:

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

Python 3, 60 56 байт

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

Журнал змін:

• змінена рекурсивна лямбда на рекурсивну функцію (-4 байти)

MATL , 8 байт

`GD@WY.T

Перша пауза - 2 секунди.

Спробуйте в MATL Online . Або переглянути модифіковану версію, яка відображає час, що минув з моменту запуску програми. (Якщо перекладач не працює, оновіть сторінку та повторіть спробу).

Або побачити gif:

Пояснення

`     % 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 Байт

Оригінальне рішення 34 байт:

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

Поголіть 2 байти за допомогою Do

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

Поголіть ще один байт за допомогою рекурсивного рішення @ MartinEnder

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

@ngenisis використовує ReplaceRepeated рекурсію для гоління іншого байта

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

Октава, 42 41 байт

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

Збережений один байт завдяки rahnema1, p*=2коротший, ніжp=p*2 .

Я не можу повірити, що я не зміг покататися на цьому, але насправді це було не так просто.

• Вхід повинен бути на початку, тому першу частину уникнути неможливо.
• Мені потрібно число, яке подвоюється, і воно повинно бути ініціалізовано перед циклом
  • Можна було б використовувати вхід як умовний цикл, але тоді мені доведеться мати p*=2десь ще.
  • Пауза не має значення повернення, інакше це могло бути while pause(p*=2)

Java (OpenJDK 8) , 113 байт

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

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

-60 байт завдяки Leaky Nun!

R, 50 48 байт

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

повертає анонімну функцію, яка має один обов'язковий аргумент, рядок для друку. Не друкує нових рядків, просто виплескує xна екран. i- необов'язковий аргумент, який за замовчуванням 1, чекає iсекунд і подвоюється i.

-2 байти завдяки pajonk

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

Рубі, 34 28 23 22 (+2 за -n) = 24 байти

3 байти збережено завдяки Value Ink!

1 байт збережено завдяки daniero

loop{print;sleep$.*=2}

Починається з 2, потім 4і т.д.

Пояснення

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

Аліса , 16 байт

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

Спробуйте в Інтернеті! (Звичайно, тут не так багато, але ви можете перевірити, наскільки часто це було надруковано протягом однієї хвилини.)

Пояснення

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 байт

Закреслений 44 все ще є регулярним 44; (

Ця відповідь вже забезпечує гідне рішення, але ми можемо зберегти ще кілька байт.

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

Анонімна функція, беручи за аргумент практично все, що можна роздрукувати x. Починається за 2 секунди і подвоюється кожен раз після цього. Зловживає тим фактом, який Tза замовчуванням визначається так, як TRUEоцінюється 1.

Крім того, поки цей коментар все ще отримає зелене світло від ОП, ми можемо зробити його ще коротшим, але я не думаю, що це в дусі виклику. Часи очікування 0 більше заборонені.

function(x)repeat cat(x)

Cubix , 30 байт

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

Спробуйте тут

Це відображається на кубі довжиною сторони 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
      . . .
      . . .

Баш , 37 байт

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

Чомусь TIO не покаже вихід, поки ви не зупините виконання програми.

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

PHP, 31 байт

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

спить 1, 2, 4, 8, ... секунди. Запустити як трубаphp -nR '<code>'

Працюватиме до 63-го друку (на 64-бітній машині), після цього більше не буде очікування.
Версія 1 видасть попередження sleep() expects parameter 1 to be integer, float given,
версія 2 видасть одне попередження sleep(): Number of seconds must be greater than or equal to 0.

Вставте @перед тим, sleepщоб вимкнути попередження.

TI-Basic, 21 байт

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

Python 3, 61 байт

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

Схожий на гольф @ L3viathan, але використовує whileпетлю

CJam, 26 байт

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

Не працює належним чином у TIO.

Перша пауза - 20 мілісекунд.

Пояснення

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 байт

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

C, 35 байт як функція

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

Вводиться як аргумент командного рядка.

Пакетна, 62 байти

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

Це виявилося, що байт коротший, ніж явне подвоєння tв циклі:

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

Ретикулярна , 12 байт

1idp~dw2*~2j

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

Пояснення

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 79 байт

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

Збережено один байт завдяки @raznagul.

Python 2, 54 байти

Використовує тривалий обчислення замість часових бібліотек.

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

PowerShell, 35 33 30 29 Байт

З корисною підказкою від будь-чого і Джоуї

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

Пояснення

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

Виконується з:

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

Python 3, 49 байт

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

Uses the slight delay of the += operation and executes it x times. x doubles by adding one to itself as many times as the value of x.

It starts at 6^6 (46656) to stick to the maximum of 5% variation in the delay.

Perl 6, 39 bytes

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

Try it (print overridden to add timing information)

Expanded:

  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

^{Crossed out 44 is still 44}

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

Don't like alert bombs?

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

Technically correct, but loophole-abusing:

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

-3 bytes thanks to Cyoce, -2 thanks to Business Cat, -2 thanks to Neil

Common Lisp, 49 bytes

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

first delay should be 1 second.

Pyth, 7 bytes

#|.d~yT

Explanation:

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

TI-BASIC, 36 bytes

Initial wait period is 1 second.

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

Racket, 51 bytes

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

Example

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