Tạo một thanh Tải kiểu Windows theo các hướng dẫn sau.

^{(lưu ý rằng điều này khác với Đang tải ... Mãi mãi )}

Đầu ra của bạn nên bắt đầu bằng [.... ].

Mỗi đánh dấu, bạn nên đợi 100 ms, sau đó di chuyển từng dấu chấm theo một ký tự bên phải. nếu dấu chấm nằm trên ký tự thứ mười, di chuyển nó đến ký tự đầu tiên. Lưu ý rằng bạn nên xóa màn hình trước khi xuất ra một lần nữa. Đầu ra được sắp xếp như sau:

[....      ]
[ ....     ]
[  ....    ]
[   ....   ]
[    ....  ]
[     .... ]
[      ....]
[.      ...]
[..      ..]
[...      .]

..Sau đó vòng lặp mãi mãi.

Quy tắc

• Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất thắng ^{tôi nghi ngờ tôi thậm chí sẽ chấp nhận câu trả lời thắng}
• Vui lòng cung cấp tệp gif của thanh tải đang hoạt động nếu có thể.

V, 17 16 15 byte

i[´.¶ ]<esc>ògó$X|p

<esc>là 0x1b.

Và hexdump:

00000000: 695b b42e b620 5d1b f267 f324 587c 70    i[... ]..g.$X|p

Giải trình

i                       " Insert
[                       " a [
´.                      " 4 .s
¶<space>                " 6 spaces
]<esc>                  " and a ]. Then return to normal mode
ò                       " Recursively do:
 gó                     "  Sleep for 100 milliseconds
 $                      "  Go to the ]
 X                      "  Delete the character to the left of the ]
 |                      "  Go to the [
 p                      "  And paste the deleted character right after the [
                        " Implicit ending ò

CSS / HTML, 202 190 186 + 45 = 247 235 231 byte

pre{position:relative}x{position:absolute;display:inline-block;width:10ch;height:1em;overflow:hidden}x>x{width:14ch;left:-10ch;animation:1s steps(10,end)infinite l}@keyframes l{to{left:0

<pre>[<x><x>....      ....</x></x>          ]

Chỉnh sửa: Đã lưu 12 14 byte nhờ @Luke.

PowerShell, 67 66 byte

for($s='.'*4+' '*6;$s=-join($s[,9+0..8])){cls;"[$s]";sleep -m 100}

-1 bằng cách sử dụng hàm tạo rút gọn nhờ Beatcracker

thay thế chuỗi bằng một bản sao của chuỗi nơi char cuối cùng được đặt trước các ký tự còn lại, xóa màn hình, in nó và sau đó ngủ trong 100 ms.

đã lưu rất nhiều byte bằng cách sử dụng hàm tạo vòng lặp for thay vì bọc logic bên trong chuỗi.

Python 3 , 99 93 85 83 + 2 ( cờ -u ) byte

^{-12 byte nhờ vào các
byte -2 byte hoàn toàn nhờ vào con người}

import time
s=4*'.'+6*' '
while 1:print(end='\r[%s]'%s);time.sleep(.1);s=s[9]+s[:9]

Hãy thử trực tuyến!

Lô Windows, 201 181 byte

Hóa ra sử dụng phương thức trường học cũ thực sự tiết kiệm byte!

@for %%p in ("....      " " ....     " "  ....    " "   ....   " "    ....  " "     .... " "      ...." ".      ..." "..      .." "...      .")do @echo [%%~p]&timeout 0 >nul&cls
@%0

Chú thích:

get-screenrecorder.level
- low grade

get-gpu.level
- horrible

if get-screenrecorder.level == low grade || get-gpu.level == horrible {
     say("GIF may not be accurate");
}

Xin lưu ý rằng trình ghi GIF của tôi đã bỏ qua một vài khung hình, làm cho thanh tải nhảy lên :(

Toán học, 67 77 byte

+10 Byte khi tôi quên dấu ngoặc vuông.

Animate["["<>"....      "~StringRotateRight~n<>"]",{n,1,10,1},RefreshRate->10]

C (gcc) , 126 125 124 123 122 121 119 118 117 114 115 byte

Cái này sử dụng bitmask để theo dõi vị trí của các chấm.

Tôi đã phải thêm một byte khác vì tôi chỉ xuất ra 5 khoảng trắng trước đó.

m=30;f(i){usleep(3<<15);system("clear");for(i=1;i<1920;i*=2)putchar(i^1?i&m?46:32:91);m+=m&512?m+1:m;f(puts("]"));}

Hãy thử trực tuyến!

Javascript (ES6), 86 byte

setInterval('with(console)clear(),log(`[${x=x[9]+x.slice(0,9)}]`)',100,x='...      .')

JavaScript (ES6) + HTML, 104 85 83 byte

f=(s="....      ")=>setTimeout(f,100,s[9]+s.slice(0,9),o.value=`[${s}]`)
<input id=o

• Đã lưu 2 byte nhờ đề xuất của Johan rằng tôi sử dụng inputthay vì a pre.

Thử nó

Đòi hỏi một kết thúc >trên inputthẻ để chức năng trong một số câu liên quan.

(f=(s="....      ")=>setTimeout(f,100,s[9]+s.slice(0,9),o.value=`[${s}]`))()

<input id=o>

Noodel , 16 15 14 13 byte

[CỤ'Ṁ ~ ððĐ] t

] ʠ [Đ. × 4¤ × 6⁺ḷẸḍt

] .ȧ [ėĐḷẸḍt

Thử nó:)

Làm thế nào nó hoạt động

]ʠ⁶¤⁴.ȧ[ėÐḷẸḍt

]ʠ⁶¤⁴.ȧ[ėÐ     # Set up for the animation.
]              # Pushes the literal string "]" onto the stack.
 ʠ             # Move the top of the stack down by one such that the "]" will remain on top.
  ⁶¤           # Pushes the string "¤" six times onto the stack where "¤" represents a space.
    ⁴.         # Pushes the string "." four times onto the stack.
      ȧ        # Take everything on the stack and create an array.
       [       # Pushes on the string literal "[".
        ė      # Take what is on the top of the stack and place it at the bottom (moves the "[" to the bottom).
         Ð     # Pushes the stack to the screen which in Noodel means by reference.

          ḷẸḍt # The main animation loop.
          ḷ    # Loop endlessly the following code.
           Ẹ   # Take the last character of the array and move it to the front.
            ḍt # Delay for a tenth of a second.
               # Implicit end of loop.

Cập nhật

[Ð]ıʠ⁶¤⁴.ḷėḍt

Thử nó:)

Không biết tại sao điều này làm tôi mất một thời gian để nghĩ về. Dù sao, điều này đặt nó ở 13 byte .

[Ð]ıʠ⁶¤⁴.ḷėḍt

[Ð]ıʠ⁶¤⁴.     # Sets up the animation.
[             # Push on the character "["
 Ð            # Push the stack as an array (which is by reference) to the screen.
  ]           # Push on the character "]"
   ı          # Jump into a new stack placing the "[" on top.
    ʠ         # Move the top of the stack down one.
     ⁶¤       # Push on six spaces.
       ⁴.     # Push on four dots.

         ḷėḍt # The main loop that does the animation.
         ḷ    # Loop the following code endlessly.
          ė   # Take the top of the stack and put it at the bottom.
           ḍt # Delay for a tenth of a second.

<div id="noodel" code="[Ð]ıʠ⁶¤⁴.ḷėḍt" input="" cols="12" rows="2"></div>

<script src="https://tkellehe.github.io/noodel/noodel-latest.js"></script>
<script src="https://tkellehe.github.io/noodel/ppcg.min.js"></script>

PHP, 67 byte

for($s="...      .";$s=substr($s.$s,9,10);usleep(1e5))echo"\r[$s]";

miễn bình luận

C #, 162 157 byte

()=>{for(string o="[....      ]";;){o=o.Insert(1,o[10]+"").Remove(11,1);System.Console.Write(o);System.Threading.Thread.Sleep(100);System.Console.Clear();}};

hoặc như toàn bộ chương trình cho 177 byte

namespace System{class P{static void Main(){for(string o="[....      ]";;){o=o.Insert(1,o[10]+"").Remove(11,1);Console.Write(o);Threading.Thread.Sleep(100);Console.Clear();}}}}

Bash tinh khiết, 68

s=${1:-....      }
printf "[$s]\r"
sleep .1
exec $0 "${s: -1}${s%?}"

MATL , 24 byte

`1&Xx'['897B@YS46*93hhDT

Hãy thử nó tại MATL Online! Hoặc xem ảnh gif từ trình biên dịch ngoại tuyến:

Giải trình

`        % Do...while
  1&Xx   %   Pause for 0.1 s and clear screen
  '['    %   Push this character
  897B   %   Push [1 1 1 0 0 0 0 0 0 1]
  @      %   Push current iteration index, 1-based
  YS     %   Circularly shift the array by that amount
  46*    %   Multiply by 46 (code point of '.')
  93     %   Push 93 (code point of ']')
  hh     %   Concatenate horizontally twice. Numbers are interpreted as chars
         %   with the corresponding code points
  D      %   Display
  T      %   Push true. Used as loop condition. Results in an infinite loop
         % End (implicit)

Thạch , 28 27 byte

ṙ©-j@⁾[]ṭ”ÆȮœS.1®ß
897ṃ⁾. Ç

Làm sao?

ṙ©-j@⁾[]ṭ”ÆȮœS.1®ß - Link 1, the infinite loop: list of characters s
ṙ                  - rotate s left by:
  -                -   -1 (e.g. "...      ." -> "....      ")
 ©                 -   copy to the register and yield
     ⁾[]           - literal ['[',']']
   j@              - join with reversed @rguments
         Ӯ        - literal '\r'
        ṭ          - tack (append the display text to the '\r')
           Ȯ       - print with no newline ending
              .1   - literal 0.1
            œS     - sleep for 0.1 seconds then yield the printed text (unused)
                ®  - recall the value from the register
                 ß - call this link (1) again with the same arity

897ṃ⁾. Ç - Main link: no arguments
897      - literal 897
    ⁾.   - literal ['.',' ']
   ṃ     - base decompression: convert 897 to base ['.',' '] = "...      ."

C (gcc), 202 198 196 189 96 99 88 86 79 77 75 74 73 byte

Đã lưu 7 8 byte nhờ Digital Trauma .

f(i){usleep(dprintf(2,"\r[%-10.10s]","....      ...."+i%10)<<13);f(i+9);}

Hoặc, nếu hệ thống của bạn stdout bạn không cần phải xóa sau mỗi lần ghi mà không có dòng mới:

C (gcc), 70 byte

f(i){usleep(printf("\r[%-10.10s]","....      ...."+i%10)<<13);f(i+9);}

Làm thế nào nó hoạt động

• usleep( ngủ cho giá trị trả lại tiếp theo trong micro giây.
• dprintf(2,in ra mô tả tập tin 2, hoặc stderr. Điều này là cần thiết bởi vì trong khi stdoutđược đệm dòng (có nghĩa là đầu ra sẽ không hiển thị cho đến khi nó in một dòng mới), stderrlà bộ đệm ký tự (tất cả đầu ra được hiển thị ngay lập tức).
• "\r in một trở lại vận chuyển (xóa dòng hiện tại).
• [%-10.10s]"là công printfcụ xác định định dạng cho một chuỗi có độ dài chính xác 10 (bất kể chuỗi nào được cung cấp, đầu ra sẽ luôn là một chuỗi có độ dài 10), được đệm bằng khoảng trắng ở bên phải nếu cần. Điều này sẽ được kèm theo dấu ngoặc.
• ".... ...." là thanh tải.
• +i%10bù đắp thanh tải theo chỉ số hiện tại modulo 10. Ví dụ: if i == 3, i % 10bằng 3. Bù trừ thanh tải bằng 3 làm cho nó bằng ". ....".
• Khi chuỗi offset-ed được chuyển đến bộ printfxác định định dạng, nó sẽ giới hạn ở độ dài 10 nếu cần thiết và thêm khoảng trắng vào cuối nếu cần. Do đó, thanh tải sẽ luôn ở giữa [.... ]và [. ...].

Java 7, 139 124 byte

String s="....      ";void c()throws Exception{System.out.print("["+s+"]\r");s=(s+s).substring(9,19);Thread.sleep(100);c();}

• Đề cập đến \rlời cảm ơn đến @Phoenix .

Quay trở lại vận chuyển \rđặt lại 'con trỏ' trở lại đầu dòng, sau đó có thể được ghi đè. Thật không may, các trình biên dịch trực tuyến cũng như IDE Eclipse không hỗ trợ điều này, vì vậy tôi đã thêm một gif ở cuối câu trả lời này để hiển thị nó từ Windows Command Prompt.

Hãy thử nó ở đây.(Được sửa đổi một chút để bạn không phải chờ hết thời gian chờ trước khi xem kết quả. Ngoài ra, TIO không hỗ trợ trả lại vận chuyển, vì vậy mọi dòng được in mà không ghi đè lên dòng trước đó.)

Giải trình:

String s="....      ";            // Starting String "....      " on class level
void c()                          // Method without parameter nor return-type
 throws Exception{                // throws-clause/try-catch is mandatory for Thread.sleep
  System.out.print("["+s+"]\r");  //  Print the String between square-brackets,
                                  //  and reset the 'cursor' to the start of the line
  s=(s+s).substring(9,19);        //  Set `s` to the next String in line
  Thread.sleep(100);              //  Wait 100 ms
  c();                            //  Recursive call to same method
}                                 // End of method

Gif đầu ra:

Python 2 , 81 78 byte

-1 byte (nhận thấy tôi đã bỏ lỡ việc sử dụng %skhi Rod gửi phiên bản Python 3 gần như giống hệt nhau cùng lúc!)
-2 byte (sử dụng ý tưởng hoàn toàn của con người - thay thế s[-1]+s[:-1]bằng s[9]+s[:9])

import time
s='.'*4+' '*6
while s:print'\r[%s]'%s,;s=s[9]+s[:9];time.sleep(.1)

Đi , 150 145 132 129 124 byte

-5 byte nhờ sudee.

Tôi cảm thấy như mình không thấy đủ Đi đến đây ... Nhưng câu trả lời của tôi là đứng đầu C vì vậy ... xin vui lòng chơi golf?

package main
import(."fmt"
."time")
func main(){s:="....      ";for{Print("\r["+s+"]");Sleep(Duration(1e8));s=(s+s)[9:19];}}

Hãy thử trực tuyến!

VBA 32-bit, _{159 157 143 141} 134 byte

VBA không có chức năng tích hợp cho phép chờ trong khoảng thời gian dưới một giây, vì vậy chúng tôi phải khai báo một chức năng từ kernel32.dll

Tuyên bố khai báo 32 bit (41 byte)

Declare Sub Sleep Lib"kernel32"(ByVal M&)

Tuyên bố khai báo 64 bit (49 byte)

Declare PtrSafe Sub Sleep Lib"kernel32"(ByVal M&)

Ngoài ra, chúng tôi phải bao gồm một DoEventscờ để tránh vòng lặp vô hạn làm cho Excel xuất hiện dưới dạng không phản hồi. Hàm cuối cùng là một chương trình con không có đầu vào và đầu ra cho cửa sổ ngay lập tức VBE.

Chức năng cửa sổ ngay lập tức, 93 byte

Chức năng cửa sổ ngay lập tức VBE ẩn danh không có đầu vào và đầu ra cho phạm vi A1trên ActiveSheet

s="...      ....      .":Do:DoEvents:Sleep 100:[A1]="["&Mid(s,10-i,10)&"]":i=(i+1)Mod 10:Loop

Phiên bản cũ, 109 byte

Chức năng cửa sổ ngay lập tức không có đầu vào và đầu ra cho cửa sổ ngay lập tức VBE.

s="...      ....      .":i=0:Do:DoEvents:Sleep 100:Debug.?"["&Mid(s,10-i,10)&"]":i=(i+1) Mod 10:Loop

Ung dung và định dạng

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal M&)
Sub a()
    Dim i As Integer, s As String
    s = "...      ....      ."
    i = 0
    Do
        Debug.Print [REPT(CHAR(10),99]; "["; Mid(s, 10 - i, 10); "]"
        DoEvents
        Sleep 100
        i = (i + 1) Mod 10
    Loop
End Sub

-2 byte để xóa khoảng trắng

-30 byte để đếm chính xác

-14 Byte để chuyển đổi sang chức năng cửa sổ ngay lập tức

Đầu ra

Gif dưới đây sử dụng phiên bản chương trình con đầy đủ vì tôi quá lười để điều chỉnh lại cái này với chức năng cửa sổ ngay lập tức.

05AB1E , 23 byte

'.4×ð6×J[D…[ÿ],Á¶т×,т.W

Hãy thử trực tuyến!

Giải trình

'.4×ð6×J                  # push the string "....      "
        [                 # forever do:
         D                # duplicate
          …[ÿ],           # interpolate the copy between brackets and print
               Á          # rotate the remaining copy right
                ¶т×,      # print 100 newlines
                    т.W   # wait 100ms

Hàng loạt, 99 98 byte

Đã lưu 1 byte nhờ SteveFest!

(Tôi có thể xóa \rmã, nhưng theo tinh thần chơi golf hàng loạt, tôi sẽ không.)

@SET s=....      
:g
@CLS
@ECHO [%s%]
@SET s=%s:~-1%%s:~,-1%
@ping 0 -n 1 -w 100>nul
@GOTO g

Có bốn khoảng trống sau dòng đầu tiên.

Logic chính là sửa đổi chuỗi. %s:~-1%là nhân vật cuối cùng của %s%và %s:~0,-1%là tất cả, nhưng là nhân vật cuối cùng của %s%. Vì vậy, chúng tôi đang di chuyển ký tự cuối cùng ra phía trước chuỗi, làm xoay chuỗi.

Ruby, 57 56 byte

s=?.*4+' '*6;loop{$><<"[%s]\r"%s=s[-1]+s.chop;sleep 0.1}

Bị ảnh hưởng nặng nề bởi các câu trả lời khác ở đây.

Đã lưu một byte nhờ @manatwork. Ngoài ra rõ ràng tôi gặp khó khăn khi đếm các ký tự - Tôi sử dụng ST3 và rõ ràng nó sẽ bao gồm các dòng mới trong số lượng ký tự trong dòng nếu bạn không chú ý.

Perl, 69 byte

-3 byte nhờ @Dom Hastings .

$_="....".$"x6;{print"\ec[$_]
";select$a,$a,!s/(.*)(.)/$2$1/,.1;redo}

Đó select undef,undef,undef,.1là cách ngắn nhất để ngủ ít hơn 1 giây trong Perl và phải mất rất nhiều byte ...

Hơi dài hơn (79 byte), có:

@F=((".")x4,($")x6);{print"\ec[",@F,"]\n";@F=@F[9,0..8];select$a,$a,$a,.1;redo}

Bash, 93 90 96 byte

s="...      ....      ."
for((;;)){ for i in {0..9};do printf "\r[${s:10-i:10}]";sleep .1;done;}

xem tại đây

không thể lồng {} vào cú pháp

Groovy, 72 byte

s="*"*4+" "*6
for(;;){print("["+s+"]"+"\n"*20);s=s[9]+s[0..8];sleep 100}

Giải thích

s="*"*4+" "*6 //creates the string "****      "
for(;;){ //classic infinite loop
    print("["+s+"]"+"\n"*20) //prints the string with [ at the beginning and ] at the end. After that some newlines
    s=s[9]+s[0..8] //appends the final char of the string to beginning, creating a cycling illusion
    sleep 100 //100 ms delay
}

Haskell (Windows), 159 byte

import System.Process
import Control.Concurrent
main=mapM id[do system"cls";putStrLn('[':["....      "!!mod(i-n)10|i<-[0..9]]++"]");threadDelay(10^5)|n<-[0..]]

Giải trình

mapM id             sequentially perform each IO action in the following list
[                   start a list comprehension where each element is...
  do                  an IO operation where
    system "cls";       we clear the screen by calling the windows builtin "cls"
    putStrLn(           then display the string...
      '[':                with '[' appended to
      [                   a list comprehension where each character is...
        "....      "!!       the character in literal string "....      " at the index
        mod(i-n)10          (i - n) % 10
      |i<-[0..9]]         where i goes from 0 to 9
      ++"]"             and that ends with ']'
    );
    threadDelay(10^5)   then sleep for 100,000 microseconds (100 ms)
|n<-[0..]]          where n starts at 0 and increments without bound

Độ tinh khiết của Haskell khiến việc tạo ra mô hình chấm đạp xe hơi phức tạp. Cuối cùng tôi đã tạo ra một sự hiểu biết danh sách lồng nhau tạo ra một danh sách các chuỗi vô hạn theo thứ tự chúng sẽ được xuất ra, sau đó quay lại thêm các hoạt động IO thích hợp.

Ruby, 61 byte

Nếu thông số kỹ thuật là để các chấm cuộn sang trái thay vì phải, nó sẽ tiết kiệm được 1 byte vì rotate!không có đối số nào dịch chuyển mảng một lần sang trái.

s=[?.]*4+[' ']*6
loop{print ?[,*s,"]\r";s.rotate!9;sleep 0.1}

GNU sed (có phần mở rộng exec), 64

Điểm bao gồm +1 cho -rcờ.

s/^/[....      ]/
:
esleep .1
s/[^. ]*(.+)(.)].*/\c[c[\2\1]/p
b

c, 100

char *s="....      ....     ";main(i){for(i=0;;i=(i+9)%10)dprintf(2,"[%.10s]\r",s+i),usleep(3<<15);}