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

Пример:

Вход: hi.

Выход: hi(1 мс пауза) hi(2ms пауза) hi(4ms пауза) hi(8ms пауза) 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)

Changelog:

• изменена рекурсивная лямбда на рекурсивную функцию (-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 байт благодаря Лики Нун!

R, 50 48 байтов

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

возвращает анонимную функцию с одним обязательным аргументом - строку для печати. Печатает без перевода строки, просто выплевывает xна экран. iэто необязательный аргумент, который по умолчанию равен 1, ждет iсекунды и удваивается i.

-2 байта благодаря Pajonk

Попробуйте онлайн!

Ruby, 34 28 23 22 (+2 для -n) = 24 байта

3 байта сохранены благодаря Value Ink!

1 байт сохранен благодаря Даньеро

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.

Р, 44 43 байта

Вычеркнуто 44 все еще регулярно 44; (

Этот ответ уже дает достойное решение, но мы можем сэкономить еще несколько байтов.

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

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

Кроме того, пока этот комментарий все еще получает зеленый свет от OP, мы можем сделать его еще короче, но я не думаю, что это в духе задачи. Время ожидания 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)

Использует небольшую задержку +=операции и выполняет ее xраз. xудваивается, добавляя один к себе столько раз, сколько значениеx .

Начинается с 6^6(46656), чтобы придерживаться максимальной 5% вариации задержки.

Perl 6 , 39 байт

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

Попробуйте ( printпереопределено, чтобы добавить информацию о времени)

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

^{Вычеркнуто 44 все еще 44}

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

Не любите боевые бомбы?

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

Технически правильно, но не правильно:

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

-3 байта благодаря Cyoce, -2 благодаря Business Cat, -2 благодаря Neil

Common Lisp, 49 байт

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

Первая задержка должна быть 1второй.

Pyth, 7 байт

#|.d~yT

Объяснение:

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

TI-BASIC, 36 байтов

Начальный период ожидания составляет 1 секунду.

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

Ракетка, 51 байт

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

пример

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