Нарисуйте программу или функцию, которая будет записывать в STDOUT nраз (каждый за один шаг) строку, содержащую точку .в месте нахождения ходунка. Программа также должна записывать строку каждые sсекунды (или ждать sсекунды после каждой строки).

Случайное блуждание - это математическая формализация пути, который состоит из последовательности случайных шагов ( вики ), так что каждый новый шаг будет последним шагом плюс новое значение, поэтому любое tзначение шага является просто суммой всех случайных значений перед ИК плюс начальное значение.

Программа должна принимать 2 входа и использовать только пробелы " "и точки "."на выходе. Начальное значение ходунка будет 20таким, что на выходе должно быть точка после 19 пробелов.

                  . #19 spaces then a dot

На каждом новом шаге значение будет последним значением ходунка плюс одно из них [-2-1,0,1,2](шанс 20% каждый). После того, как новая позиция напечатана, программа должна подождать sнесколько секунд и перейти к следующему шагу. Если шаг выводит ходунка за пределы диапазона, 1 to 40его следует просто проигнорировать, и положение ходунка остается прежним. Количество пробелов всегда будет числом от 0 до 39.

пример

#input
Mywalk(s = 0.1, n = 30)

#output
                     .
                    .
                      .
                        .
                          .
                           .
                            .
                          .
                         .
                          .
                           .
                            .
                           .
                          .
                           .
                           .
                         .
                         .
                          .
                            .
                           .
                          .
                           .
                           .
                           .
                         .
                          .
                         .
                          .
                          .

Соображения

• Вы можете принять вход как любой разумный формат

• Самый короткий код выигрывает

• Это нормально, если ваша программа принимает только секунды как целые числа

Пиф, 39

J19VEK+.d0QW<.d0K)+*d=JhtS[Z39-+O5J2)\.

Принимает sв качестве первой строки ввода и nв качестве второй. Работает в командной строке, но не с онлайн-переводчиком. Моя первая программа Pyth! Гольф советы приветствуются.

Матлаб, 112

Основная идея состоит в том, чтобы создать список возможных следующих позиций и затем равномерно нарисовать одну из них. Если мы, например, находимся в позиции $ l = 1 $, возможные шаги были бы, [-1,0,1,2,3]конечно, если бы мы выбрали, -1это было бы неверно, и мы должны были бы остаться в той же позиции. Вот почему мы заменяем недопустимые позиции текущей позицией [1,0,1,2,3], а затем случайным образом выбираем элемент из этого обновленного списка.

ОП попросил нас нарисовать программу, и вот мы здесь:

Транскрипция:

function c(n,s);
l=19;                             %initialize position
for k=1:n;                          
    disp([ones(1,l)*32,'.']);     %print the line
    z=(-2:2)+l;                   %get vector of possible next steps (for l=1 we get [-1,0,1,2,3])
    z(z<0)=l;                     %prune invalids: here we just replace the the invalid positions with the current position
    z(z>39)=l;                    %   this ensures the same behaivour as staying in the same spot when going outside of the range
    l=z(randi(5));                %draw random sample of those
    pause(s);
end

Perl, 136 128 116 106 101 90 86

$p=19;map{say$"x$p.".";sleep $ARGV[0];$x=rand(5)+$p-2;$p=$x>0&&$x<40?$x:$p}1..$ARGV[1]

Требуется, чтобы секунды были целым числом.

Беги с perl <filename> <second delay> <number of steps>.

Здесь может быть больше возможностей для игры в гольф, хотя, честно говоря, я удивлен, что зашел так далеко. (Давай, только 6 байт, чтобы побить ответ bash ...)

изменения

• Сэкономили 8 байт, убрав ненужные скобки и расшифровав ARGV (на самом деле это короче)
• Сохранено еще 12 байтов, удалив $sи $nи просто используя простые $ARGV[0]и$ARGV[1]
• Сохранено еще 10 байтов, когда я понял, что могу использовать, $"и не нужно специально определять $uкак $undef.
• Сохранено еще 5 байтов, переставляя троичный и как $xиспользуется и используя mapвместо for.
• Сохранено 11 байтов за счет того, что они больше не принимают секунды как десятичные дроби (в спецификации испытаний сказано, что все в порядке).
• Сохранено еще 5 байтов, используя sayвместо print.

Питон 2, 124 119 байт

@janrn и @Steve Eckert: У меня недостаточно репутации, чтобы комментировать ваш ответ, но по сути ваша версия сокращена. Задача состоит в том, чтобы нарисовать программу или функцию , поэтому, используя ее, f(s,x)вы можете сохранить довольно много битов, а также можете max(0,min(x,39))избежать лишних ifпредложений. Получил это до:

import time,random as r
def f(s,x):
 n=19
 while x:print' '*n+'.';time.sleep(s);n=max(0,min(n+r.randint(-2,2),39));x-=1

Баш, 81

for((s=20;i++<$1;t=s,s+=RANDOM%5-2,s=s<0|s>39?t:s)){
printf %${s}s.\\n
sleep $2
}

Изменить: если шаг выводит ходунка за пределы диапазона от 1 до 40, его следует просто проигнорировать, и положение ходунка остается прежним обрабатывается правильно.

Ввод из параметров командной строки. Например:

$ ./randwalk.sh 5 0.5
                    .
                     .
                    .
                  .
                 .
$ 

Руби, 84

def w(s,n)q=19;n.times{puts ' '*q+'.';sleep s;q+=rand(5)-2;q=[[q,0].max,39].min};end

Python 2.7, 198 162 143 133

import time,random as r;p=20;s=0;d=input();w=input()
while s<d:
 print' '*p+'.';s+=1;p=max(1,min(p+r.randint(-2,2),40));time.sleep(w)

При вызове скрипта с python script.pyпомощью первого ввода указывается количество шагов, а второго - время между шагами (принимает float или int). Есть предложения по улучшению?

Правки

• сэкономлено 36 байт благодаря использованию print ' '*p+'.' , благодаря @corsiKlause Ho Ho Ho
• вниз на 19 байт, удалив отступы табуляции, заменив их одним пробелом или ; где это возможно
• На 10 байт меньше благодаря идее @Bruce_Forte с p=max(1,min(p+r.randint(-2,2),40))(я не могу также прокомментировать ваш ответ, но спасибо; не хочу копировать его полностью)

Обработка, 150 147

void w(int n,int s){int x=20,i,y,c=0;for(;c<n;c++){x+=y=int(random(5)-2);if(x>40||x<0)x-=y;for(i=1;i<x;i++)print(" ");println(".");delay(s*1000);}}

Использование:

void setup() {
    w(10,1);
}

Примечание: 1000не может быть изменено по 1e3типу.

Луа, 140 байт

Примечание. Для этой программы требуется пакет LuaSocket.

require"socket"p=19 for i=1,arg[2]+0 do print((" "):rep(p)..".")p=p+math.random(-2,2)p=p<0 and 0 or p>39 and 39 or p socket.sleep(arg[1])end

Perl 6 , 92 байта

my (\n,\s)=@*ARGS;$/=19;for (-2..2).roll(n) {put ' 'x($/+=(40>$/+$_>=0??$_!!0)),'.';sleep s} # 92

my (\n,\s)=@*ARGS;
$/=19;
for (-2..2).roll(n) {
  put ' 'x($/+=(40>$/+$_>=0??$_!!0)),'.';
  sleep s
}

Использование:

$ perl6 -e 'my (\n,\s)=@*ARGS;$/=19;for (-2..2).roll(n) {put " "x($/+=(40>$/+$_>=0??$_!!0)),".",;sleep s}' 10 0.001
                  .
                .
               .
              .
               .
                .
               .
                .
                  .
                 .

JavaScript (ES6), 125 байт

(s,n)=>(t=setTimeout)(c=`console.log(" ".repeat(p)+".");p+=m=Math.random()*5|0;p-=p>41|p<2?m:2;--i&&t(c,d)`,d=s*1e3,p=19,i=n)

объяснение

(s,n)=>
  (t=setTimeout)(                     // set inital timeout
    c=`                               // c = code for timeout to execute
      console.log(" ".repeat(p)+"."); // print the current line
      p+=m=Math.random()*5|0;         // move walker 0 - 4 positions to the right
      p-=p>41|p<2?                    // if walker was moved out of bounds (2 - 41 instead
                                      //     of 0 - 39 because the random move of 0 - 4 to
                                      //     the right has not had the 2 subtracted yet)
        m:                            // undo the move
        2;                            // else subtract 2 to make the move -2 to 2
      --i&&t(c,d)                     // while we have steps remaining schedule next one
    `,
    d=s*1e3,                          // d = milliseconds to wait between steps
    p=19,                             // p = position of walker (0 indexed)
    i=n                               // i = steps remaining (needed to make n global)
  )

Тест

console.log = s => result.textContent += s + "\n";
var solution = (s,n)=>(t=setTimeout)(c=`console.log(" ".repeat(p)+".");p+=m=Math.random()*5|0;p-=p>41|p<2?m:2;--i&&t(c,d)`,d=s*1e3,p=19,i=n)

<input type="number" id="seconds" value="0.1" /><br />
<input type="number" id="steps" value="30" /><br />
<button onclick="solution(+seconds.value,+steps.value)">Go</button>
<pre id="result"></pre>

к4, 61 знак

f:{y{-1((y:1|40&y+-2+*1?5)#" "),".";."\\sleep ",$x;y}[x]\20;}

образец прогона:

  f[.1]30
                      .
                    .
                    .
                   .
                   .
                  .
                  .
                   .
                   .
                     .
                    .
                  .
                  .
                    .
                   .
                   .
                 .
                .
               .
               .
              .
            .
          .
         .
         .
          .
            .
              .
              .
                .

Математика, 122 117 байт

$RecursionLimit=∞;If[#2>0,Print[Indent[a=Min[#3+RandomInteger@{-2,2},39]~Max~0],"."];Pause@#;#0[#,#2-1,a]]&[##,19]&

Рекурсивная анонимная функция, принимает данные в указанном порядке. Возможно, будет дальше в гольф.

Python 3, 154 байта

import time
from random import*
w=int(input())
z=int(input())
g=19
c=6
s=" "
while c:
    c-=1
    s+=s
while z:
    z-=1
    if -1<g<40:
        print(s[:g]+'.')
    time.sleep(w)
    g+=randint(-2,2)

Сгенерируйте строку пробелов, превышающую максимальную требуемую длину, затем напечатайте ТОЛЬКО эту строку до символа с индексом «g», затем напечатайте «.». Завершите, увеличив g на случайное значение в диапазоне [-2: 2], и повторите.

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

С-функция, 114

s=20,i,t;w(int n,float f){for(;i++<n;t=s,s+=rand()%5-2,s=s<0||s>39?t:s,usleep((int)(f*1e6)))printf("%*c.\n",s,0);}

Практически прямой перевод моего ответа Bash .

Полная тестовая программа:

s=20,i,t;w(int n,float f){for(;i++<n;t=s,s+=rand()%5-2,s=s<0||s>39?t:s,usleep((int)(f*1e6)))printf("%*c.\n",s,0);}

int main (int argc, char **argv) {
  w(10, 0.2);
  return 0;
}