ความท้าทายของคุณคือการพิมพ์อินพุตรอเวลาใด ๆ พิมพ์อินพุตรอสองครั้งที่คุณรอครั้งแรกพิมพ์อินพุตอีกครั้งและอื่น ๆ ความล่าช้าเริ่มต้นจะต้องน้อยกว่า 1 ชั่วโมงและคุณจะต้องมีความแม่นยำ +/- 5% ในความล่าช้าครั้งต่อไป นอกจากนั้นไม่มีข้อ จำกัด เกี่ยวกับเวลาหน่วง

ตัวอย่าง:

อินพุต: hi.

เอาต์พุต: hi(หยุดชั่วคราว 1 มิลลิวินาที) hi(หยุดชั่วคราว 2 มิลลิวินาที) (หยุดชั่วคราว 4 มิลลิวินาที) hi(หยุดชั่วคราวhi8 มิลลิวินาที) (หยุดชั่วคราว 16 มิลลิวินาทีhi) เป็นต้น

อนุญาตด้วย:

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)

การเปลี่ยนแปลง:

• lambda แบบเรียกซ้ำเปลี่ยนเป็นฟังก์ชันแบบเรียกซ้ำ (-4 ไบต์)

MATL , 8 ไบต์

`GD@WY.T

การหยุดครั้งแรกคือ 2 วินาที

ลองมันที่MATL ออนไลน์ หรือดูเวอร์ชันที่แก้ไขซึ่งแสดงเวลาที่ผ่านไปนับตั้งแต่โปรแกรมเริ่มทำงาน (หากล่ามไม่ทำงานโปรดรีเฟรชหน้านี้แล้วลองอีกครั้ง)

หรือดู 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 Bytes

โซลูชันดั้งเดิม 34 ไบต์:

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

กำจัด 2 ไบต์ด้วยสิ่งที่ต้องทำ

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

กำจัด Byte อีกหนึ่งตัวด้วยโซลูชันแบบเรียกซ้ำของ @ MartinEnder

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

@ngenisis ใช้การเรียกซ้ำ REPRepeat เพื่อลบล้างไบต์อื่น

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

คู่, 42 41 ไบต์

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

ที่บันทึกไว้หนึ่งขอบคุณไบต์ rahnema1, จะสั้นกว่าp*=2p=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

ลองออนไลน์!

Ruby, 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เป็นค่าเริ่มต้นกำหนดให้เป็นที่ประเมินTRUE1

ตราบใดที่ความคิดเห็นนี้ยังคงได้รับไฟเขียวจาก 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
      . . .
      . . .

Bash , 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 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

Similar to @L3viathan's golf, but uses while loop

CJam, 26 bytes

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

Doesn't work properly on TIO.

The first pause is 20 milliseconds.

Explanation

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 as a function

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

Takes input as a command line argument.

Batch, 62 bytes

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

This turned out to be a byte shorter than explicitly doubling t in a loop:

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

Reticular, 12 bytes

1idp~dw2*~2j

Try it online!

Explanation

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 bytes

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

Saved one byte thanks to @raznagul.

Python 2, 54 bytes

Uses a lengthy calculation instead of timing libraries.

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

PowerShell, 35 33 30 29 Bytes

With a helpful hint from whatever and Joey

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

Explanation

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

Executed with:

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

Python 3, 49 bytes

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