Симулятор тяжкості

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

Таблиця лідерів

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

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

Відповіді:

6

JavaScript (ES6), 157 196

Відредагуйте char by char замість рядка за рядком, набагато кращий результат

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 байт, вартість. Основний код див. Нижче.

Фрагмент TEST (краще повну сторінку)

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
джерело
Приємно! Мені доводиться багато чому вчитися в гольфі
— usandfriends
ви не повинні відображати значення> 9 з v>9?9:v?
— Тит
@Titus Я міг би, але насправді я міг би робити все, що завгодно, оскільки значення> 9 не очікується, дивіться коментар OP, відповідаючи на моє запитання.
— 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`
`}

Безголівки:

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

Java, занадто багато 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
— Rohan Jhunjhunwala
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
— Тіт
джерело
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.