สร้างตัวโหลดปลอมเช่นนี้:

พารามิเตอร์:

• จอแสดงผลloading(เว้นวรรค) หนึ่งในจำนวนนี้จะวน-\|/(เคาน์เตอร์ร้อยละ 0-100) (เว้นวรรค) %แล้ว
• เปอร์เซ็นต์ที่คาดว่าจะเพิ่มขึ้น 1 ทุกครั้งที่มีการเปลี่ยนแปลงการแสดงผล
• เวลาที่เคาน์เตอร์เพื่อข้ามไปยังการทำซ้ำครั้งถัดไปเป็นการสุ่ม การสุ่มใด ๆ จะทำตราบเท่าที่ฟังก์ชัน / วิธีสามารถสร้างจำนวนเต็มแบบสุ่มทั้งหมดที่มีความน่าจะเป็น> 0 ในช่วง1<= ms <=750ที่นี่msเป็นเวลาเป็นมิลลิวินาที
• เริ่มต้นloading - 0 %ที่
• สิ้นสุดloading - 100 %ที่
• ไม่จำเป็นต้องมีอินพุต
• ส่งโปรแกรมหรือฟังก์ชั่นเต็มหรืออะไรก็ตามที่คล้ายกัน

รหัสที่ฉันใช้:

C ++

#include<stdio.h>
#include<time.h>
#include<windows.h>

int main()
{
    srand(time(NULL));
    char a[15],b[]="-\\|/";
    int i=0,j=0,ms;
    while(j<101)
    {
        (i<3)?i++:i=0;
        wsprintf(a,"loading %c %d ",b[i],j++);
        printf(a);puts("%");
            //This part is to make the output look cool
        switch(rand()%9)
        {
            case 0:ms=1;break;
            case 1:ms=2;break;
            case 2:ms=5;break;
            case 3:ms=10;break;
            case 4:ms=15;break;
            case 5:ms=20;break;
            case 6:ms=25;break;
            case 7:ms=50;break;
            case 8:ms=500;
        }
        Sleep(ms);  //Otherwise this is supposed to be random
        if(j<101)   //like this Sleep(rand()%750+1);
        system("cls");
    }
}

ผู้ชนะ

• รหัสที่มีจำนวนไบต์น้อยที่สุดจะเป็นผู้ชนะ

MATL , 45 ไบต์

101:"'loading'O'-\|/'@)O@qVO37&hD750Yr100/&Xx

ตัวอย่างทำงานในคอมไพเลอร์ออฟไลน์:

หรือลองที่MATL Online!

คำอธิบาย

101:          % Push array [1 2 ... 101]
"             % For each
  'loading'   %   Push this string
  O           %   Push 0. When converted to char it will be displayed as a space
  '-\|/'      %   Push this sring
  @)          %   Modular index into this string with iteration index
  O           %   Push 0
  @q          %   Iteration index minus 1
  V           %   Convert to string
  O           %   Push 0
  37          %   Push 37, which is ASCII for '%'
  &h          %   Concatenate horizontally into a string, Numbers are converted to char
  D           %   Display
  750Yr       %   Random integer with uniform distribution on [1 2 ... 750]
  100/        %   Divide by 100
  &Xx         %   Pause that many tenths of a second and clear screen
              % End (implicit)

Powershell, 71 68 65 Bytes

คล้ายกับhttps://codegolf.stackexchange.com/a/101357/59735

บันทึก 3 ไบต์โดยไม่เป็นคนงี่เง่า (เหลือ ... เมื่อโหลด)

-3 ต้องขอบคุณ VisualMelon

เปลี่ยน 750 -> 751 เพื่อให้แน่ใจว่ารวม 750 รายการ

0..100|%{cls;"loading $("|/-\"[$_%4]) $_ %";sleep -m(random 751)}

คำอธิบาย:

0..100|%{                                  #For range 0-100...
    cls                                    #Clear Display
    "loading $("|/-\"[$_%4]) $_ %"    #Display the current string
    sleep -m(random 750)                  #Sleep random ms up to 750
}

อัปเดต gif

Python 2, 119 113 112 Bytes

ตอนแรกฉันได้ไปกับจำนวนสุ่มrandom()/.75แต่จุดสิ้นสุดจะไม่รวม ไม่มีความแตกต่างจากคำถามนี้กับคำถามอื่น ๆ สำหรับความเร็วในการโหลดไม่ จำกัด ยกเว้นการสุ่มและความจริงที่ว่ามันสิ้นสุดจริง

import time,random as r
for i in range(101):print'\rLoading','-\|/'[i%4],i,'%',;time.sleep(r.randint(1,750)/1e3)

^{ขอบคุณ Jonathan Allan สำหรับการบันทึก 6 ไบต์และ DJMcMayhem สำหรับการบันทึกไบต์!}

แบตช์ 185 ไบต์

@set s=-\!/
@for /l %%i in (0,1,100)do @call:l %%i
@exit/b
:l
@cls
@set c=%s:~0,1%
@set s=%s:~1%%c%
@echo Loading %c:!=^|% %1 %%
@set/aw=%random%%%751
@ping>nul 1.1 -n 1 -w %w%

ระยะเวลาค่อนข้างยากจนน่าเสียดาย pingแต่ชุดไม่ได้มีอะไรดีกว่าที่จะใช้งานมากกว่า

*> <> (ปลาดาว), 86 82 ไบต์

| v1*aoooooooo"loading K"&0"-\|/"
!0x1! +
%$<.0+af{od;?)*aa&:&Soono$&+1:&"  %"{o:}

ลองที่นี่!

นี่อาจจะสามารถเล่นกอล์ฟได้มากกว่านี้ แต่ฉันไม่เห็นอะไรที่ชัดเจนมาก มันหลับได้ 100ms, 400ms หรือ 700ms ถ้ามันไม่สุ่มพอให้ฉันรู้!

ขอบคุณ @TealPelican ที่ช่วยฉัน 4 ไบต์และทำให้มันสุ่มมากขึ้น!

ความท้าทายที่ใหญ่ที่สุดที่ฉันพบ (ในขณะที่ยังพยายามทำให้มันเล็ก) คือการสุ่มและเอาท์พุท "โหลด - 100%" จริง ๆ ในตอนท้ายแทนที่จะออกจากความสะดวกที่ใกล้ที่สุดของฉัน: p

Perl 6 , 67 ไบต์

for |<- \ | />xx* Z 0..100 {print "\rloading $_ %";sleep .750.rand}

ขยาย:

for

  # produce a list of all the pairs of values

  |<- \ | /> xx *   # a flat infinite list of "clock faces"
  Z                 # zipped with
  0 .. 100          # all the numbers from 0 to 100 inclusive

  # &zip / &infix:<Z> stop on the shortest list

{

  # ｢$_｣ will look something like ｢("/", 39)｣
  # when it is coerced to a Str, all of its elements
  # will be coerced to Str, and joined with spaces

  print "\rloading $_ %";

  sleep .750.rand

}

Javascript (ES6), 128 118 116 115 112 110 109 ไบต์

สิ่งนี้ดูเหมือนว่าจะทำงานได้อย่างสมบูรณ์แบบแม้จะเป็นแหล่งที่มาของตัวเลข "สุ่ม"

(X=_=>setTimeout(i>99||X,1+new Date%750,document.body.innerHTML=`<pre>Loading ${'-\\|/'[i%4]} ${i++}%`))(i=0)

ทางเลือก 1 , Javascript + HTML, 16 + 84 ไบต์

องค์ประกอบนี้ใช้องค์ประกอบที่มีอยู่แล้วเพื่อแสดงเนื้อหาที่เหลืออยู่:

(X=_=>setTimeout(i>99||X,1+new Date%750,a.innerHTML=`${'-\\|/'[i%4]} ${i++}%`))(i=0)

Loading <a id=a>

ทางเลือก 2 , 95 ไบต์

หากฉันสามารถสันนิษฐานได้ว่าแท็บเปิดอยู่และคุณกำลังวางสิ่งนี้ลงในคอนโซล:

(X=_=>setTimeout(i>99||X,1+new Date%750,document.title=`Loading ${'-\\|/'[i%4]} ${i++}%`))(i=0)

แทนที่จะแสดง HTML ชื่อของเอกสารจะเปลี่ยนไป

ขอบคุณที่@ user2428118สำหรับการบันทึก 2 ไบต์!

F #, 118 ไบต์

async{let r=System.Random()
for i in 0..100 do printf"\rLoading %O %d %%""|/-\\".[i%4]i;do!Async.Sleep(r.Next(1,750))}

เพื่อที่จะรันตัวอย่างข้อมูลนี้ผ่านมันเข้าหรือAsync.StartAsync.RunSynchronously

PHP, 90 83 80 78 77ไบต์

77:

;ไม่จำเป็นต้องปิดบัญชี

for(;$i<101;usleep(rand(1,75e4)))echo"\rloading ",'-\|/'[$i%4],' ',$i+++0,'%'

78:

ในขณะที่มองหาวิธีแก้ปัญหาอื่นเพื่อรับ 0 เริ่มแรกโดยไม่ต้องเริ่มต้นตัวแปรฉันมากับสิ่งนี้:

for(;$i<101;usleep(rand(1,75e4)))echo"\rloading ",'-\|/'[$i%4],' ',$i+++0,'%';

เปลี่ยนกลับเป็นเสียงสะท้อนเพื่อรับรางวัลไม่กี่ไบต์เพราะฉันใช้ printf เพื่อบังคับรูปแบบเป็น int เท่านั้น โดยการเพิ่มค่าที่เพิ่มขึ้น $ i ด้วย 0 ฉันจะได้จำนวนเต็มที่ถูกต้อง ด้วยการใช้เครื่องหมายคำพูดเดี่ยวเป็นตัวคั่นสตริงเครื่องหมายแบ็กสแลชไม่จำเป็นต้องถูกหลบหนีส่งผลให้มีการเพิ่มไบต์อื่น

80:

การย้ายการเพิ่มของ $ i จากส่วนสุดท้ายไปยัง prinf ทำให้ฉันออกไปอีก 3 ครั้ง (ดูความคิดเห็นด้านล่าง)

for(;$i<101;usleep(rand(1,75e4)))printf("\rloading %s %d%%","-\\|/"[$i%4],$i++);

83:

ลบ init ของตัวแปรด้วย loaderstates

for(;$i<101;usleep(rand(1,75e4)),$i++)printf("\rloading %s %d%%","-\\|/"[$i%4],$i);

90:

ฉันพยายามลบ init ของ $ i เพื่อรับไบต์เนื่องจากฉันต้องเพิ่มจำนวนเล็กน้อยเพื่อเปิดใช้งานภาพเคลื่อนไหวโหลดเดอร์ printf เพิ่ม 2 ซึ่งตรงข้ามกับ echo แต่การจัดรูปแบบ NULL เป็นจำนวนเต็มให้ผลลัพธ์เป็น 0

for($l='-\|/';$i<101;usleep(rand(0,750)*1e3),$i++)printf("\rloading %s %d%%",$l[$i%4],$i);

Groovy, 113 87 ไบต์

-36 ไบต์ต้องขอบคุณ lealand

{p=-1;101.times{print"\rLoading ${"-\\|/"[p++%4]} $p%";sleep Math.random()*750as int}}​

Bash, 162 104 ไบต์

การดัดแปลงคำตอบของ Zacharyสำหรับคำถามที่เกี่ยวข้องพร้อมการปรับปรุงอย่างมากโดยการจัดการ:

s='-\|/'
for x in {0..100};{
printf "\rloading ${s:x%4:1} $x %%"
sleep `printf .%03d $[RANDOM%750+1]`
}

ฉันต้องค้นหาวิธีทำตัวเลขสุ่มด้วยการทุบตี

Ungolfed / อธิบาย

s='-\|/'
for x in {0..100}
{
    # \r returns the carriage to the beginning of the current line.
    # ${s:x%4:1} grabs a substring from s, at index x%4, with a length of 1.
    printf "\rloading ${s:x%4:1} $x %%"

    # "$RANDOM is an internal bash function that returns
    #   a pseudorandom integer in the range 0 - 32767."
    # .%03d is a dot followed by a base-ten number formatted to 3 places,
    #   padded with zeros if needed.
    # sleep accepts a floating point number to represent milliseconds.
    sleep `printf .%03d $[RANDOM%750+1]`
}

C #, 170 149 135 ไบต์

()=>{for(int i=0;i++<=100;System.Threading.Thread.Sleep(new Random().Next(1,750)))Console.Write($"\rloading {@"-\|/"[i % 4]} {i} %");};

Ungolfed:

static void l()
{
    for (int i = 0; i <= 100; System.Threading.Thread.Sleep(new Random().Next(1, 750)))
        Console.Write($"\rloading {@"-\|/"[i % 4]} {i} %");   
}

ฉันจะไม่รับประกันว่าตัวละครทุกตัวในนี้ถูกต้องโปรดแก้ไขให้ฉันถ้ามีข้อผิดพลาดในการรวบรวม ฉันต้องพิมพ์สิ่งทั้งหมดบนโทรศัพท์ของฉันดังนั้นฉันอาจมีข้อผิดพลาดบางอย่างโดยบังเอิญ ... ¯_ (ツ) _ / ¯ฉันหวังว่าพวกคุณจะยกโทษให้ฉัน

ทดสอบบนพีซีของฉันทำงานเหมือนมีเสน่ห์และฉันยังบันทึกได้ทั้ง 20 ไบต์ด้วย pmbanka :)

C 112 103 ไบต์

บันทึกแล้ว 9 ไบต์ขอบคุณ @G Sliepen ไม่น่าตื่นเต้นมากแค่คำตอบ C ++ ของคุณ ยังไม่ใช่ฟังก์ชั่นสุ่มที่น่าตื่นเต้นมาก ฉันคิดเกี่ยวกับSleep(c[i%4])หรือSleep(i)แต่พวกเขาไม่ได้สุ่มเลย!

#import<windows.h>
i;f(){for(;i<101;printf("\rloading %c %d %%","-\\|/"[i%4],i++),Sleep(rand()%750+1));}

Ungolfed:

#include <windows.h>
int i;
void f() {
  for(;i<101;) {
    printf("\rloading %c %d %%", "-\\|/"[i%4], i++);
    Sleep(rand()%750+1);
  }
}

Mathematica, 133 ไบต์

Dynamic[If[x<100,x++,,x=0];Row@{"Loading ",StringPart["-\|/",1+x~Mod~4]," ",x,"%"},
    UpdateInterval:>RandomReal@.75,TrackedSymbols:>{}]

สิ่งนี้จะทำงานครั้งเดียวโดยสมมติว่า x ไม่ได้ถูกกำหนด Clear@xจะเริ่มต้นใหม่

55 ตัวอักษรผูกติดอยู่ในคำฟุ่มเฟื่อย: /

R - 94 ไบต์

for(i in 0:100){cat('\rLoading',c('-','\\','|','/')[i%%4+1],i,'%');Sys.sleep(sample(750,1)/1e3)}

sample(750,1) == sample(1:750,1)จริงๆที่ดีที่

HTML + JS (ES6), 16 + 87 = 103 ไบต์

(f=_=>a.innerHTML='\\|/-'[i++%4]+` ${i<100&&setTimeout(f,Math.random()*750),i} %`)(i=0)

loading <a id=a>

PHP, 66 79 ไบต์

for($i=-1;++$i<101;usleep(rand(1,75e4)))echo"\rloading ","-\\|/"[$i%4]," $i %";

น่าเสียดายที่ฉันต้องกำหนด $ i เพื่อให้พิมพ์ '0'
ใช้เช่น:

php -r 'for($i=-1;++$i<101;usleep(rand(1,75e4)))echo"\rloading ","-\\|/"[$i%4]," $i %";'

การแก้ไข: ขอบคุณ Titus ยืนยันสิ่งที่ได้รับอนุญาตจาก Mukul Kumar เราสามารถบันทึก 3 ไบต์ด้วยช่วงที่ถูก จำกัด น้อยกว่า แต่ไม่ใช่ทั้งหมด 9 ไบต์ด้วยช่วงที่ไม่ จำกัด ขอบคุณสำหรับการชี้ให้เห็นว่าฉันลืมตัวอักษรการขี่จักรยานและให้วิธีแก้ปัญหาง่ายๆ

Noodelขนาดไม่ถึง 40 ไบต์

เพียงแค่ย้อนกลับไปสู่ความท้าทายเก่า (เช่นเดียวกับความท้าทายที่สร้างขึ้นก่อนNoodel ) และแข่งขันกับNoodelเพื่อค้นหาว่าจุดอ่อนนั้นอยู่ที่ไหน

Loading¤”ḋḟƇḣ⁺s¤ṡ⁺Ḷ101ạ¤%ɱṠĖ²⁺Çṛ749⁺1ḍ€Ḃ

หากผลลัพธ์สุดท้ายไม่สำคัญคุณสามารถบันทึกได้ 2 ไบต์

Loading¤”ḋḟƇḣ⁺s¤ṡ⁺Ḷ101ạ¤%ɱṠĖ²⁺Çṛ749⁺1ḍ

Noodelผลักด้านบนของสแต็คไปที่หน้าจอในตอนท้ายของโปรแกรมดังนั้นโดยการเพิ่ม€Ḃมันจะป้องกันไม่ให้เกิดขึ้น

ลองมัน:)

มันทำงานอย่างไร

Loading¤”ḋḟƇḣ⁺s¤ṡ⁺Ḷ101ạ¤%ɱṠĖ²⁺Çṛ749⁺1ḍ€Ḃ # Main Noodel script.

Loading¤”ḋḟƇḣ⁺s¤ṡ⁺                       # Creates the array ["Loading¤-¤", "Loading¤\¤", "Loading¤|¤", "Loading¤/¤"]
Loading¤                                 # Pushes the string "Loading¤"
        ”Ƈḟḋḣ                            # Pushes the array ["-", "\", "|", "/"]
             ⁺s                          # Concats "Loading¤" to each element in the array by prepending.
               ¤                         # Pushes a "¤" onto the stack.
                ṡ                        # Pushes
                 ⁺

                  Ḷ101ạ¤%ɱṠĖ²⁺Çṛ749⁺1ḍ   # Main loop that creates the animation.
                  Ḷ101                   # Loop the following code 101 times.
                      ạ                  # Pushes on a copy of the next animation element from the array.
                       ¤%                # Pushes the string "¤%"
                         ɱ               # Pushes on the current count of the number of times that have looped (zero based).
                          Ṡ              # Swaps the two items at the bottom of the stack.
                           Ė             # Pushes the item at the bottom of the stack to the top (which will be the string selected from the array).
                            ²⁺           # Concat twice appending the loop count then the string "¤%" to the string selected from the array.
                              Ç          # Pops the string off of the stack, clears the screen, then prints the string.
                               ṛ749      # Randomly generate an integer from 0 to 749.
                                   ⁺1    # Increment the random number producing a random number from 1 - 750.
                                     ḍ   # Pop off the stack and delay for that number of milliseconds.

                                      €Ḃ # Ends the loop and prevents anything else being displayed.
                                      €  # Ends the loop (new line could be used as well)
                                       Ḃ # Destroys the current stack therein, nothing gets pushed to the screen at the end of the program.

<div id="noodel" code="Loading¤”ḋḟƇḣ⁺s¤ṡ⁺Ḷ101ạ¤%ɱṠĖ²⁺Çṛ749⁺1ḍ€Ḃ" input="" cols="14" rows="2"></div>

<script src="https://tkellehe.github.io/noodel/noodel-latest.js"></script>
<script src="https://tkellehe.github.io/noodel/ppcg.min.js"></script>

C 126 121 ไบต์

f(){i=0;char c[]="/-\\|";for(;i<101;i++){printf("\rloading %c %d %% ",c[i%4],i);fflush(stdout);usleep(1000*(rand()%75));}

เวอร์ชันที่ไม่ถูกปรับแต่ง:

 void f()
 {
  int i=0;
  char c[]="/-\\|";
  for(;i<101;i++)
  {
    printf("\rloading %c %d %% ",c[i%4], i);
    fflush(stdout);
    usleep(1000*(rand()%75));  
  }
 } 

@Carcigenicate @ Mukul Kumar ไม่ได้อ่านระหว่างบรรทัดที่นั่นขอบคุณ! :)

MATLAB, 108 ไบต์

function k;for i=0:100;a='-\|/';pause(rand*.749+.001);clc;['loading ' a(mod(i,3)+1) ' ' num2str(i) ' %']
end

Octave, 122 120 119 108 bytes

ฉันอ่านความท้าทายผิดและสร้างตัวโหลดแบบไม่สิ้นสุดที่รีสตาร์ทที่ 0 เมื่อผ่านไป 100 ทำให้เป็นตัวโหลดแบบครั้งเดียวเท่านั้น:

a='\|/-';for i=0:100;clc;disp(['Loading ',a(1),' ',num2str(i),' %']);a=a([2:4,1]);pause(0.749*rand+.001);end

การไหลเวียนa, a=a([2:4,1])เป็นความคิด flawr ของที่นี่ นอกจากนี้ยังบันทึก 2 ไบต์ด้วยการข้ามวงเล็บหลังจากrandขอบคุณ MattWH

ForceLang, 250 ไบต์

ไม่ใช่การแข่งขันต้องใช้คุณสมบัติภาษาที่โพสต์คำถาม

def D def
D w io.write
D l e+"loading"+s
D z string.char 8
D s string.char 32
D d datetime.wait 750.mult random.rand()
D e z.repeat 24
D n set i 1+i
D k s+n+s+"%"
set i -1
label 1
w l+"-"+k
if i=100
exit()
d
w l+"\"+k
d
w l+"|"+k
d
w l+"/"+k
d
goto 1

ฉันควรแก้ไขข้อบกพร่องบางอย่างที่เกี่ยวข้องกับการแยกวิเคราะห์สตริงในไม่ช้า

แร็กเก็ต 110 ไบต์

(for((i 101))(printf"Loading ~a ~a % ~n"(list-ref'("-" "\\" "|" "/")(modulo i 4))i)(sleep(/(random 750)1000)))

Ungolfed:

(define(f)
  (for ((i 101))
    (printf "Loading ~a ~a % ~n" (list-ref '("-" "\\" "|" "/") (modulo i 4)) i)
    (sleep (/(random 750)1000))))

การทดสอบ:

(f)

เอาท์พุท:

(ไฟล์ gif นี้แสดงผลช้ากว่าความเป็นจริง)

107 75 ทับทิม

-32 ขอบคุณ manatwork

ปกติ

i=0
(0..100).each{|c|
system'clear'
puts"loading #{'\|/-'[i=-~i%4]} #{c} %"
sleep rand*(0.750-0.01)+0.01
}

แข็งแรงเล่นกอล์ฟ

101.times{|c|$><<"\rloading #{'-\|/'[c%4]} #{c} %";sleep rand*0.749+0.001}

Python 3, 149 ไบต์

import time,random;f=0;n=0
while n<=100:
 print("Loading...","|/-\\"[f],n,"%",end="\r");f+=1
 if f>=3:f=0
 n+=1
 time.sleep(random.uniform(.25,.75))

คล้ายกับกำลังโหลด ... ตลอดไป แต่ฉันต้องแก้ไขคำตอบจากที่นั่นบ่อยๆ

TI-Basic, 80 ไบต์

For(I,0,100
For(A,0,randE2
End
Text(0,0,"loading "+sub("-\|/",1+fPart(I/4),1)+" ",I," %
End

การสุ่มมาจากFor(ลูป (E คือโทเค็น E ทางวิทยาศาสตร์) และเนื่องจาก TI-Basic ถูกตีความจึงมีค่าใช้จ่ายโดยอัตโนมัติเช่นกัน โปรดจำไว้ว่าใน TI-Basic ตัวอักษรตัวพิมพ์เล็กและสัญลักษณ์ ASCII ที่พบน้อยกว่านั้นมีสองไบต์แต่ละตัว (ดังนั้นโดยเฉพาะสำหรับโปรแกรมนี้l o a d i n g sub( \ | %คือโทเค็นแบบสองไบต์

Clojure, 109 ไบต์

(doseq[[c i](map vector(cycle"\\|/-")(range 101))](print"\rloading"c i\%)(flush)(Thread/sleep(rand-int 751)))

วนรอบรายการช่วงของตัวเลขตั้งแต่ 0 ถึง 100 บีบอัดด้วยรายการที่ไม่มีที่สิ้นสุดของการ"\|/-"ทำซ้ำอย่างถาวร

; (map vector...) is how you zip in Clojure
;  All arguments after the first to map are lists. The function is expected to
;  take as many arguments as there are lists. vector is var-arg.
(doseq [[c i] (map vector (cycle "\\|/-") (range 101))]
  ; \r to erase the old line
  (println "\rloading" c i \%)
  (Thread/sleep (rand-int 751)))

tcl, 116

set i 0;time {lmap c {- \\ | /} {puts -nonewline stderr "\rloading $c $i%";after [expr int(187*rand())]};incr i} 100

สามารถเล่นได้ในhttp://www.tutorialspoint.com/execute_tcl_online.php?PID=0Bw_CjBb95KQMOXoybnVSOVJEU00

Java 8, 130 ไบต์

()->{for(int n=0;n<101;Thread.sleep((long)(1+Math.random()*750)))System.out.print("\rloading "+"-\\|/".charAt(n%4)+" "+n+++" %");}

คำอธิบาย:

()->{                           // Method without parameter nor return-type
  for(int n=0;n<101;            //  Loop from 0 to 100
      Thread.sleep((long)(1+Math.random()*750)))
                                //   And sleep randomly 1-750 ms 
    System.out.print(           //   Print:
      "\r                       //    Reset to the start of the line
      loading "                 //    Literal "loading "
      +"-\\|/".charAt(n%4)+" "  //    + the spinner char & a space
      +n++                      //    + the number (and increase it by 1)
      +" %");                   //    + a space & '%'
                                //  End of loop (implicit / single-line body)
}                               // End of method

gif เอาท์พุท:

Visual Basic, 371 ไบต์

module m
sub main()
Dim s as Object
for i as Integer=0 to 100
Select Case new System.Random().next(0,9)
Case 0
s=1
Case 1
s=2
Case 2
s=5
Case 3
s=10
Case 4
s=15
Case 5
s=20
Case 6
s=25
Case 7
s=50
Case 8
s=500
End Select
Console.SetCursorPosition(0,0)
console.write("loading "+"-\|/"(i mod 4)+" "+i.tostring+" %")
system.threading.thread.sleep(s)
next
end sub
end module

ขยาย:

module m
    sub main()
        Dim s as Object
        for i as Integer=0 to 100
            Select Case new System.Random().next(0,9)
                Case 0
                s=1
                Case 1
                s=2
                Case 2
                s=5
                Case 3
                s=10
                Case 4
                s=15
                Case 5
                s=20
                Case 6
                s=25
                Case 7
                s=50
                Case 8
                s=500
            End Select
            Console.SetCursorPosition(0,0)
            console.write("loading " + "-\|/"(i mod 4) + " " + i.tostring + " %")
            system.threading.thread.sleep(s)
        next
    end sub
end module