Гравитационный симулятор

33

утверждение

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

Элементы внутри сетки

  • - Пол, не меняет направление падающих шаров.
  • \ Правое скольжение, изменяет путь мяча на одну (1) позицию вправо.
  • / Левый слайд, изменяет путь мяча на одну (1) позицию влево.
  • o Мяч.

правила

  • Шары падают.
  • Полы и горки не падают .
  • Если мяч ударяет по слайду, который заставит его пройти через стену ( \#или #/) или пересечь пол, слайд будет действовать как пол.
  • Когда мяч попадает в другой, он становится одним, но увеличивает их мощность до суммы обоих шаров.
  • Новые шары (объединенные) будут продолжать вести себя как обычно.
  • Когда мяч больше не может двигаться, его заменяет его сила.
  • Сила мяча всегда будет не более 9.

вход

Сетка будет задана в виде строковой переменной с кратким именем на выбранном вами языке. По умолчанию мы будем использовать aв качестве входа. Образец ввода, в точности как получено:

##########\n# \      #\n#o       #\n#  - -\o #\n#/-    \ #\n#  \oo-/\#\n#-/ \   /#\n#   \ \  #\n#       /#\n##########

Для генерируемых случайных сеток используйте https://repl.it/B1j3/2 . Вместо этого используйте мою сгенерированную страницу (без рекламы, без всякой ерунды, только вход и выход)

Обратите внимание на разрывы строк \n. Печать ввода на экран (не требуется для вызова) покажет такие вещи. Хотя я поставил четыре головоломки рядом с безопасным местом.

##########  ##########  ##########  ##########
# \      #  # o    -/#  #       o#  #-o /    #
#o       #  #    \   #  # o     -#  #-- \ /\ #
#  - -\o #  #-  \    #  #    - \o#  # - -- o-#
#/-    \ #  #        #  #o /\    #  #/ \     #
#  \oo-/\#  #o  -o-  #  # /    -o#  #/ /o oo/#
#-/ \   /#  #   -/-  #  # -  o  -#  #o/      #
#   \ \  #  #    \\  #  #   \o  /#  #o-o    o#
#       /#  # \o\  /\#  #     \o #  # -\o o /#
##########  ##########  ##########  ##########

Выход

Та же сетка, напечатанная на экране с конечным результатом силы мяча. Действительным ответом будет одна (1) из следующих головоломок, каждая из которых соответствует входу в одной и той же позиции, конечно, если вход отличается, вы должны отрегулировать выход. Не ограничивайтесь этими четырьмя!

##########  ##########  ##########  ##########
# \      #  #      -/#  #       1#  #-1 /    #
#        #  #    \   #  #       -#  #-- \ /\ #
#1 - -\  #  #-  \    #  #    - \ #  # - --  -#
#/-    \1#  #        #  #  /\    #  #/ \     #
#  \  -/\#  #   -1-  #  # /    -2#  #/ /    /#
#-/ \   /#  #   -/-  #  # -     -#  # /      #
#   \ \  #  #    \\  #  #   \   /#  # -      #
#    2  /#  #1\2\  /\#  #2   2\1 #  #2-\3 23/#
##########  ##########  ##########  ##########

Гол

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

Оценка - это количество байтов. В случае ничьей побеждает первый ответ, который достигнет ничьей.

Предупреждения

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

Уточняющие примеры движения мяча

######                       ######
#-o- #    BALL WOULD GO RD   #- - #
# \  #                       # \o #
######                       ######

######                       ######
#-o- #     BALL WOULD STAY   #-o- #
# \\ #                       # \\ #
######                       ######

######                       ######
#  -o#     BALL WOULD STAY   #  -o#
#   \#                       #   \#
######                       ######

######                       ######
#  o #     BALL WOULD STAY   #  o #
#  \/#                       #  \/#
######                       ######

######                       ######
#-o- #    BALL WOULD GO LD   #- - #
# /\ #                       #o/\ #
######                       ######

ОБНОВЛЕНИЕ

Как я могу проверить правильность моего ответа?

Я установил простую страницу на одном из моих сайтов, которая даст вам случайную головоломку и ответ. Возьмите вход и сравните его с выходом. Мое решение, не беспокоясь о гольфе, в Python (генератор, а также страница и Python)389b 355b

Leaderboard

Показать фрагмент кода

code-golf ascii-art grid simulation Хуан Кортес
источник
1
Мне напомнили о Марбелоусе .
Арктур
10
Бонусные баллы, если кто-нибудь ответит в Marbelous.
Mego
Пограничный обман из простой вещицы, а не из-за обычной бобовой машины
Питер Тейлор
звучит как потенциально ascii-art игра в пинбол
Khaled.K
@ JuanCortés, почему бы вам не использовать причудливый код таблицы лидеров, чтобы вам не приходилось обновлять рейтинги самостоятельно?
usandfriends

Ответы:

6

JavaScript (ES6), 157 196

Редактировать символ за символом вместо строки за строкой, намного лучший результат

g=>(s=~g.search`
`,g=[...g]).map((c,i)=>c<' '?0:g[[0,1,-1].map(d=>!d|'\\ /'[d+1]==g[d+=i]&&+g[d+=s]?g[v+=+g[d],d+v-v]=' ':0,v=c>'a'?1:+c),i]=v?v:c)&&g.join``

Примечание: не обрабатывает значения шаров> 9. Но это может стоить 18 байт. Смотрите основной код ниже.

Фрагмент теста (лучше на полной странице)

F=g=>(s=~g.search`
`,g=[...g]).map((c,i)=>c<' '?0:g[[0,1,-1].map(d=>!d|'\\ /'[d+1]==g[d+=i]&&+g[d+=s]?g[v+=+g[d],d+v-v]=' ':0,v=c=='o'?1:+c),i]=v?v:c)&&g.join``

// Basic code, starting point before golfing
B=g=>{
  s = ~g.search('\n');
  (g=[...g]).map((c,i)=>{
    v = c == 'o' ? 1 : +c
    if (c>=' ' // skip newlines
        && !isNaN(v)) // digit or space
    {
      if (w=+g[i+s]) v += w, g[i+s]=' '
      if (g[i-1]=='\\' && (w=+g[i+s-1])) v += w, g[i+s-1]=' '
      if (g[i+1]=='/' && (w=+g[i+s+1])) v += w, g[i+s+1]=' '
      if (v) g[i] = v
    }
  })      
  // return g.join``
  // To handle values > 9 ...
  return g.map(v=>+v?v%10:v).join``
}  

function test() {
  O.textContent = F(I.value)
}

test()
textarea,pre { width: 15em; height: 15em; display: block; margin: 0; }
iframe { height: 25em; width: 15em}
td { vertical-align: top }
<table>
  <tr>
    <th>Test cases</th>
    <th>Input</th>
    <td></td>
    <th>Output</th>
  </tr><tr>
    <td>
    Copy/paste test cases from here <br>(courtesy of OP)
    <button onclick="T.src='http://bohem.io/wadus/index.php'">reload</button><br>
    <iframe id=T src="http://bohem.io/wadus/index.php"></iframe>
    </td>
    <td><textarea id=I>##########
#  o  o o#
# o\o o  #
#oo o/   #
#       o#
#     /o #
#\o   o  #
# o /-   #
#   o  - #
##########</textarea></td>
    <td><button onclick='test()'>Test</button></td>
    <td><pre id=O></pre></td>
  </tr>
</table>
Развернуть фрагмент

edc65
источник
Ницца! У меня есть
чему поучиться
разве вы не должны сопоставлять значения> 9 с v>9?9:v?
Титус
@ Я мог бы, но на самом деле я мог делать все, что хотел, так как значение> 9 не ожидается, см. Комментарий ОП, отвечающий на мой вопрос.
edc65
5

Javascript (ES6), 453 426 409 306 290 286 байт

Первое и наиболее очевидное решение, которое пришло мне в голову, это то, что просматривает слайды, а затем объединяет или заменяет.

a=>{a=a.split`
`.map(b=>[...b.replace(/o/g,'1')]);for(r=1;r<a.length-1;r++){d=a[r];for(c=1;c<d.length-1;c++){e=a[r+1];f=e[c]=='\\'?c+1:e[c]=='/'?c-1:!isNaN(+e[c])?c:null;(''+d[c]).match(/[0-9]/g)&&f!=null&&!isNaN(+e[f])?(e[f]=+e[f]+ +d[c],d[c]=' '):0}}return a.map(b=>b.join``).join`
`}

Ungolfed:

func = state => {
    state = state.split `
`.map(line => [...line.replace(/o/g, '1')]);

    for (r = 1; r < state.length - 1; r++) {
        thisState = state[r];
        for (c = 1; c < thisState.length - 1; c++) {
            nextState = state[r + 1];
            nc = nextState[c] == '\\' ? c + 1 : nextState[c] == '/' ? c - 1 : !isNaN(+nextState[c]) ? c : null;

            ('' + thisState[c]).match(/[0-9]/g) && nc != null && !isNaN(+nextState[nc]) ? (
                nextState[nc] = +nextState[nc] + +thisState[c],
                thisState[c] = ' '
            ) : 0;
        }
    }

    return state.map(line => line.join ``).join `
`;
}

Тест как:

func(`##########
# -- o - #
# \\\\\\ -  #
#-       #
# o  o   #
#o \\\\ /-\\#
#      \\ #
#/-  //  #
#   /- o #
##########`)

Спасибо: @ edc65

usandfriends
источник
Я опубликую свой питон, когда буду уверен, что больше не смогу играть в гольф, но пока что именно код питона генерирует ответ. В любом случае, я могу где-нибудь проверить ваш код в гольфе, чтобы вывести вас в список лидеров? (jsfiddle, jsbin, ideone, что угодно)
Хуан Кортес
получил 355, ваш ход!
Хуан Кортес
@ JuanCortés Готово!
usandfriends
b.replace(/o/g,'1').split`` может быть сокращено до[...b.replace(/o/g,1)]
edc65
@ edc65 Думаю, я это исправил. По сути, он всегда сохраняет силу ниже 10, изменяя 10.
usandfriends
4

Ява, слишком много 1102 987 байт

Потому что Java.

\ о / Это под 1000!

class G{class T{char s;int p=0;T(char c){s=c;}}T A=new T(' ');T[][]o;boolean i(){for(int i=1;i<o.length;i++)for(int j=1;j<o[i].length;j++)if(o[i][j].p>0){if(m(i,j,i+1,j)||o[i+1][j].s=='/'&&m(i,j,i+1,j-1)||o[i+1][j].s=='\\'&&m(i,j,i+1,j+1))return 1>0;int w=o[i][j].p;o[i][j]=new T(Integer.toString(w).charAt(0)){{p=w;}};}return 1<0;}boolean m(int a,int b,int c,int d){if(o[c][d]==A||o[c][d].p>0){o[a][b].p+=o[c][d].p;o[c][d]=o[a][b];o[a][b]=A;return 1>0;}return 1<0;}String s(){String s="";for(T[]r:o){for(T t:r)s+=t.s;s+="\n";}return s;}void f(String s){String[]r=s.split("\\\\n");o=new T[r.length][r[0].length()];for(int i=0;i<o.length;i++)for(int j=0;j<o[i].length;j++)switch(r[i].charAt(j)){case'-':o[i][j]=new T('-');break;case'\\':o[i][j]=new T('\\');break;case'/':o[i][j]=new T('/');break;case'o':o[i][j]=new T('o'){{p=1;}};break;case'#':o[i][j]=new T('#');break;default:o[i][j]=A;}}public static void main(String[]a){G g=new G();g.f(a[0]);while(g.i());System.out.println(g.s());}}

Побочная цель была возможность печатать каждую итерацию доски: просто удалите среднюю ;ин while(g.i()) ; System.out.print(g.s());(хотя это отключить последнюю печать , которая имеет 0-> преобразование энергии). К сожалению, в этой версии гравитация работает странным образом. Каждый проход я беру первый не застрявший мяч и перемещаю его. Короткое замыкание iterate()- это меньше байтов, чем обход всей платы и возврат, если что-то изменилось.

Это полный основной класс, скомпилируйте и запустите в командной строке с аргументом:

java -jar G.jar "##########\n# o-/    #\n#-  / -/ #\n# oo   o #\n# /   \o #\n# o   o \#\n#    o   #\n#   -\o  #\n#\  \\ o/#\n##########"

«Читаемая» версия:

class GravitySimulator {
    class Token {
        char symbol;
        int power = 0;

        Token(char c) {
            symbol = c;
        }
    }

    Token A = new Token(' ');

    Token[][] board;

    boolean iterate() {
        for (int i=1; i<board.length; i++)
            for (int j=1; j<board[i].length; j++) 
                if (board[i][j].power>0) {
                    if (move(i,j,i+1,j) || board[i+1][j].symbol=='/' && move(i,j,i+1,j-1) || board[i+1][j].symbol=='\\' && move(i,j,i+1,j+1)) return true;
                    int pow = board[i][j].power;
                    board[i][j] = new Token(Integer.toString(pow).charAt(0)){{power=pow;}};
                }
        return false;
    }

    boolean move(int x1, int y1, int x2, int y2) {
        if (board[x2][y2] == A || board[x2][y2].power>0) {
            board[x1][y1].power += board[x2][y2].power;
            board[x2][y2] = board[x1][y1];
            board[x1][y1] = A;
            return true;
        } return false;
    }

    String string() {
        String s = "";
        for (Token[] row : board) {
            for (Token token : row) s+=token.symbol;
            s+="\n";
        }
        return s;
    }

    void fromString(String s) {
        String[] rows = s.split("\\\\n");
        board = new Token[rows.length][rows[0].length()];
        for (int i=0; i<board.length; i++) 
            for (int j=0; j<board[i].length; j++) 
                switch(rows[i].charAt(j)) {
                    case '-': board[i][j]=new Token('-');break;
                    case '\\':board[i][j]=new Token('\\');break;
                    case '/': board[i][j]=new Token('/');break;
                    case 'o': board[i][j]=new Token('o'){{power=1;}};break;
                    case '#': board[i][j]=new Token('#');break;
                    default:  board[i][j]=A;
                }
    }

    public static void main(String[] args) {
        GravitySimulator g = new GravitySimulator();
        g.fromString(args[0]);
        while(g.iterate());
        System.out.println(g.string());
    }
}
CAD97
источник
Такая ява многословна. +1
Рохан Джунджхунвала
1

Python3, 355b

g=g.replace("o","1").split("\n")
r=1
while r:
 r=0
 for y in range(len(g)):
  for x in range(len(g[y])):
   if g[y][x].isdigit():
    h=g[y+1]
    m={"/":-1,"\\":1}
    j=x+m[h[x]]if h[x]in m else x
    if("0"+h[j].strip()).isdigit():
     r=1
     g[y+1]=h[:j]+str(int(g[y][x])+int("0"+h[j]))+h[j+1:]
     g[y]=g[y][:x]+' '+g[y][x+1:]
print("\n".join(g))

Тест здесь

Хуан Кортес
источник
0

PHP, 228 204 197 194 байта

for($a=strtr($a,o,1);$c=$a[$i];$i++)$c>0&&(($d=$a[$t=$i+strpos($a,"
")+1])>" "?$d!="/"?$d!="\\"?$d>0:$a[++$t]<"!"||$a[$t]>0:$a[--$t]<"!"||$a[$t]>0:1)&&$a[$t]=min($a[$t]+$c,9).!$a[$i]=" ";echo$a;

выдает предупреждения в PHP 7.1. Вставьте, (int)прежде чем $a[$t]+$cисправить.

Запустите php -nr '$a="<string>";<code>'или попробуйте онлайн .

сломать

for($a=strtr($a,o,1);   # replace "o" with "1"
    $c=$a[$i];$i++)     # loop through string
    $c>0                    # if character is numeric
    &&(($d=$a[                  # and ...
        $t=$i+                  # 3: target position = current position + 1 line
            strpos($a,"\n")+1   # 2: width = (0-indexed) position of first newline +1
    ])>" "                  # if target char is not space
        ?$d!="/"                # and not left slide
        ?$d!="\\"               # and not right slide
        ?$d>0                   # but numeric: go
        :$a[++$t]<"!"||$a[$t]>0     # right slide: if target+1 is space or ball, then go
        :$a[--$t]<"!"||$a[$t]>0     # left slide: if target-1 is space or ball, then go
    :1                              # space: go
    )&&                     # if go:
        $a[$t]=min($a[$t]+$c,9) # move ball/merge balls
        .!$a[$i]=" "            # clear source position
    ;
echo$a;                 # print string
Titus
источник