Создайте панель загрузки в стиле Windows, следуя инструкциям.

^{(обратите внимание, что это отличается от загрузки ... навсегда )}

Ваш вывод должен начинаться с [.... ].

Каждый тик, вы должны подождать 100 мс, а затем переместить каждую точку на один символ вправо. если точка находится на десятом символе, переместите его на первый. Обратите внимание, что вы должны очистить экран перед повторным выводом. Вывод упорядочен следующим образом:

[....      ]
[ ....     ]
[  ....    ]
[   ....   ]
[    ....  ]
[     .... ]
[      ....]
[.      ...]
[..      ..]
[...      .]

.. Затем он зацикливается навсегда.

правила

• Это код-гольф , поэтому самый короткий ответ выигрывает, ^{я сомневаюсь, что я бы даже принял выигрышный ответ, хотя}
• Пожалуйста, предоставьте GIF-файл панели загрузки в действии, если это возможно.

V, 17 16 15 байтов

i[´.¶ ]<esc>ògó$X|p

<esc>есть 0x1b.

И hexdump:

00000000: 695b b42e b620 5d1b f267 f324 587c 70    i[... ]..g.$X|p

объяснение

i                       " Insert
[                       " a [
´.                      " 4 .s
¶<space>                " 6 spaces
]<esc>                  " and a ]. Then return to normal mode
ò                       " Recursively do:
 gó                     "  Sleep for 100 milliseconds
 $                      "  Go to the ]
 X                      "  Delete the character to the left of the ]
 |                      "  Go to the [
 p                      "  And paste the deleted character right after the [
                        " Implicit ending ò

CSS / HTML, 202 190 186 + 45 = 247 235 231 байт

pre{position:relative}x{position:absolute;display:inline-block;width:10ch;height:1em;overflow:hidden}x>x{width:14ch;left:-10ch;animation:1s steps(10,end)infinite l}@keyframes l{to{left:0

<pre>[<x><x>....      ....</x></x>          ]

Изменить: Сохранено 12 14 байт благодаря @Luke.

PowerShell, 67 66 байт

for($s='.'*4+' '*6;$s=-join($s[,9+0..8])){cls;"[$s]";sleep -m 100}

-1 с помощью сокращенного конструктора благодаря Beatcracker

заменяет строку копией строки, в которой последний символ помещается перед остальными символами, очищает экран, печатает его, а затем спит в течение 100 мс.

сэкономил много байтов, используя конструктор цикла for, а не заключал логику в строку.

Python 3 , 99 93 85 83 + 2 ( -u flag ) байтов

^{-12 байт благодаря овсу
-2 байта благодаря полностью человеческому}

import time
s=4*'.'+6*' '
while 1:print(end='\r[%s]'%s);time.sleep(.1);s=s[9]+s[:9]

Попробуйте онлайн!

Пакет Windows, 201 181 байт

Оказывается, использование метода старой школы на самом деле экономит байты!

@for %%p in ("....      " " ....     " "  ....    " "   ....   " "    ....  " "     .... " "      ...." ".      ..." "..      .." "...      .")do @echo [%%~p]&timeout 0 >nul&cls
@%0

Заметка:

get-screenrecorder.level
- low grade

get-gpu.level
- horrible

if get-screenrecorder.level == low grade || get-gpu.level == horrible {
     say("GIF may not be accurate");
}

Пожалуйста, обратите внимание, что мой GIF-рекордер пропустил несколько кадров, делая скачок полосы загрузки :(

Mathematica, 67 77 байт

+10 байт, как я забыл квадратные скобки.

Animate["["<>"....      "~StringRotateRight~n<>"]",{n,1,10,1},RefreshRate->10]

C (gcc) , 126 125 124 123 122 121 119 118 117 114 115 байтов

Этот использует битовую маску, чтобы отслеживать, где находятся точки.

Мне пришлось добавить еще один байт, так как раньше я выводил только 5 пробелов.

m=30;f(i){usleep(3<<15);system("clear");for(i=1;i<1920;i*=2)putchar(i^1?i&m?46:32:91);m+=m&512?m+1:m;f(puts("]"));}

Попробуйте онлайн!

Javascript (ES6), 86 байт

setInterval('with(console)clear(),log(`[${x=x[9]+x.slice(0,9)}]`)',100,x='...      .')

JavaScript (ES6) + HTML, 104 85 83 байта

f=(s="....      ")=>setTimeout(f,100,s[9]+s.slice(0,9),o.value=`[${s}]`)
<input id=o

• Сохранено 2 байта благодаря Йохана , чтобы я использовал inputвместо pre.

Попытайся

Требует закрытия >на inputтеге, чтобы функционировать в сниппет.

(f=(s="....      ")=>setTimeout(f,100,s[9]+s.slice(0,9),o.value=`[${s}]`))()

<input id=o>

Noodel , 16 15 14 13 байт

[CỤ'Ṁ ~ ððÐ] ʠḷẸḍt

] ʠ [Ð. × 4¤ × 6⁺ḷẸḍt

] ʠ⁶¤⁴.ȧ [ėÐḷẸḍt

Попытайся:)

Как это работает

]ʠ⁶¤⁴.ȧ[ėÐḷẸḍt

]ʠ⁶¤⁴.ȧ[ėÐ     # Set up for the animation.
]              # Pushes the literal string "]" onto the stack.
 ʠ             # Move the top of the stack down by one such that the "]" will remain on top.
  ⁶¤           # Pushes the string "¤" six times onto the stack where "¤" represents a space.
    ⁴.         # Pushes the string "." four times onto the stack.
      ȧ        # Take everything on the stack and create an array.
       [       # Pushes on the string literal "[".
        ė      # Take what is on the top of the stack and place it at the bottom (moves the "[" to the bottom).
         Ð     # Pushes the stack to the screen which in Noodel means by reference.

          ḷẸḍt # The main animation loop.
          ḷ    # Loop endlessly the following code.
           Ẹ   # Take the last character of the array and move it to the front.
            ḍt # Delay for a tenth of a second.
               # Implicit end of loop.

Обновить

[Ð]ıʠ⁶¤⁴.ḷėḍt

Попытайся:)

Не знаю, почему это заняло у меня некоторое время, чтобы подумать. Так или иначе, это помещает это в 13 байтов .

[Ð]ıʠ⁶¤⁴.ḷėḍt

[Ð]ıʠ⁶¤⁴.     # Sets up the animation.
[             # Push on the character "["
 Ð            # Push the stack as an array (which is by reference) to the screen.
  ]           # Push on the character "]"
   ı          # Jump into a new stack placing the "[" on top.
    ʠ         # Move the top of the stack down one.
     ⁶¤       # Push on six spaces.
       ⁴.     # Push on four dots.

         ḷėḍt # The main loop that does the animation.
         ḷ    # Loop the following code endlessly.
          ė   # Take the top of the stack and put it at the bottom.
           ḍt # Delay for a tenth of a second.

<div id="noodel" code="[Ð]ıʠ⁶¤⁴.ḷėḍt" input="" cols="12" 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>

PHP, 67 байт

for($s="...      .";$s=substr($s.$s,9,10);usleep(1e5))echo"\r[$s]";

без комментариев

C #, 162 157 байт

()=>{for(string o="[....      ]";;){o=o.Insert(1,o[10]+"").Remove(11,1);System.Console.Write(o);System.Threading.Thread.Sleep(100);System.Console.Clear();}};

или как целая программа на 177 байт

namespace System{class P{static void Main(){for(string o="[....      ]";;){o=o.Insert(1,o[10]+"").Remove(11,1);Console.Write(o);Threading.Thread.Sleep(100);Console.Clear();}}}}

Чистая Баш, 68

s=${1:-....      }
printf "[$s]\r"
sleep .1
exec $0 "${s: -1}${s%?}"

MATL , 24 байта

`1&Xx'['897B@YS46*93hhDT

Попробуйте это в MATL Online! Или посмотрите GIF из автономного компилятора:

объяснение

`        % Do...while
  1&Xx   %   Pause for 0.1 s and clear screen
  '['    %   Push this character
  897B   %   Push [1 1 1 0 0 0 0 0 0 1]
  @      %   Push current iteration index, 1-based
  YS     %   Circularly shift the array by that amount
  46*    %   Multiply by 46 (code point of '.')
  93     %   Push 93 (code point of ']')
  hh     %   Concatenate horizontally twice. Numbers are interpreted as chars
         %   with the corresponding code points
  D      %   Display
  T      %   Push true. Used as loop condition. Results in an infinite loop
         % End (implicit)

Желе , 28 27 байт

ṙ©-j@⁾[]ṭ”ÆȮœS.1®ß
897ṃ⁾. Ç

Как?

ṙ©-j@⁾[]ṭ”ÆȮœS.1®ß - Link 1, the infinite loop: list of characters s
ṙ                  - rotate s left by:
  -                -   -1 (e.g. "...      ." -> "....      ")
 ©                 -   copy to the register and yield
     ⁾[]           - literal ['[',']']
   j@              - join with reversed @rguments
         Ӯ        - literal '\r'
        ṭ          - tack (append the display text to the '\r')
           Ȯ       - print with no newline ending
              .1   - literal 0.1
            œS     - sleep for 0.1 seconds then yield the printed text (unused)
                ®  - recall the value from the register
                 ß - call this link (1) again with the same arity

897ṃ⁾. Ç - Main link: no arguments
897      - literal 897
    ⁾.   - literal ['.',' ']
   ṃ     - base decompression: convert 897 to base ['.',' '] = "...      ."

C (gcc), 202 198 196 189 96 99 88 86 79 77 75 74 73 байта

Сохранено 7 8 байт благодаря Digital Trauma .

f(i){usleep(dprintf(2,"\r[%-10.10s]","....      ...."+i%10)<<13);f(i+9);}

Или, если ваша система stdout не нуждается в сбросе после каждой записи без перевода строки:

C (gcc), 70 байт

f(i){usleep(printf("\r[%-10.10s]","....      ...."+i%10)<<13);f(i+9);}

Как это работает

• usleep( спит для следующего возвращаемого значения в микросекундах.
• dprintf(2,печатает в дескриптор файла 2, или stderr. Это необходимо, поскольку while stdoutбуферизуется строкой (то есть вывод не будет отображаться до тех пор, пока не будет напечатана новая строка), stderrбуферизуется символами (весь вывод отображается немедленно).
• "\r печатает возврат каретки (очищает текущую строку).
• [%-10.10s]"является printfспецификатором формата для строки с точной длиной 10 (независимо от того, какая строка при условии, что на выходе всегда будет строка длиной 10), дополненная пробелами справа, если необходимо. Это будет заключено в скобки.
• ".... ...." это панель загрузки.
• +i%10смещает полосу загрузки на текущий индекс по модулю 10. Например, если i == 3,i % 10 равно 3. Взаимозачет планки загрузки на 3 делает его , равным ". ....".
• Когда смещенная строка передается в printfспецификатор формата, она ограничивается длиной 10, если необходимо, и добавляет пробелы в конец, если необходимо. Поэтому полоса загрузки всегда будет между [.... ]и [. ...].

Java 7, 139 124 байта

String s="....      ";void c()throws Exception{System.out.print("["+s+"]\r");s=(s+s).substring(9,19);Thread.sleep(100);c();}

• Упоминание \rспасибо @Phoenix .

Возврат каретки \rсбрасывает курсор в начало строки, которая затем может быть перезаписана. К сожалению, онлайн-компиляторы и Eclipse IDE не поддерживают это, поэтому я добавил gif в конце этого ответа, чтобы показать его из командной строки Windows.

Попробуй это здесь.(Немного изменено, поэтому вам не придется ждать тайм-аут перед просмотром результата. Кроме того, TIO не поддерживает возврат каретки, поэтому каждая строка печатается без перезаписи предыдущей строки.)

Объяснение:

String s="....      ";            // Starting String "....      " on class level
void c()                          // Method without parameter nor return-type
 throws Exception{                // throws-clause/try-catch is mandatory for Thread.sleep
  System.out.print("["+s+"]\r");  //  Print the String between square-brackets,
                                  //  and reset the 'cursor' to the start of the line
  s=(s+s).substring(9,19);        //  Set `s` to the next String in line
  Thread.sleep(100);              //  Wait 100 ms
  c();                            //  Recursive call to same method
}                                 // End of method

Выходной GIF:

Python 2 , 81 78 байт

-1 байт (замечая, что я пропустил использование, %sкогда Род представил почти идентичную версию Python 3 одновременно!)
-2 байта (используя идею полностью человека - заменить s[-1]+s[:-1]на s[9]+s[:9])

import time
s='.'*4+' '*6
while s:print'\r[%s]'%s,;s=s[9]+s[:9];time.sleep(.1)

Go , 150 145 132 129 124 байта

-5 байт благодаря sudee.

Я чувствую, что не вижу достаточно. Иди сюда ... Но мой ответ превосходит С, так что ... пожалуйста, помогите в гольф?

package main
import(."fmt"
."time")
func main(){s:="....      ";for{Print("\r["+s+"]");Sleep(Duration(1e8));s=(s+s)[9:19];}}

Попробуйте онлайн!

VBA 32-битный, _{159 157 143 141} 134 байта

VBA не имеет встроенной функции, которая позволяет ожидать периоды времени менее одной секунды, поэтому мы должны объявить функцию из kernel32.dll

32-битное объявление объявления (41 байт)

Declare Sub Sleep Lib"kernel32"(ByVal M&)

Заявление 64-битного объявления (49 байт)

Declare PtrSafe Sub Sleep Lib"kernel32"(ByVal M&)

Кроме того, мы должны включить DoEvents флаг, чтобы из-за бесконечного цикла Excel не отображался как неотвечающий. Последняя функция - это подпрограмма, которая не принимает никаких входных данных и выводит их в непосредственное окно VBE.

Функция непосредственного окна, 93 байта

Функция анонимного непосредственного окна VBE, которая не принимает никаких входных и выходных данных в диапазоне A1ActiveSheet

s="...      ....      .":Do:DoEvents:Sleep 100:[A1]="["&Mid(s,10-i,10)&"]":i=(i+1)Mod 10:Loop

Старая версия, 109 байт

Функция непосредственного окна, которая не принимает никаких входных данных и выводит их в непосредственное окно VBE.

s="...      ....      .":i=0:Do:DoEvents:Sleep 100:Debug.?"["&Mid(s,10-i,10)&"]":i=(i+1) Mod 10:Loop

Неутолщенный и отформатированный

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal M&)
Sub a()
    Dim i As Integer, s As String
    s = "...      ....      ."
    i = 0
    Do
        Debug.Print [REPT(CHAR(10),99]; "["; Mid(s, 10 - i, 10); "]"
        DoEvents
        Sleep 100
        i = (i + 1) Mod 10
    Loop
End Sub

-2 байта для удаления пробелов

-30 байт для правильного подсчета

-14 байт для преобразования в непосредственную оконную функцию

Выход

GIF ниже использует полную версию подпрограммы, потому что мне было лень перезаписать это с помощью функции непосредственного окна.

05AB1E , 23 байта

'.4×ð6×J[D…[ÿ],Á¶т×,т.W

Попробуйте онлайн!

объяснение

'.4×ð6×J                  # push the string "....      "
        [                 # forever do:
         D                # duplicate
          …[ÿ],           # interpolate the copy between brackets and print
               Á          # rotate the remaining copy right
                ¶т×,      # print 100 newlines
                    т.W   # wait 100ms

Пакетный, 99 98 байт

Сохранено 1 байт благодаря SteveFest!

(Я мог бы удалить \rиз кода, но в духе пакетной игры в гольф, я не буду.)

@SET s=....      
:g
@CLS
@ECHO [%s%]
@SET s=%s:~-1%%s:~,-1%
@ping 0 -n 1 -w 100>nul
@GOTO g

Есть четыре пробела после первой строки.

Основная логика - изменение строки. %s:~-1%это последний символ %s%и%s:~0,-1% является только последним символом %s%. Таким образом, мы перемещаем последний символ в начало строки, которая вращает строку.

Руби, 57 56 байт

s=?.*4+' '*6;loop{$><<"[%s]\r"%s=s[-1]+s.chop;sleep 0.1}

Сильно под влиянием других ответов здесь.

Сохраненный байт благодаря @manatwork. Также, по-видимому, у меня проблемы с подсчетом символов - я использую ST3, и, очевидно, он будет включать в себя новые строки в количестве символов в строке, если вы не будете внимательны.

Perl, 69 байт

-3 байта благодаря @Dom Hastings .

$_="....".$"x6;{print"\ec[$_]
";select$a,$a,!s/(.*)(.)/$2$1/,.1;redo}

Это select undef,undef,undef,.1самый короткий способ спать менее 1 секунды в Perl, и он занимает много байтов ...

Чуть дольше (79 байт) есть:

@F=((".")x4,($")x6);{print"\ec[",@F,"]\n";@F=@F[9,0..8];select$a,$a,$a,.1;redo}

Bash, 93 90 96 байт

s="...      ....      ."
for((;;)){ for i in {0..9};do printf "\r[${s:10-i:10}]";sleep .1;done;}

посмотреть здесь

не может быть вложенным {} для синтаксиса

Groovy, 72 байта

s="*"*4+" "*6
for(;;){print("["+s+"]"+"\n"*20);s=s[9]+s[0..8];sleep 100}

Explaination

s="*"*4+" "*6 //creates the string "****      "
for(;;){ //classic infinite loop
    print("["+s+"]"+"\n"*20) //prints the string with [ at the beginning and ] at the end. After that some newlines
    s=s[9]+s[0..8] //appends the final char of the string to beginning, creating a cycling illusion
    sleep 100 //100 ms delay
}

Haskell (Windows), 159 байт

import System.Process
import Control.Concurrent
main=mapM id[do system"cls";putStrLn('[':["....      "!!mod(i-n)10|i<-[0..9]]++"]");threadDelay(10^5)|n<-[0..]]

объяснение

mapM id             sequentially perform each IO action in the following list
[                   start a list comprehension where each element is...
  do                  an IO operation where
    system "cls";       we clear the screen by calling the windows builtin "cls"
    putStrLn(           then display the string...
      '[':                with '[' appended to
      [                   a list comprehension where each character is...
        "....      "!!       the character in literal string "....      " at the index
        mod(i-n)10          (i - n) % 10
      |i<-[0..9]]         where i goes from 0 to 9
      ++"]"             and that ends with ']'
    );
    threadDelay(10^5)   then sleep for 100,000 microseconds (100 ms)
|n<-[0..]]          where n starts at 0 and increments without bound

Чистота Хаскелла делала создание шаблона с циклическими точками несколько сложным. Я закончил тем, что создал понимание вложенного списка, которое генерировало бесконечный список строк в порядке их вывода, затем вернулся и добавил соответствующие операции ввода-вывода.

Рубин, 61 байт

Если бы спецификация была для точек, чтобы прокрутить влево, а не вправо, это бы сэкономило 1 байт, потому что rotate! без аргументов массив сдвигал один раз влево.

s=[?.]*4+[' ']*6
loop{print ?[,*s,"]\r";s.rotate!9;sleep 0.1}

GNU sed (с расширением exec), 64

Оценка включает +1 для -rфлага.

s/^/[....      ]/
:
esleep .1
s/[^. ]*(.+)(.)].*/\c[c[\2\1]/p
b

с, 100

char *s="....      ....     ";main(i){for(i=0;;i=(i+9)%10)dprintf(2,"[%.10s]\r",s+i),usleep(3<<15);}