Ваше завдання - зробити нескінченний екран завантаження, який виглядає приблизно так:

Або, якщо бути конкретнішим:

• Не беруть ніяких даних.
• Вихідні дані Loading...з пробілом, але без зворотнього рядка.
• Нескінченно цикл через символи |, /, -і \: кожні 0,25 секунд, перезаписати останню з наступним в послідовності. Ви можете перезаписати лише останній символ або видалити та переписати весь рядок, поки довгий час Loading...залишається незмінним.

Правила

• Вихідний текст повинен виглядати точно так, як зазначено. Приймаються нові рядки / пробіли.
• Ви повинні НЕ чекати 0,25 секунди , перш ніж спочатку показуючи висновок - перший кадр повинен бути надрукований , як тільки програма запускається.
• Ваша програма повинна мати можливість працювати безстроково. Наприклад, якщо ви використовуєте лічильник для кадрів, лічильник ніколи не повинен викликати помилку, перевищуючи максимум у вашій мові.
• Хоча період очікування між кожним "кадром" повинен становити 0,25 секунди, очевидно, це ніколи не буде точним - допускається похибка в 10% або більше.
• Ви можете надіслати функцію, але вона повинна надрукуватись stdout.
• Ви можете надіслати відповідь у неконсольному (але все ж текстовому) середовищі, якщо воно здатне створити анімацію завантаження.
• Це код-гольф , тому найкоротше рішення (в байтах) виграє. Діють стандартні лазівки з кодовим гольфом.
• Якщо можливо, надайте gif вашого завантажувального екрана в дії.

Приклад

Ось код C ++, який я використовував для створення прикладу (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;
    }
}

Нехай переможе найкращий гольфіст!

HTML / CSS, 183 180 163 161 160 147 143 байт

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>

Редагувати: збережено 3 байти завдяки @betseg. Збережено 17 байт завдяки @manatwork. Збережено 1 байт завдяки @Daniel. Збережено 13 байт завдяки @Ismael Miguel. Збережено 4 байти завдяки @Fez Vrasta.

Vim, 43 , 41 байт

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

Два байти збережено завдяки @Udioica!

Ось (трохи застаріла) анімація про це відбувається в режимі реального часу!

І ось пояснення:

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

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

Loading... <a id=a>-

-1 байт (Захарій Т)

Ознайомтеся також з моєю відповіді на 132 байт HTML / CSS .

Пакет Windows, 121 114 84 80 79 78 байт

Просто викидаючи це для задоволення.

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

Мені не вдалося призначити pipe ( |) до масиву, тому мені довелося додати його вручну з іншим завданням.Затримка робиться за допомогою PING, яка може бути неточною .

Вихід:

Редагувати:

• Дякуємо Роману Гряфу за збереження 7 байт!
• Дякуємо Нілу за збереження 30 байт! Я також трохи більше налаштував це, щоб зберегти байти на нових рядках.
• Завдяки phyrfox за збереження 4 байт!
• Завдяки YourDeathIsComing за збереження 2 байтів!

Вузол, 72 70 байт

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

Замініть \x1Bбуквальним символом втечі, щоб отримати правильний підрахунок байтів. Зателефонуйте, f()щоб почати анімацію. Ось як це виглядає в емуляторі терміналу ConEmu на моєму комп’ютері:

Котлін, 67 66 байт

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

Досить зрозумілий, використовуючи, \rщоб очистити лінію та скориставшись дивовижною інтерполяцією Котліна.

EDIT: Збережено 1 байт завдяки @ mEQ5aNLrK3lqs3kfSa5HbvsTWe0nIu, змінивши while(true)наwhile(1>0)

Vim, 35 байт

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

Нудна версія. Ось краще невідповідне рішення:

Vim (1 секунда сну), 27 байт

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

Використання gsне тільки набагато коротше, але й не потрібно натискати на Enter. Це означає, що макрос підходить в рядок, і я можу зберегти байти, перейшовши на @.. (Оскільки після рекурсивного дзвінка нічого не може працювати, я можу набрати все, що хочу.)

Pyth, 31 байт

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

Перекладач тут .

Пояснення

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

Повернувшись до Bytecount, з якого я почав!

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

На деяких комп’ютерах CLI в паттерні потужності трохи виблисне, тому він не виглядає ідеально, але це так добре, як я можу отримати.

Переміщено $ a ++ у цикл for, щоб зберегти один байт, (ні ;)

Потім перемістив його в індексатор масиву, щоб зберегти ще 2 байти, завдяки Роману за те, що вказав на це.

Також збережено ще 1 байт ( ;), перемістивши clsчастину Очистити екран ( ) у цикл for.

Випуск та виправлення, вказане TimmyD на нескінченний аспект питання, потрібно лише +5 байт, змінених $a++%4на ($a=++$a%4)так, щоб він ніколи не перевищував 3.

Збережено ще один байт, залишивши цикл for абсолютно порожнім, завдяки «що завгодно» за те, що вказав, що це фактично можливо у Powershell Версії 4!

Новий оновлений gif для (остаточної?) Версії цієї відповіді.

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

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

Очевидно, це не працює в Інтернеті.

Матлаб, 78 75 байт

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

HTML / CSS, 23 + 109 = 132 байти

Покращено за відповіддю Ніла .

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

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

Математика, 74 67 байт

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

Широкі 7 байт завдяки @dahnoak

C #, 170 133 Байт

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

Велика подяка Роману Гряфу та рознагалу, який врятував мені 37 байт. (Особливо рознагал, який зазначав, що моє оригінальне рішення все одно було недійсним. Я якось пропустив щось там, але це виправлено зараз і повинно відповідати вимогам :)

досить схожий на існуючу відповідь Піта Ардена C #, але з деякими вдосконаленнями

наприклад, "for (;;)" замість "while (true)", char замість рядка

Я б прокоментував свої пропозиції щодо його відповіді, але насправді у мене недостатньо репутації для цього.

Безголовки:

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

По-четверте, 72, 73 байти

Редагувати :

• Додана версія лише для Gforth, 69 байт (спасибі @ninjalj!)
• Додано пропущений пробіл після "Завантаження ..." (Thx @ Roman Gräf!), +1 байт
• Оновлено, щоб точніше відповідати правилам (в одному байті)

Гольф

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

Версія Gforth

Версія лише для GNU Forth може бути зведена до 69 байтів так:

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

Екранна трансляція

Спробуйте в Інтернеті!

Python 2, 81 79 78 77 байт

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

Досить просте рішення, яке спить за допомогою time.

Я використовую \r(Повернення каретки), щоб повернутися до початку рядка, а потім надрукувати повідомлення, що перезаписує рядок.

Я починаю з того, i=1щоб уникнути подвійного втечі \(Це '\|/-'замість '|/-\\').

У минулому я раніше мав -~iна увазі i + 1уникати дужок. (Завдяки @ Flp.Tkc за ці -2 байти!) (Це було i=(i+1)%4проти i=-~i%4)

Тепер я просто даю лічильнику піднятися назавжди, оскільки технічно Python ints не може переповнюватись. Дякуємо @Zachary T за вказівку на це та збереження байта!
Він зупиняється лише на машині, оскільки в апараті не вистачає пам'яті, але для цього потрібно 9,7 поколінь із 4 Гб пам'яті int.

Завдяки @Kade за -1 байт, де print a,bроздруковані відбитки aта bпростір, тому мені не потрібен власний простір.

Ось його подарунок, який працює в Windows:

Я тестував його і на Linux VM. Я не міг перевірити це на Mac.

MATL , 36 байт

1 байт видалено за допомогою ідеї @ flawr про кругове зміщення рядка

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

Ось gif-запис із офлайн-компілятора:

Або спробуйте в MATL Online! Якщо вона спочатку не запускається, оновіть сторінку та натисніть «Виконати» ще раз.

Як це працює

'\-/|'           % 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, 50 байт

Це працює лише у версії Windows, оскільки в іншому випадку ⎕SMвікно не відображатиметься, якщо не ⎕SRбуде викликано.

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

Пояснення:

• {... }1: запустити функцію, починаючи з⍵=1
• Loading... '∘,¨'|/-\': генерувати чотири можливі виходи
• ⊂⊃⍵⌽: Поверніть список, щоб спочатку поставити перший елемент, візьміть перший елемент і додайте його
• ⎕SM←1 1,⍨: покладіть рядок у верхній лівий кут ⎕SMвікна.
• ⎕DL÷4: зачекайте 1/4 секунди
• 4|⍵+⌈: округлюйте отримане значення (секунди, витрачені на очікування, тому це завжди 1), додайте його до ⍵(збільшуючи) та візьміть мод-4 (щоб уникнути його переповнення).
• ∇: запустити функцію знову з новою ⍵.

C #, 187 байт

Гольф:

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

Безголовки:

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

Ще чекаю, поки він завантажиться ...

Snap !, 8 блоків

Це був один із перших алгоритмів, які я коли-небудь спантеличував в Apple] [e

ретикулярна, неконкурентна, 40 байт

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

Я забув здійснити купу речей, в тому числі w. Ну добре.

Пояснення

: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

Баш, 98 69 байт

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

Дякую багатьом людям за багато байтів, що відійшли в гольф!

Perl 6 , 72 61 байт

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

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

> <> , 55 + 4 = 59 байт

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

Потрібно запустити, передаючи -t .01інтерпретатору як додатковий аргумент, це +4 у кількості байтів.

Для цього потрібно поставити чотири символи, які слід надрукувати на стеку, надрукувати верхній, не виймаючи його та перемістивши стек на одне положення. Потім він друкує \b(backspace, символ x08) і перезапускає цикл.

Час виконання досягається аргументом, переданим інтерпретатору, який змушує зачекати 0,01 секунди перед виконанням кожної інструкції. Існує 23 інструкції між вихідним та наступним (більшість з них просто переміщують покажчик інструкцій на наступну комірку), тому це зачекатиме 0,23 секунди плюс час, необхідний для виконання інструкцій, який без проблем вписується у запитувані 0,25 с з 10% помилкою.

Ви можете спробувати його в Інтернеті , але той інтерпретатор не розпізнає символ зворотної області, тому вихід буде дещо дивним.

Файл MS-DOS .COM, 56 байт

Тут вміст файлу у шістнадцятковій:

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

Відповідний код асемблера виглядає приблизно так:

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

Для цього слід запустити 64-бітні системи Linux

побудовано за допомогою:

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

анімація:

збережено 65 байт - дякую користувачеві254948

R, 85 89 байт

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

Редагувати: Виправлено відповідь таким, що Tне буде переповнено шляхом скидання лічильника, якщо більше 4.

Єдиний цікавий аспект цієї відповіді - використання R TRUTHY вбудованої команди T. Це фактично визначений набір змінних, 1/TRUEщо означає, що нам не потрібно ініціалізувати лічильник, але ми можемо почати збільшуватися T.

Haskell (GHC), 103 91 байт

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

Дякуємо @nimi за збереження 12 байт!

C (у UNIX-подібних системах) 88 байт

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

Починається з неправильного характеру, але я думаю, що це виглядає приємніше. Ви можете легко змінити порядок символів, змінивши "\ - / |" рядок.

Perl, 71 63 61 байт

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

Попередня версія:

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

Дякуємо @primo за 10 байт.