Thử thách của bạn là tạo ra một màn hình tải vô hạn, trông như thế này:

Hoặc, để cụ thể hơn:

• Không có đầu vào.
• Đầu ra Loading..., với một không gian dấu, nhưng không có dòng mới.
• Chu kỳ vô hạn thông qua các ký tự |, /, -và \: mỗi 0,25 giây, ghi đè lên người cuối cùng với sự tiếp theo trong chuỗi. Bạn có thể ghi đè chỉ ký tự cuối cùng, hoặc xóa và viết lại toàn bộ dòng, miễn Loading...là không thay đổi.

Quy tắc

• Văn bản đầu ra phải trông chính xác như được chỉ định. Trailing newlines / space được chấp nhận.
• Bạn không nên đợi 0,25 giây trước khi hiển thị đầu ra - khung đầu tiên sẽ được in ngay khi chương trình được chạy.
• Chương trình của bạn sẽ có thể chạy vô thời hạn. Ví dụ: nếu bạn sử dụng bộ đếm cho khung, bộ đếm sẽ không bao giờ gây ra lỗi bằng cách vượt quá mức tối đa trong ngôn ngữ của bạn.
• Mặc dù thời gian chờ giữa mỗi "khung" phải là 0,25 giây, rõ ràng điều này sẽ không bao giờ chính xác - tỷ lệ lỗi 10% hoặc hơn được cho phép.
• Bạn có thể gửi một chức năng, nhưng nó phải in ra stdout.
• Bạn có thể gửi câu trả lời trong môi trường không có bàn điều khiển (nhưng vẫn dựa trên văn bản), miễn là nó có khả năng tạo ra hình ảnh động tải.
• Đây là môn đánh gôn , vì vậy giải pháp ngắn nhất (tính bằng byte) sẽ thắng. Tiêu chuẩn mã lỗ golf áp dụng.
• Nếu có thể, vui lòng cung cấp gif của màn hình tải của bạn trong thực tế.

Thí dụ

Đây là mã C ++ mà tôi đã sử dụng để tạo ví dụ (ungolfed):

#include <iostream>
#include <string>
#include <thread>

using namespace std;

int main() {
    string cycle = "|/-\\";
    int i = 0;

    cout << "Loading... ";

    while (true) {
        // Print current character
        cout << cycle[i];

        // Sleep for 0.25 seconds
        this_thread::sleep_for(chrono::milliseconds(250));

        // Delete last character, then increase counter.
        cout << "\b";
        i = ++i % 4;
    }
}

Có thể người chơi golf tốt nhất giành chiến thắng!

HTML / CSS, 183 180 163 161 160 147 143 byte

a{display:inline-flex;overflow:hidden;width:1ch}c{animation:c 1s steps(4)infinite}@keyframes c{to{margin:0-4ch

<pre>Loading... <a><c>|/-\</pre>

Chỉnh sửa: Đã lưu 3 byte nhờ @betseg. Đã lưu 17 byte nhờ @manatwork. Đã lưu 1 byte nhờ @Daniel. Đã lưu 13 byte nhờ @Ismael Miguel. Đã lưu 4 byte nhờ @Fez Vrasta.

Vim, 43 , 41 byte

qqSLoading... |<esc>:sl250m
r/@:r-@:r\@:@qq@q

Hai byte được lưu nhờ @Udioica!

Đây là một hình ảnh động (hơi lỗi thời) của nó xảy ra trong thời gian thực!

Và đây là một lời giải thích:

qq                              " Start recording into register 'q'
  SLoading... |<esc>            " Replace all of the text in the buffer with 'Loading... |'
                    :sl250m     " Sleep for 250 ms
r/                              " Replace the bar with a slash
  @:                            " Re-run the last ex command (sleeping)
    r-                          " Replace the slash with a dash
      @:                        " Re-run the last ex command (sleeping)
        r\                      " Replace the dash with a backslash
          @:                    " Re-run the last ex command (sleeping)
            @q                  " Run macro 'q' (the one we're recording)
              q                 " Stop recording
               @q               " Call macro 'q', which will run forever because it's recursive

HTML + JS (ES6), 20 + 51 50 = 70 byte

setInterval(_=>a.innerHTML='|/-\\'[i=-~i%4],i=250)

Loading... <a id=a>-

-1 byte (Zachary T)

Kiểm tra câu trả lời HTML / CSS 132 byte của tôi là tốt.

Batch Windows, 121 114 84 80 79 78 byte

Chỉ cần ném nó ra cho vui.

for %%b in (/ - \ ^|)do (cls
@echo Loading... %%b
ping 1.1 -n 1 -w 250>nul)
%0

Tôi không thể gán pipe ( |) vào mảng, vì vậy tôi phải tự thêm nó bằng một nhiệm vụ khác.Việc trì hoãn được thực hiện với PING, điều này có thể không chính xác .

Đầu ra:

Biên tập:

• Cảm ơn Roman Gräf vì đã tiết kiệm 7 byte!
• Cảm ơn Neil vì đã tiết kiệm 30 byte! Tôi cũng đã đọc thêm một chút để lưu byte trên dòng mới.
• Cảm ơn phyrfox đã lưu 4 byte!
• Cảm ơn YourDeathIsComing đã lưu 2 byte!

Nút, 72 70 byte

f=i=>console.log('\x1BcLoading... '+'|/-\\'[setTimeout(f,250,i=-~i%4),i])

Thay thế \x1Bbằng ký tự thoát theo nghĩa đen để có được số byte chính xác. Gọi f()để bắt đầu hoạt hình. Đây là giao diện của trình giả lập thiết bị đầu cuối ConEmu trên máy tính của tôi:

Kotlin, 67 66 byte

while(1>0)"|/-\\".map{print("\rLoading... $it");Thread.sleep(250)}

Khá tự giải thích, sử dụng \rđể xóa dòng và tận dụng phép nội suy chuỗi tuyệt vời của Kotlin.

EDIT: Đã lưu 1 byte nhờ @ mEQ5aNLrK3lqs3kfSa5HbvsTwe0nIu bằng cách thay đổi while(true)thànhwhile(1>0)

Vim, 35 byte

iLoading... \-/|<Esc>qqdb:sl250m<CR>p@qq@q

Phiên bản nhàm chán. Đây là một giải pháp không tuân thủ tốt hơn:

Vim (ngủ 1 giây), 27 byte

idbgsp@@<C-U>Loading... \-/|<Esc>@.

Việc sử dụng gskhông chỉ ngắn hơn nhiều mà còn không phải nhấn Enter. Điều đó có nghĩa là macro phù hợp với dòng và tôi có thể lưu byte bằng cách chuyển sang @.. (Vì không có gì sau khi cuộc gọi đệ quy có thể chạy, tôi có thể nhập bất cứ thứ gì tôi muốn.)

Bình thường, 31 byte

Wm,p+"\rLoading... "d.d.25"|/-\

Phiên dịch tại đây .

Giải trình

Wm,p+"\rLoading... "d.d.25"|/-\
    +"\rLoading... "d              Concatenate the string "\rLoading... " and the variable d
   p                               Print the result without a newline
                     .d.25         Sleep for 0.25 seconds
  ,                                Form a two-element list with the results of the two statements above. This is only needed to execute both statements in a single lambda function.
 m                        "|/-\    Map the above statement over the characters in the string "|/-\", setting the variable d to the character for each iteration
W                                  While the result of the map statement is true, do nothing

Powershell (v4), 57 56 54 53 58 57 byte

Trở lại với Bytecount tôi bắt đầu với!

for(){cls;"Loading... "+"|/-\"[($a=++$a%4)];sleep -m 250}

CLI trong powershell sẽ xuất hiện một chút trên một số máy tính, vì vậy nó trông không hoàn hảo, nhưng nó tốt như tôi có thể có được.

Đã chuyển $ a ++ vào vòng lặp for để lưu một byte, (không ; )

Sau đó chuyển nó vào bộ chỉ mục mảng, để lưu thêm 2 byte, nhờ Roman đã chỉ ra điều đó.

Đồng thời lưu thêm 1 byte ( ;) bằng cách di chuyển màn hình Clear (cls ) vào vòng lặp for ..

Vấn đề và cách khắc phục được TimmyD chỉ ra cho khía cạnh vô hạn của câu hỏi, chỉ cần +5 byte, được đổi $a++%4thành($a=++$a%4) vì vậy nó sẽ không bao giờ đi trên 3.

Đã lưu một byte khác bằng cách để trống vòng lặp hoàn toàn, nhờ vào 'bất cứ điều gì' để chỉ ra rằng điều này thực sự có thể có trong Powershell Phiên bản 4!

Gif cập nhật mới cho phiên bản (cuối cùng?) Của câu trả lời này.

for(;;cls){"Loading... "+"|/-\"[($a=++$a%4)];sleep -m 250}

for(;;cls){"Loading... "+"|/-\"[$a++%4];sleep -m 250}

for(;;){"Loading... "+"|/-\"[$a++%4];sleep -m 250;cls}

for(;;$a++){"Loading... "+"|/-\"[$a%4];sleep -m 250;cls}

for(;;){$a++;"Loading... "+"|/-\"[$a%4];sleep -m 250;cls}

Pyth - 36 35 byte

#+"\033cLoading... "@"\|/-"~hZ.d.25

Không làm việc trực tuyến, rõ ràng.

Matlab, 78 75 byte

a='\|/-';while 1;clc;disp(['Loading... ',a(1)]);a=a([2:4,1]);pause(1/4);end

HTML / CSS, 23 + 109 = 132 byte

Cải thiện theo câu trả lời của Neil .

pre{display:flex}a{overflow:hidden;animation:a 1s steps(4)infinite;width:1ch}@keyframes a{to{text-indent:-4ch

<pre>Loading... <a>|/-\

Toán học, 74 67 byte

ListAnimate["Loading... "<>#&/@{"|","/","-","\\"},AnimationRate->4]

Giảm 7 byte nhờ @dahnoak

C #, 170 133 byte

void X(){Console.Write("Loading...  ");for(;;){foreach(var c in "|/-\\"){Console.Write("\b"+c);System.Threading.Thread.Sleep(250);}}}

Xin chân thành cảm ơn Roman Gräf và raznagul, người đã cứu tôi 37 byte. (Đặc biệt là raznagul, người chỉ ra rằng giải pháp ban đầu của tôi dù sao cũng không hợp lệ. Tôi đã bỏ lỡ điều gì đó ở đó, nhưng giờ nó đã được sửa và đáp ứng yêu cầu :)

khá giống với câu trả lời C # hiện có của Pete Arden nhưng với một số cải tiến

ví dụ: "for (;;)" thay vì "while (true)", char thay vì chuỗi

Tôi đã nhận xét đề xuất của tôi về câu trả lời của anh ấy nhưng tôi thực sự không có đủ danh tiếng để làm điều đó.

Ung dung:

static void X()
{
    Console.Write("Loading...  ");
    for (;;)
    {
        foreach (var c in "|/-\\")
        {
            Console.Write("\b" + c);
            System.Threading.Thread.Sleep(250);
        }
    }
}

Viết tắt 72, 73 byte

CHỈNH SỬA :

• Đã thêm phiên bản chỉ dành cho Gforth, 69 byte (Cảm ơn @ninjalj!)
• Đã thêm khoảng trắng bị thiếu sau khi "Đang tải ..." (Thx @Roman Gräf!), +1 byte
• Được cập nhật để khớp với các quy tắc chính xác hơn (trong cùng một số byte)

Chơi gôn

: L '| '/ '- '\ begin .\" \rLoading... " 3 roll dup emit 250 ms again ; L

Phiên bản Gforth

Phiên bản chỉ dành cho GNU Forth có thể được đưa xuống 69 byte như thế này:

'| '/ '- '\ [begin] .\" \rLoading... " 3 roll dup emit 250 ms [again]

Screencast

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

Python 2, 81 79 78 77 byte

import time
i=1
while 1:print'\rLoading...','\|/-'[i%4],;i+=1;time.sleep(.25)

Khá là một giải pháp đơn giản mà ngủ sử dụng time.

Tôi sử dụng \r(Trả về xe ngựa) để quay lại điểm bắt đầu của dòng và sau đó in thông báo ghi đè lên dòng.

Tôi bắt đầu với i=1để tránh hai lần thoát khỏi \(Nó '\|/-'thay vì '|/-\\').

Trong quá khứ, tôi đã từng -~icó nghĩa là i + 1để tránh dấu ngoặc đơn. (Cảm ơn @ Flp.Tkc về -2 byte này!) (Đó lài=(i+1)%4 so với i=-~i%4)

Bây giờ, tôi chỉ để cho bộ đếm tăng mãi mãi, vì về mặt kỹ thuật Python intkhông thể tràn. Cảm ơn @Zachary T đã chỉ ra và tiết kiệm một byte!
Nó chỉ dừng lại trên một máy vì máy hết bộ nhớ, nhưng phải mất 9,7 thế hệ với 4GB bộ nhớ cho máy đó int.

Cảm ơn @Kade cho byte -1 nơi print a,bin avà bkhông gian tách biệt, vì vậy tôi không cần không gian riêng của mình.

Đây là một gif của nó hoạt động trên Windows:

Tôi cũng đã thử nó trên máy ảo Linux. Tôi không thể kiểm tra nó trên máy Mac.

TOÁN , 36 byte

Xóa 1 byte bằng cách sử dụng ý tưởng của @ flawr về việc dịch chuyển chuỗi

'\-/|'`Xx1YS'Loading... 'y1)hD.25Y.T

Đây là bản ghi gif từ trình biên dịch ngoại tuyến:

Hoặc thử nó tại MATL Online!Nếu ban đầu nó không chạy, hãy làm mới trang và nhấn "Chạy" lại.

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

'\-/|'           % Push this string
`                % Do...while
  Xx             %   Clear screen
  1YS            %   Circularly shift thr string 1 step to the right
  'Loading... '  %   Push this string
  y              %   Duplicate the string of shifting symbols
  1)             %   Get the first character
  hD             %   Concatenate the two strings and display
  .25Y.          %   Pause for 0.25 seconds
  T              %   Push "true". This is used as loop condition, to it
                 %   generates an infinite loop
                 % End loop implicitly

APL Dyalog, 50 byte

Điều này chỉ hoạt động trong phiên bản Windows, vì nếu không ⎕SMcửa sổ sẽ không hiển thị trừ khi ⎕SRđược gọi.

{⎕SM←1 1,⍨⊂⊃⍵⌽'Loading... '∘,¨'|/-\'⋄∇4|⍵+⌈⎕DL÷4}1

Giải trình:

• {... }1: Chạy chức năng bắt đầu bằng⍵=1
• Loading... '∘,¨'|/-\': tạo ra bốn kết quả đầu ra có thể
• ⊂⊃⍵⌽: Xoay danh sách để đặt phần tử thứ nhất lên trước, lấy phần tử đầu tiên và đặt nó vào phần tử
• ⎕SM←1 1,⍨: đặt chuỗi ở góc trên bên trái của ⎕SMcửa sổ.
• ⎕DL÷4: đợi 1/4 giây
• 4|⍵+⌈: làm tròn giá trị kết quả (giây chờ đợi, vì vậy giá trị này luôn là 1), thêm nó vào ⍵ (tăng nó) và lấy mod-4 (để ngăn không cho nó tràn ra).
• ∇: chạy lại chức năng với cái mới ⍵.

C #, 187 byte

Chơi gôn

void L(){Console.Write("Loading...");Action<string>l=(a)=>{Console.SetCursorPosition(11,0);System.Threading.Thread.Sleep(250);Console.Write(a);};while(true){l("|");l("/");l("-");l("\\");}

Ung dung:

public void L()
{
  Console.Write("Loading...");
  Action<string> l = (a) =>
  {
    Console.SetCursorPosition(11, 0);
    System.Threading.Thread.Sleep(250);
    Console.Write(a);
  };
  while (true)
  {
    l("|");
    l("/");
    l("-");
    l("\\");
  }
}

Vẫn đang chờ nó tải ...

Chụp!, 8 khối

Đây là một trong những thuật toán đầu tiên tôi từng đánh đố trên Apple] [e

dạng lưới, không biên dịch, 40 byte

:i=@C"Loading... "o"|/-\\".iHo14%w.i1+4,

Tôi quên để cam kết một loạt các điều, bao gồm cả w. Ồ tốt

Giải trình

:i=@C"Loading... "o"|/-\\".iHo14%w.i1+4,
:i=                                       set `i` to the TOS
   @C                                     clear the screen
     "Loading... "o                       output that string
                   "|/-\\"                push that string
                          .i              get `i`
                            H             get the `i`th character of that string
                             o            and output it
                              14%         push 0.25 (1/4)
                                 w        wait that long
                                  .i      get `i`
                                    1+    increment
                                      4,  mod 4
                                          this wraps around the beginning of the program,
                                          setting i to the said value

Bash, 98 69 byte

while s='\|/-';do
printf "\rLoading... ${s:i=++i%4:1}"
sleep .25
done

Cảm ơn nhiều người vì đã chơi nhiều byte!

Perl 6 , 72 61 byte

Supply.interval(1/4).tap: {print "\rLoading... ",<| / - \ >[$/++];$/%=4}

loop {print "\rLoading... ",<| / - \ >[$/++];$/%=4;sleep 1/4}

> <> , 55 + 4 = 59 byte

"...gnidaoL"v
l?!voc1. ^:<>
<v<>'\|/-'>^v
^<^<<<8{<<^o<

Phải chạy qua -t .01 làm đối số bổ sung cho trình thông dịch, đó là +4 trong số byte.

Điều này làm là đặt bốn ký tự sẽ được in trên ngăn xếp, in cái trên cùng mà không loại bỏ nó và dịch chuyển ngăn xếp theo một vị trí. Sau đó, nó in\b (backspace, ký tự x08) và khởi động lại vòng lặp.

Thời gian đạt được bằng đối số được truyền cho trình thông dịch, buộc phải chờ 0,01 giây trước khi thực hiện mỗi lệnh. Có 23 hướng dẫn giữa đầu ra và đầu ra tiếp theo (hầu hết chúng chỉ đơn giản là di chuyển con trỏ lệnh sang ô tiếp theo), vì vậy, điều này sẽ đợi 0,23 giây cộng với thời gian cần thiết để thực hiện các hướng dẫn, phù hợp mà không gặp vấn đề gì trong 0,25 giây được yêu cầu với 10% lỗi.

Bạn có thể thử trực tuyến , nhưng trình thông dịch đó không nhận ra ký tự backspace, vì vậy đầu ra sẽ hơi lạ ở đó.

Tệp MS-DOS .COM, 56 byte

Ở đây nội dung tệp ở dạng thập lục phân:

b4 09 ba 2c 01 cd 21 b2 2f e8 11 00 b2 2d e8 0c
00 b2 5c e8 07 00 b2 7c e8 02 00 eb ea b4 02 cd
21 b2 08 cd 21 b9 05 00 f4 e2 fd c3 4c 6f 61 64
69 6e 67 2e 2e 2e 20 24

Mã trình biên dịch mã phù hợp trông như thế này:

    mov ah, 9      ; Print "Loading... "
    mov dx, text
    int 21h
theloop:
    mov dl, '/'    ; Call "chrout" for "/", "-", "\" and "|"
    call chrout
    mov dl, '-'
    call chrout
    mov dl, '\'
    call chrout
    mov dl, '|'
    call chrout
    jmp theloop    ; Endless loop

chrout:            ; Sub-Function "chrout"
    mov ah, 2      ; Output the character
    int 21h
    mov dl, 8      ; Output backspace
    int 21h
    mov cx,5       ; Call "HLT" 5 times
timeloop:
    hlt            ; Normally HLT will wait ~55 milliseconds
                   ; (Assuming no keyboard key is pressed)
    loop timeloop
    ret            ; End of the function

text:
    ASCII "Loading... ",'$'

NASM x86_64 - 349 283 byte

Điều này nên được chạy hệ thống linux 64 bit

được xây dựng bằng cách sử dụng:

nasm loading_golfed.asm -felf64 && ld loading_golfed.o

%use altreg
global _start
section .data
o:db"Loading...  "
s:db"|/-\\"
b:db`\bx`
q:dq 0,250000000
_start:mov r0,1
mov r7,1
mov r6,o
mov r2,12
syscall
mov r2,2
l:mov r7,1
mov al,[s+r8]
mov [b+1],al
mov r0,1
mov r6,b
syscall
mov r0,35
lea r7,[q]
mov r6,0
syscall
inc r8
and r8,3
jmp l

hoạt hình:

đã lưu 65 byte - cảm ơn người dùng254948

R, 85 89 byte

repeat{if(T>4)T=1;cat("\fLoading...",c("|","/","-","\\")[T],sep="");T=T+1;Sys.sleep(.25)}

Chỉnh sửa: Đã sửa câu trả lời sao cho Tkhông bị tràn bằng cách đặt lại bộ đếm nếu lớn hơn 4.

Khía cạnh thú vị chỉ về câu trả lời này là việc sử dụng R của TRUTHYBUILTIN T. Đây thực sự là một biến được xác định trước 1/TRUEcó nghĩa là chúng ta không phải khởi tạo bộ đếm nhưng có thể bắt đầu tăng T.

Haskell (GHC), 103 91 byte

import GHC.Conc
mapM((>>threadDelay 250000).putStr)$("\rLoading... "++).pure<$>cycle"|/-\\"

Cảm ơn @nimi đã lưu 12 byte!

C (trên các hệ thống giống UNIX) 88 byte

main(_){for(;;){_%=4;printf("\rLoading... %c","\\-/|"[_++]);fflush(0);usleep(250000);}}

Nó bắt đầu với ký tự sai, nhưng tôi nghĩ nó trông đẹp hơn. Bạn có thể dễ dàng thay đổi thứ tự ký tự bằng cách sửa đổi "\ - / |" chuỗi.

Perl, 71 63 61 byte

s//\rLoading... |/;select$\,$\,$\,y'-|\/'\/|-'/4while$|=print

Phiên bản trước:

$_="\rLoading... |";{$|=print;y#|/\-\\#/\-\\|#;select$\,$\,$\,.25;redo}

Thanx đến @primo trong 10 byte.