Fichier .COM MS-DOS, 56 octets

Voici le contenu du fichier en hexadécimal:

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

Le code assembleur correspondant ressemble à ceci:

    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 octets

Cela devrait être exécuté systèmes linux 64 bits

construit en utilisant:

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

animation:

enregistré 65 octets - merci utilisateur254948

R, 85 89 octets

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

Edit: Correction de la réponse telle que Tne débordera pas en réinitialisant le compteur si supérieur à 4.

Le seul aspect intéressant de cette réponse est l'utilisation de R de TRUTHYla builtin T. Il s’agit en fait d’une variable prédéfinie, 1/TRUEce qui signifie que nous n’avons pas à initialiser le compteur, mais que nous pouvons commencer à incrémenter T.

Haskell (GHC), 103 91 octets

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

Merci @nimi d'avoir économisé 12 octets!

C (sur les systèmes de type UNIX) 88 octets

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

Cela commence avec le mauvais personnage, mais je pense que ça a l'air plus joli. Vous pouvez facilement changer l'ordre des caractères en modifiant le "\ - / |" chaîne.

Perl, 71 63 61 octets

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

La version précédente:

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

Merci à @primo pour 10 octets.