Tantangan Anda adalah membuat layar pemuatan tanpa batas, yang terlihat seperti ini:

Atau, untuk lebih spesifik:

• Jangan masukan.
• Output Loading..., dengan spasi tambahan, tetapi tanpa tambahan baris baru.
• Siklus jauh melalui karakter |, /, -dan \: setiap 0,25 detik, menimpa yang terakhir dengan berikutnya dalam urutan. Anda dapat menimpa hanya karakter terakhir, atau menghapus dan menulis ulang seluruh baris, selama Loading...tidak berubah.

Aturan

• Teks keluaran harus terlihat persis seperti yang ditentukan. Newline / spasi tambahan dapat diterima.
• Anda tidak harus menunggu 0,25 detik sebelum awalnya menampilkan output - frame pertama harus dicetak segera setelah program dijalankan.
• Program Anda harus dapat berjalan tanpa batas. Misalnya, jika Anda menggunakan penghitung untuk bingkai, penghitung tidak boleh menyebabkan kesalahan dengan melebihi maksimum dalam bahasa Anda.
• Meskipun masa tunggu antara setiap "frame" harus 0,25 detik, jelas ini tidak akan pernah tepat - margin kesalahan 10% atau lebih diizinkan.
• Anda dapat mengirimkan fungsi, tetapi harus dicetak ke stdout.
• Anda dapat mengirimkan jawaban di lingkungan non-konsol (tapi masih berbasis teks), selama itu mampu menghasilkan animasi pemuatan.
• Ini adalah kode-golf , sehingga solusi terpendek (dalam byte) menang. Lubang kode standar golf berlaku.
• Jika memungkinkan, berikan gif layar memuat Anda dalam tindakan.

Contoh

Berikut ini adalah kode C ++ yang saya gunakan untuk membuat contoh (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;
    }
}

Semoga pegolf terbaik menang!

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>

Sunting: Disimpan 3 byte berkat @betseg. Disimpan 17 byte berkat @manatwork. Disimpan 1 byte berkat @Daniel. Disimpan 13 byte berkat @Ismael Miguel. Disimpan 4 byte berkat @Fez Vrasta.

Vim, 43 , 41 byte

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

Dua byte disimpan berkat @Udioica!

Inilah animasi (yang agak ketinggalan jaman) dari itu terjadi secara real time!

Dan inilah penjelasannya:

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)

Periksa jawaban HTML / CSS 132 byte saya juga.

Windows Batch, 121 114 84 80 79 78 byte

Hanya membuang ini untuk bersenang-senang.

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

Saya tidak dapat menetapkan pipa ( |) ke dalam array, jadi saya harus menambahkannya secara manual dengan tugas lain.Penundaan dilakukan dengan PING, yang mungkin tidak akurat .

Keluaran:

Sunting:

• Terima kasih kepada Roman Gräf karena telah menghemat 7 byte!
• Terima kasih kepada Neil untuk menghemat 30 byte! Saya juga telah mengubahnya sedikit lebih banyak untuk menghemat byte pada baris baru.
• Terima kasih kepada phyrfox karena telah menghemat 4 byte!
• Terima kasih untuk YourDeathIsComing karena telah menghemat 2 byte!

Node, 72 70 byte

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

Ganti \x1Bdengan karakter escape literal untuk mendapatkan jumlah byte yang benar. Panggil f()untuk memulai animasi. Begini tampilannya di emulator terminal ConEmu di komputer saya:

Kotlin, 67 66 byte

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

Cukup jelas, digunakan \runtuk menghapus garis dan mengambil keuntungan dari interpolasi string yang mengagumkan.

EDIT: Disimpan 1 byte berkat @ mEQ5aNLrK3lqs3kfSa5HbvsTWe0nIu dengan mengubah while(true)kewhile(1>0)

Vim, 35 byte

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

Versi yang membosankan. Inilah solusi yang tidak patuh yang lebih baik:

Vim (1 detik tidur), 27 byte

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

Menggunakan gstidak hanya jauh lebih pendek, tetapi Anda tidak harus menekan Enter. Itu artinya makro cocok dengan in-line, dan saya dapat menyimpan byte dengan beralih ke @.. (Karena tidak ada setelah panggilan rekursif dapat berjalan, saya dapat mengetik apa pun yang saya inginkan.)

Pyth, 31 byte

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

Penerjemah di sini .

Penjelasan

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 Bytes

Kembali di Bytecount saya mulai dengan!

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

CLI di PowerShell akan sedikit rusak pada beberapa komputer, jadi itu tidak terlihat sempurna, tapi itu sebaik yang bisa saya dapatkan.

Memindahkan $ a ++ ke dalam for loop untuk menghemat satu byte, (tidak ;)

Kemudian memindahkannya ke array indexer, untuk save 2 byte lainnya, terima kasih kepada Roman untuk menunjukkannya.

Juga menyimpan 1 byte lagi ( ;) dengan memindahkan bagian Hapus layar ( cls) ke dalam for loop ..

Masalah dan perbaikan yang ditunjukkan oleh TimmyD untuk aspek pertanyaan yang tak terbatas, hanya +5 Bytes yang diperlukan, diubah $a++%4menjadi ($a=++$a%4)sehingga tidak akan pernah melampaui 3.

Menyimpan byte lain dengan membiarkan for loop benar-benar kosong, terima kasih kepada 'apa pun' untuk menunjukkan bahwa ini sebenarnya mungkin di Powershell Versi 4!

Gif yang baru diperbarui untuk versi (final?) Dari jawaban ini.

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

Jelas tidak bekerja online.

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

Memperbaiki jawaban Neil .

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

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

Mathematica, 74 67 Bytes

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

Off 7 byte off berkat @dahnoak

C #, 170 133 Bytes

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

Terima kasih banyak kepada Roman Gräf dan raznagul, yang menyelamatkan saya 37 byte. (Terutama raznagul, yang menunjukkan, bahwa solusi asli saya tidak valid. Saya agak ketinggalan sesuatu di sana, tetapi sekarang sudah diperbaiki dan harus memenuhi persyaratan :)

sangat mirip dengan jawaban C # Pete Arden yang ada tetapi dengan beberapa perbaikan

misal "for (;;)" bukannya "while (true)", char bukan string

Saya akan mengomentari saran saya pada jawabannya tetapi saya sebenarnya tidak memiliki reputasi yang cukup untuk melakukan itu.

Tidak Terkumpul:

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

Keempat, 72, 73 byte

EDIT :

• Menambahkan versi Gforth-only, 69 byte (Terima kasih @ninjalj!)
• Menambahkan spasi kosong yang hilang setelah "Memuat ..." (Thx @Roman Gräf!), +1 byte
• Diperbarui untuk mencocokkan aturan dengan lebih tepat (dalam jumlah byte yang sama)

Golf

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

Versi yang lebih baik

Versi GNU Forth-only dapat diturunkan hingga 69 byte seperti ini:

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

Screencast

Cobalah online!

Python 2, 81 79 78 77 byte

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

Cukup solusi sederhana yang menggunakan tidur time.

Saya menggunakan \r(pengembalian carriage) untuk kembali ke awal baris dan kemudian mencetak pesan yang menimpa baris.

Saya mulai dengan i=1untuk menghindari dua kali lolos \(itu '\|/-'bukan '|/-\\').

Di masa lalu, saya dulu -~ibermaksud i + 1menghindari kurung. (Terima kasih kepada @ Flp.Tkc untuk -2 byte ini!) (Itu i=(i+1)%4vs. i=-~i%4)

Sekarang, saya hanya membiarkan counter naik selamanya, karena secara teknis Python ints tidak bisa meluap. Terima kasih kepada Zachary T karena menunjukkannya dan menghemat satu byte!
Itu hanya berhenti pada mesin karena mesin kehabisan memori, tetapi ini membutuhkan 9,7 generasi dengan memori 4GB untuk yang satu itu int.

Terima kasih kepada @Kade untuk -1 byte di mana print a,bcetakan adan bruang terpisah, jadi saya tidak membutuhkan ruang saya sendiri.

Berikut ini beberapa gif yang berfungsi pada Windows:

Saya mengujinya pada Linux VM juga. Saya tidak bisa mengujinya di Mac.

MATL , 36 byte

1 byte dihapus menggunakan ide @ flawr tentang menggeser string secara sirkuler

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

Berikut ini adalah rekaman gif dari kompiler offline:

Atau coba di MATL Online! Jika awalnya tidak berjalan, segarkan halaman dan tekan "Run" lagi.

Bagaimana itu bekerja

'\-/|'           % 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

Dyalog APL, 50 byte

Ini hanya berfungsi dalam versi Windows, karena jika tidak, ⎕SMjendela tidak akan ditampilkan kecuali ⎕SRdipanggil.

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

Penjelasan:

• {... }1: jalankan fungsi yang dimulai dengan⍵=1
• Loading... '∘,¨'|/-\': menghasilkan empat kemungkinan keluaran
• ⊂⊃⍵⌽: Putar daftar untuk menempatkan elemen firstth terlebih dahulu, ambil elemen pertama, dan lampirkan
• ⎕SM←1 1,⍨: letakkan string di sudut kiri atas ⎕SMjendela.
• ⎕DL÷4: tunggu 1/4 detik
• 4|⍵+⌈: kumpulkan nilai yang dihasilkan (detik yang dihabiskan menunggu, jadi ini selalu 1), tambahkan ke ⍵(incrementing), dan ambil mod-4 (untuk mencegahnya akhirnya meluap).
• ∇: jalankan fungsi lagi dengan yang baru ⍵.

C #, 187 Bytes

Golf:

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("\\");}

Tidak Terkumpul:

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("\\");
  }
}

Masih menunggu untuk memuat ...

Jepret, 8 blok

Ini adalah salah satu algoritma pertama yang saya bingung tentang Apple] [e

reticular, noncompeting, 40 byte

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

Saya lupa melakukan banyak hal, termasuk w. Baiklah.

Penjelasan

: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

Terima kasih banyak orang untuk banyak byte yang bermain golf!

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<

Harus dijalankan lewat -t .01argumen tambahan ke juru bahasa, itulah +4 dalam jumlah byte.

Yang dilakukan adalah menempatkan keempat karakter yang akan dicetak pada tumpukan, mencetak yang teratas tanpa melepasnya dan menggeser tumpukan dengan satu posisi. Kemudian ia mencetak \b(backspace, karakter x08) dan me-restart loop.

Pengaturan waktu dicapai dengan argumen yang diteruskan ke penerjemah, yang memaksa untuk menunggu 0,01 detik sebelum melaksanakan setiap instruksi. Ada 23 instruksi antara output dan yang berikutnya (kebanyakan dari mereka hanya memindahkan pointer instruksi ke sel berikutnya), jadi ini akan menunggu 0,23 detik ditambah waktu yang diperlukan untuk menjalankan instruksi, yang cocok tanpa masalah di 0,25 yang diminta dengan kesalahan 10%.

Anda bisa mencobanya secara online , tetapi juru bahasa itu tidak mengenali karakter backspace, jadi hasilnya akan sedikit aneh di sana.

File MS-DOS .COM, 56 byte

Di sini konten file dalam heksadesimal:

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

Kode assembler yang cocok terlihat seperti ini:

    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

Ini harus menjalankan sistem linux 64 bit

dibangun menggunakan:

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

animasi:

disimpan 65 byte - terima kasih user254948

R, 85 89 byte

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

Sunting: Memperbaiki jawaban agar Ttidak meluap dengan mengatur ulang penghitung jika lebih besar dari 4.

Satu-satunya aspek yang menarik tentang jawaban ini adalah penggunaan R's TRUTHYbuiltin T. Ini secara efektif merupakan set variabel yang telah ditentukan 1/TRUEyang artinya kita tidak harus menginisialisasi penghitung tetapi dapat mulai menambah T.

Haskell (GHC), 103 91 byte

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

Terima kasih @nimi karena telah menghemat 12 byte!

C (pada sistem mirip UNIX) 88 byte

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

Ini dimulai dengan karakter yang salah, tetapi saya pikir itu terlihat lebih bagus. Anda dapat dengan mudah mengubah urutan karakter dengan memodifikasi "\ - / |" tali.

Perl, 71 63 61 byte

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

Versi sebelumnya:

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

Terima kasih kepada @primo selama 10 byte.