Buradaki zorluk, şuna benzeyen sonsuz bir yükleme ekranı oluşturmak:

Veya daha spesifik olmak gerekirse:

• Giriş yapmayın.
• Çıktı Loading..., sonunda boşluk var ama sonunda yeni satır yok.
• Karakter ile kademesiz döngüsü |, /, -ve \:, her 0.25 saniyede bir dizideki bir sonraki son üzerine yazar. Yalnızca son karakterin üzerine yazabilir veya Loading...değişmeden kaldığı sürece tüm satırı silip yeniden yazabilirsiniz .

kurallar

• Çıktı metni tam olarak belirtildiği şekilde görünmelidir. Son satırlar / boşluklar kabul edilebilir.
• Sen gerektiğini değil , başlangıçta çıktı göstermeden önce 0.25 saniye bekleyin - İlk kare kısa sürede programın çalıştırıldığı olarak basılmalıdır.
• Programınız süresiz çalışabilmelidir. Örneğin, çerçeveler için bir sayaç kullanıyorsanız, sayaç, kendi dilinizde maksimum değeri aşarak hiçbir zaman hataya neden olmamalıdır.
• Her bir "kare" arasındaki bekleme süresi 0.25 saniye olmalıdır, açıkçası bu asla kesin olmayacak -% 10 gibi bir hata payına izin verilir.
• Bir işlev gönderebilirsiniz, ancak yazdırmanız gerekir stdout.
• Yükleme animasyonu üretebildiği sürece, konsol dışı (ancak yine de metin tabanlı) bir ortamda yanıt gönderebilirsiniz.
• Bu kod golf , yani en kısa çözüm (bayt cinsinden) kazanır. Standart kod-golf boşlukları uygulanır.
• Mümkünse, lütfen yükleme ekranınıza bir gif ekleyin.

Örnek

Örnek oluşturmak için kullandığım C ++ kodu:

#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;
    }
}

En iyi golfçü kazansın!

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

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>

Düzenleme: @ betseg sayesinde 3 bayt kaydedildi. @ Manatwork sayesinde 17 bayt kaydedildi. @Daniel sayesinde 1 bayt kaydedildi. @Ismael Miguel sayesinde 13 byte kurtarıldı. @Fez Vrasta sayesinde 4 byte kurtarıldı.

Vim, 43 , 41 bayt

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

@Udioica sayesinde iki bayt kurtarıldı!

İşte gerçek zamanlı olarak gerçekleşen (biraz modası geçmiş) bir animasyon!

Ve işte bir açıklama:

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 bayt

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

Loading... <a id=a>-

-1 bayt (Zachary T)

Benim göz atın 132 bayt HTML / CSS cevabı da.

Windows Toplu İşi, 121 114 84 80 79 78 bayt

Sadece eğlenmek için bunu atıyorum.

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

Dizine pipe ( |) atayamadım, bu yüzden başka bir atama ile el ile eklemek zorunda kaldım.Gecikme ile yapılır PING, hangi doğru olmayabilir .

Çıktı:

Düzenle:

• Roman Gräf'a 7 byte tasarruf ettiğin için teşekkürler!
• Neil'e 30 bayt kaydettiği için teşekkürler! Ayrıca yeni hatlardaki baytları kurtarmak için biraz daha uğraştım.
• 4 byte kaydettiğiniz için phyrfox'a teşekkürler!
• 2 byte tasarruf için YourDeathIsComing sayesinde!

Düğüm, 72 70 bayt

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

Değiştir \x1BDoğru bayt sayısını almak için hazır bilgi kaçış karakteri ile. f()Animasyonu başlatmak için arayın . Bilgisayarımdaki ConEmu terminal emülatöründe nasıl göründüğü:

Kotlin, 67 66 bayt

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

\rÇizgiyi temizlemek ve Kotlin'in müthiş string enterpolasyonundan faydalanmak için kullanmak oldukça açık bir şekilde açıklanmıştır .

DÜZENLEME: değiştirerek @ mEQ5aNLrK3lqs3kfSa5HbvsTWe0nIu için 1 bayt sayesinde Kaydedilen while(true)içinwhile(1>0)

Vim, 35 bayt

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

Sıkıcı versiyonu. İşte daha iyi olan uyumlu olmayan bir çözüm:

Vim (1 saniye uyku), 27 bayt

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

gsSadece kısa kullanmakla kalmaz, Enter tuşuna basmanız da gerekmez. Bu makroya sıraya girdiği anlamına gelir ve geçiş yaparak baytları kaydedebilirim @.. (Özyinelemeli çağrıdan sonra hiçbir şey çalışamadığı için istediğimi yazabilirim.)

Pyth, 31 bayt

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

Tercüman burada .

açıklama

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 Bayt

Bytecount'a geri döndüm!

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

Powershell'deki CLI bazı bilgisayarlarda hafifçe parlayacak, bu yüzden mükemmel görünmüyor, ancak makul bir şekilde alabildiğim kadar iyi.

Bir bayttan tasarruf etmek için $ a ++ for for döngüsüne taşındı, (no ;)

Daha sonra, bunu işaret ettiği için Roman sayesinde, başka bir 2 baytlık tasarruf için dizi indeksleyicisine getirdi.

Ayrıca ;Clear ( cls) bölümünü for döngüsüne taşıyarak 1 bayt ( ) daha kaydedin .

Sayı ve söz sonsuz yönü için TimmyD tarafından işaret düzeltme, yalnızca 5 bayt gerekli değişti $a++%4içine ($a=++$a%4)yüzden 3'ün üzerinde hiç gitmeyecek.

Powershell Sürüm 4'te bunun gerçekten mümkün olduğunu gösteren 'ne olursa olsun' için for döngüsünü tamamen boş bırakarak başka bir bayt kaydetti!

Bu cevabın (final?) Versiyonu için yeni güncellenmiş 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 bayt

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

Açıkçası, çevrimiçi çalışmıyor.

Matlab, 78 75 bayt

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

HTML / CSS, 23 + 109 = 132 bayt

Neil'in cevabı üzerine geliştirildi .

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 Bayt

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

@Dahnoak sayesinde bir kuyruklu 7 bayt

C #, 170 133 Bayt

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

Beni 37 bayt kurtardı, Roman Gräf ve raznagul'a teşekkür ederim. (Özellikle raznagul, orijinal çözümümün yine de geçersiz olduğunu belirtti. Orada bir şeyi kaçırdım, ama şimdi düzeltildi ve gereklilikleri yerine getirmeli :)

Pete Arden'in mevcut C # cevabına oldukça benzer, ancak bazı gelişmelerle birlikte

örneğin "while (;;)" yerine "while (true)", string yerine char

Cevabımla ilgili önerilerime yorum yapardım ama aslında bunu yapacak kadar itibarım yok.

Ungolfed:

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

Forth, 72, 73 bayt

EDIT :

• Yalnızca Gforth sürümüne 69 bayt eklendi (Thanks @ ninjalj!)
• "Yükleniyor ..." den sonra eksik boşluk eklendi (Thx @ Roman Gräf!), +1 bayt
• Kuralları daha kesin eşleştirmek için güncellendi (aynı bayt sayısında)

golfed

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

Gforth sürümü

Yalnızca GNU Forth sürümü aşağıdaki gibi 69 byte'a çıkarılabilir:

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

Ekran yayınlama

Çevrimiçi deneyin!

Python 2, 81 79 78 77 bayt

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

Uyuyan basit bir çözüm time.

Kullandığım \rsatırın başlangıcına geri dönmek ve sonra çizgiyi üzerine yazarak mesajı yazdırmak için (A satır başı).

i=1Çifte kaçmayı önlemek için başlıyorum \(Onun '\|/-'yerine '|/-\\').

Geçmişte, kullanmıştı -~idemek i + 1parantez önlemek için. (Sayesinde @ Flp.Tkc bu -2 bayt için!) (O idi i=(i+1)%4vs i=-~i%4)

Şimdi, teknik olarak Python intun taşmadığı için sayacın sonsuza dek yükselmesine izin veriyorum . Bu işaret ve bayt tasarrufu için @ Zachary T teşekkürler !
Bir makine üzerinde durur çünkü makine belleği yetersizdir, ancak bu işlem için 4 GB belleğe sahip 9.7 kuşak vardır int.

Baskıların ve alanın ayrıldığı -1 baytlık için @Kade sayesinde kendi alanıma ihtiyacım yok.print a,bab

İşte Windows üzerinde çalışan bir gif:

Ben de bir Linux VM'de test ettim. Mac'te test edemedim.

MATL , 36 bayt

1 bayt, @ flawr'ın dizgeyi dairesel olarak kaydırma fikri kullanılarak kaldırıldı

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

Çevrimdışı derleyiciden bir gif kaydı:

Veya MATL Online'da deneyin ! Başlangıçta çalışmazsa, sayfayı yenileyin ve tekrar "Çalıştır" a basın.

Nasıl çalışır

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

Bu sadece Windows versiyonunda çalışır, aksi halde çağrılmadıkça ⎕SMpencere gösterilmez ⎕SR.

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

Açıklama:

• {... }1: ile başlayan işlevi çalıştır⍵=1
• Loading... '∘,¨'|/-\': dört olası çıktıyı üret
• ⊂⊃⍵⌽: Birinci öğeyi önce koymak, ilk öğeyi almak ve içine almak için listeyi döndürün
• ⎕SM←1 1,⍨: dizeyi ⎕SMpencerenin sol üst köşesine yerleştirin .
• ⎕DL÷4: 1/4 saniye bekleyin
• 4|⍵+⌈: elde edilen değeri topla (bekleme harcanan saniye, yani bu her zaman 1'dir) ⍵ (arttırma) ve mod-4'ü al (sonunda taşmalarını önlemek için).
• ∇: fonksiyonu yenisiyle tekrar çalıştırın ⍵.

C #, 187 Bayt

golfed:

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

Ungolfed:

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

Hala yüklenmesini bekliyorum ...

Çıtçıt !, 8 blok

Bu, bir Apple’a bastığım ilk algoritmalardan biriydi.

retiküler, rekabetçi olmayan, 40 bayt

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

Bir sürü şey yapmayı unuttum. w . Oh iyi.

açıklama

: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 bayt

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

Golf atılan birçok bayt için birçok kişiye teşekkür ederiz!

Perl 6 , 72 61 bayt

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

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

> <> , 55 + 4 = 59 bayt

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

Geçirerek çalıştırılması gerekir -t .01Tercümana ek bir argüman olarak , bayt sayısındaki +4.

Bu, yığına basılacak dört karakteri koymak, üstünü çıkarmadan basmak ve yığını bir konuma kaydırmak. Daha sonra yazdırır \b(geri al, x08 karakteri) ve döngüyü yeniden başlatır.

Zamanlama, her bir talimatı yerine getirmeden önce 0.01 saniye beklemeye zorlayan tercümana iletilen argümanla gerçekleştirilir. Bir çıktı ile bir sonraki arasında 23 komut vardır (çoğu sadece komut göstericisini bir sonraki hücreye taşır), bu yüzden 0.23 saniye bekleyecek, istenen 0.25s'de problemsiz bir şekilde uyan komutların çalıştırılması için gereken süre bekleyecektir. % 10 hata ile.

Sen olabilir çevrimiçi denemek , ama bu yorumlayıcı backspace karakterini tanımıyor, bu yüzden çıkış var biraz garip olacak.

MS-DOS .COM dosyası, 56 bayt

İşte onaltılık dosya içeriği:

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

Eşleşen assembler kodu şöyle görünür:

    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 bayt

Bu 64 bit linux sistemleri çalıştırılmalıdır

kullanılarak oluşturulmuş:

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

animasyon:

65 bayt kurtardı - teşekkürler user254948

R, 85 89 bayt

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

Düzenleme: TSayacı sıfırlandıysa sayacı sıfırlayarak yanıtı taşması düzeltildi.4 .

Bu cevabın tek ilginç yanı R'nin TRUTHYyerleşik kullanımıdır T. Etkili önceden tanımlanmış bir değişkendir, 1/TRUEbunun anlamı sayacı sıfırlamak zorunda değiliz, ancak artmaya başlayabiliriz T.

Haskell (GHC), 103 91 bayt

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

12 bayt kaydettiğiniz için teşekkürler @!

C (UNIX benzeri sistemlerde) 88 bayt

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

Yanlış karakterle başlıyor, ama daha hoş gözüktüğünü düşünüyorum. "\ - / |" karakterini değiştirerek karakter sırasını kolayca değiştirebilirsiniz. dize.

Perl, 71 63 61 bayt

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

Önceki versiyon:

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

10 bayt için @primo Thanx.