Тік-так-носок з лише хрестами


32

Вступ

Всім відома гра tic-tac-toe, але в цьому виклику ми збираємось запровадити невеликий поворот. Ми будемо використовувати лише хрестики . Перша людина, яка поставить три хрести підряд, програє. Цікавий факт, що максимальна кількість хрестів, перш ніж хтось програє, дорівнює 6 :

X X -
X - X
- X X

Це означає, що для дошки 3 х 3 максимальна сума - 6 . Отже, для N = 3 нам потрібно вивести 6.

Інший приклад для N = 4 або плати 4 x 4:

X X - X
X X - X
- - - -
X X - X

Це оптимальне рішення, ви можете бачити, що максимальна кількість хрестів дорівнює 9 . Оптимальним рішенням для плати 12 х 12 є:

X - X - X - X X - X X -
X X - X X - - - X X - X
- X - X - X X - - - X X
X - - - X X - X X - X -
- X X - - - X - - - - X
X X - X X - X - X X - -
- - X X - X - X X - X X
X - - - - X - - - X X -
- X - X X - X X - - - X
X X - - - X X - X - X -
X - X X - - - X X - X X
- X X - X X - X - X - X

Це призводить до 74 .

Завдання

Завдання проста, з урахуванням цілого числа, що перевищує 0, вивести максимальну кількість хрестів, які можна розмістити без трьох сусідніх X у рядку уздовж рядка, стовпця або по діагоналі.

Тестові справи

N     Output
1     1
2     4
3     6
4     9
5     16
6     20
7     26
8     36
9     42

Більше інформації можна знайти на https://oeis.org/A181018 .

Правила

  • Це , тому подання з найменшою кількістю байтів виграє!
  • Ви можете надати функцію або програму.

7
Тож питання просто зводиться до використання формул на сторінці, яку ви пов’язали ...
nicael

2
Пов’язана публікація на Math.
AdmBorkBork

7
@nicael Наскільки я можу бачити, стаття OEIS містить лише нижчі межі.
Мартін Ендер

6
Було б круто, щоб це сприйняло як найшвидший виклик коду.
Лука

4
Це не рішення кодогольфа, але я грав у "візуальний" вирішувач останні кілька днів. Ви можете отримати доступ до jsfiddle тут: jsfiddle.net/V92Gn/3899 Він намагається знайти рішення за допомогою випадкових мутацій. Він не зупиниться, якщо знайде "правильну" відповідь, але до багатьох правильних рішень можна дійти набагато швидше, ніж відповіді нижче.
стилетрон

Відповіді:


11

Pyth, 57 51 49 байт

L.T.e+*]Ykbbsef!s.AMs.:R3ssmyBdsm_BdCBcTQsD^U2^Q2

Як і рішення CJam @ PeterTaylor, це жорстока сила, тому він працює в O (n 2 2 n 2 ) час. Онлайн-перекладач не закінчується протягом хвилини протягом n = 4.

Спробуйте тут для N <4.

Спробуйте функцію діагоналей .

L.T.e+*]Ykbb         y(b): diagonals of b (with some trailing [])
s e                  sum of the last (with most ones) array such that
f                    filter lambda T:
 ! s .AM                none of the 3 element sublists are all ones               
   s .:R3               all 3 element sublists
   s s                  flatten
   myBd                 add the diagonals
   sm_B d               add the vertically flipped array and transpose
   CBcTQ                array shaped into Q by Q square, and its transpose
 sD ^U2 ^Q2             all binary arrays of length Q^2 sorted by sum

13

CJam ( 58 56 байт)

2q~:Xm*{7Yb#W=}:F,Xm*{ee{~0a@*\+}%zS*F},_Wf%:z&Mf*1fb:e>

Це неймовірно повільно і використовує багато пам’яті, але це для вас.

Розсічення

2q~:Xm*        e# Read input into X and find Cartesian product {0,1}^X
{7Yb#W=}:F,    e# Filter with a predicate F which rejects arrays with a 111
Xm*            e# Take the Cartesian product possible_rows^X to get possible grids
{              e# Filter out grids with an anti-diagonal 111 by...
  ee{~0a@*\+}% e#   prepending [0]*i to the ith row
  zS*F         e#   transposing, joining on a non-1, and applying F
},
_Wf%:z         e# Copy the filtered arrays and map a 90 degree rotation
&              e# Intersect. The rotation maps horizontal to vertical and
               e# anti-diagonal to diagonal, so this gets down to valid grids
Mf*            e# Flatten each grid
1fb            e# Count its 1s
:e>            e# Select the maximum

Θ(аХ)а1.83928675Θ(аХ2)Θ(аХ4)


О(Ха3Х) ) використовує динамічне програмування. Невольф на Java:

public class A181018 {
    public static void main(String[] args) {
        for (int i = 1; i < 14; i++) {
            System.out.format("%d:\t%d\n", i, calc(i));
        }
    }

    private static int calc(int n) {
        if (n < 0) throw new IllegalArgumentException("n");
        if (n < 3) return n * n;

        // Dynamic programming approach: given two rows, we can enumerate the possible third row.
        // sc[i + rows.length * j] is the greatest score achievable with a board ending in rows[i], rows[j].
        int[] rows = buildRows(n);
        byte[] sc = new byte[rows.length * rows.length];
        for (int j = 0, k = 0; j < rows.length; j++) {
            int qsc = Integer.bitCount(rows[j]);
            for (int i = 0; i < rows.length; i++) sc[k++] = (byte)(qsc + Integer.bitCount(rows[i]));
        }

        int max = 0;
        for (int h = 2; h < n; h++) {
            byte[] nsc = new byte[rows.length * rows.length];
            for (int i = 0; i < rows.length; i++) {
                int p = rows[i];
                for (int j = 0; j < rows.length; j++) {
                    int q = rows[j];
                    // The rows which follow p,q cannot intersect with a certain mask.
                    int mask = (p & q) | ((p << 2) & (q << 1)) | ((p >> 2) & (q >> 1));
                    for (int k = 0; k < rows.length; k++) {
                        int r = rows[k];
                        if ((r & mask) != 0) continue;

                        int pqrsc = (sc[i + rows.length * j] & 0xff) + Integer.bitCount(r);
                        int off = j + rows.length * k;
                        if (pqrsc > nsc[off]) nsc[off] = (byte)pqrsc;
                        if (pqrsc > max) max = pqrsc;
                    }
                }
            }

            sc = nsc;
        }

        return max;
    }

    private static int[] buildRows(int n) {
        // Array length is a tribonacci number.
        int c = 1;
        for (int a = 0, b = 1, i = 0; i < n; i++) c = a + (a = b) + (b = c);

        int[] rows = new int[c];
        int i = 0, j = 1, val;
        while ((val = rows[i]) < (1 << (n - 1))) {
            if (val > 0) rows[j++] = val * 2;
            if ((val & 3) != 3) rows[j++] = val * 2 + 1;
            i++;
        }

        return rows;
    }
}

У чому полягає ефективний підхід?
lirtosiast

@ThomasKwa, о, це все ще експоненціально, але я вважаю, що це виправдано називати це ефективним, оскільки це дозволило мені продовжити послідовність OEIS на 3 терміни.
Пітер Тейлор

@ThomasKwa, якщо бути точним, це O(n a^n)де a ~= 5.518.
Пітер Тейлор

4

C, 460 456 410 407 362 351 318 байт

Це дійсно погана відповідь. Це неймовірно повільний підхід грубої сили.Я намагаюся гольфувати його трохи більше, комбінуючи forпетлі.

#define r return
#define d(x,y)b[x]*b[x+y]*b[x+2*(y)]
n,*b;s(i){for(;i<n*(n-2);++i)if(d(i%(n-2)+i/(n-2)*n,1)+d(i,n)+(i%n<n-2&&d(i,n+1)+d(i+2,n-1)))r 1;r 0;}t(x,c,l,f){if(s(0))r 0;b[x]++;if(x==n*n-1)r c+!s(0);l=t(x+1,c+1);b[x]--;f=t(x+1,c);r l>f?l:f;}main(c,v)char**v;{n=atol(v[1]);b=calloc(n*n,4);printf("%d",t(0,0));}

Випробування

$ ./a.out 1
1$ ./a.out 2
4$ ./a.out 3
6$ ./a.out 4
9$ ./a.out 5
16$

Безумовно

n,*b; /* board size, board */

s(i) /* Is the board solved? */
{
    for(;i<n*(n-2);++i) /* Iterate through the board */
            if(b[i%(n-2)+i/(n-2)*n]&&b[i%(n-2)+i/(n-2)*n+1]&&b[i%(n-2)+i/(n-2)*n+2] /* Check for horizontal tic-tac-toe */
                    || b[i] && b[i+n] && b[i+2*n] /* Check for vertical tic-tac-toe */
                    || (i%n<n-2
                            && (b[i] &&b [i+n+1] && b[i+2*n+2] /* Check for diagonal tic-tac-toe */
                                    || b[i+2*n] && b[i+n+1] && b[i+2]))) /* Check for reverse diagonal tic-tac-toe */
                    return 1;
    return 0;
}

t(x,c,l,f) /* Try a move at the given index */
{
    if(s(0)) /* If board is solved, this is not a viable path */
            return 0;
    b[x]++;
    if(x==n*n-1) /* If we've reached the last square, return the count */
            return c+!s(0);

    /* Try it with the cross */
    l=t(x+1,c+1);

    /* And try it without */
    b[x]--;
    f=t(x+1,c);

    /* Return the better result of the two */
    return l>f?l:f;
}

main(c,v)
char**v;
{
    n=atol(v[1]); /* Get the board size */
    b=calloc(n*n,4); /* Allocate a board */
    printf("%d",t(0,0)); /* Print the result */
}

Редагувати: оголосити змінні int як невикористані параметри; видаліть y координату, просто використовуйте індекс; перемістити змінну до списку параметрів, а не глобальний, виправити непотрібні параметри, передані до s(); комбінуйте для петель, видаліть непотрібні дужки; замінити &&на *, ||на +; макро-ify перевірка 3-у-рядку


Наскільки це повільно?
Loovjo

@Loovjo спробував на моєму ПК невеликі зміни, щоб зробити це швидше, 15 мс за n = 5, 12 сек для n = 6 (вхід +1, час * 800)!
edc65

@ edc65 Це був мій досвід. Все, що перевищує 5, продуктивність була значно повільнішою. Я не переймався спробами введення більше 6.
Коул Камерон

Я почав з 7, коли розмістив свій коментар. Ми побачимо
edc65

Ви можете видавити ще кілька символів за допомогою #define d(x,y)b[x]*b[x+y]*b[x+y+y]; шляхом зміни початку , sщоб s(i,m){for(m=n-2;і замінити всі екземпляри n-2; а також шляхом зміни b[x]++до , b[x++]++а потім замінити x==n*n-1зx==n*n , x+1з x, і xз x-1.
Пітер Тейлор

4

C 263 264 283 309

Редагувати кілька байтів, збережених thx @ Peter Taylor - менше, ніж я сподівався. Тоді 2 байти використовувались для виділення трохи більше пам’яті, тепер я можу спробувати збільшити розмір, але це забирає дуже багато часу.

Примітка Додаючи пояснення, я виявив, що марную байти, зберігаючи сітку в масиві R - так що ви можете побачити знайдене рішення ... це завдання не вимагається !!
Я видалив його у версії для гольфу

Програма для гольфу на C, яка насправді може знайти відповідь за n = 1..10 у розумний час.

s,k,n,V[9999],B[9999],i,b;K(l,w,u,t,i){for(t=u&t|u*2&t*4|u/2&t/4,--l; i--;)V[i]&t||(b=B[i]+w,l?b+(n+2)/3*2*l>s&&K(l,b,V[i],u,k):b>s?s=b:0);}main(v){for(scanf("%d",&n);(v=V[i]*2)<1<<n;v%8<6?B[V[k]=v+1,k++]=b+1:0)V[k]=v,b=B[k++]=B[i++];K(n,0,0,0,k);printf("%d",s);}

Мій тест:

7 -> 26 за 10 сек
8 -> 36 за 18 сек
9 -> 42 за 1162 сек

Менше гольфу і намагаюся пояснити

#include <stdio.h>

int n, // the grid size
    s, // the result
    k, // the number of valid rows 
    V[9999], // the list of valid rows (0..to k-1) as bitmasks
    B[9999], // the list of 'weight' for each valid rows (number of set bits)
    R[99],  // the grid as an array of indices pointing to bitmask in V
    b,i; // int globals set to 0, to avoid int declaration inside functions

// recursive function to fill the grid
int K(
  int l, // number of rows filled so far == index of row to add
  int w, // number of crosses so far
  int u, // bit mask of the preceding line (V[r[l-1]])
  int t, // bit mask of the preceding preceding line (V[r[l-2]])
  int i) // the loop variables, init to k at each call, will go down to 0
{
  // build a bit mask to check the next line 
  // with the limit of 3 crosses we need to check the 2 preceding rows
  t = u&t | u*2 & t*4 | u/2 & t/4; 
  for (; i--; )// loop on the k possibile values in V
  {
    R[l] = i; // store current row in R
    b = B[i] + w; // new number of crosses if this row is accepted
    if ((V[i] & t) == 0) // check if there are not 3 adjacent crosses
      // then check if the score that we can reach from this point
      // adding the missing rows can eventually be greater
      // than the current max score stored in s
      if (b + (n + 2) / 3 * 2 * (n - l - 1) > s)
        if (l > n-2) // if at last row
          s = b > s ? b : s; // update the max score
        else  // not the last row
          K(l + 1, b, V[i], u, k); // recursive call, try to add another row
  }
}

int main(int j)
{
  scanf("%d", &n);

  // find all valid rows - not having more than 2 adjacent crosses
  // put valid rows in array V
  // for each valid row found, store the cross number in array B
  // the number of valid rows will be in k
  for (; i<1 << n; V[k] = i++, k += !b) // i is global and start at 0
    for (b = B[k] = 0, j = i; j; j /= 2) 
      b = ~(j | -8) ? b : 1, B[k] += j & 1;
  K(0,0,0,0,k); // call recursive function to find the max score
  printf("%d\n", s);
}

Це по суті те саме, що і моя програма Java, але глибина спочатку, а не перша ширина. Думаю, ви зможете зберегти принаймні десяток символів, перенісши мій buildRowsметод; можливо, аж 20, якщо for(scanf("%d",&n);(v=2*V[i++])<1<<n;v%8<6&&V[++j]=v+1)v&&V[++j]=v;це дійсно. (Зараз у мене немає доступу до компілятора C).
Пітер Тейлор

1
@PeterTaylor я подивлюсь ... просто слово трибоначці мене лякає
edc65

Ваш жорсткий код 999означає, що ви хочете проігнорувати цю частину. Хоча, можливо, вам слід дійсно зробити це не жорстким кодом, так що в принципі ви можете вирішити більші входи, ніж 11 або 12.
Пітер Тейлор

@PeterTaylor було б чудово, якби у мене був метод .bitCount в C для підрахунку біт. Але в цій початковій фазі я нараховую кількість бітів у B, а не лише бітові маски V
edc65

2

Рубін, 263 байти

Це також жорстоке рішення і стикається з тими ж проблемами, що і відповідь Коула Кемерона, але це навіть повільніше, оскільки це рубін, а не С. Але це коротше.

c=->(b){b.transpose.all?{|a|/111/!~a*''}}
m=->(b,j=0){b[j/N][j%N]=1
x,*o=b.map.with_index,0
c[b]&&c[b.transpose]&&c[x.map{|a,i|o*(N-i)+a+o*i}]&&c[x.map{|a,i|o*i+a+o*(N-i)}]?(((j+1)...N*N).map{|i|m[b.map(&:dup),i]}.max||0)+1:0}
N=$*[0].to_i
p m[N.times.map{[0]*N}]

Тестові справи

$ ruby A181018.rb 1
1
$ ruby A181018.rb 2
4
$ ruby A181018.rb 3
6
$ ruby A181018.rb 4
9
$ ruby A181018.rb 5
16

Безумовно

def check_columns(board)
  board.transpose.all? do |column|
    !column.join('').match(/111/)
  end
end

def check_if_unsolved(board)
  check_columns(board) && # check columns
    check_columns(board.transpose) && # check rows
    check_columns(board.map.with_index.map { |row, i| [0] * (N - i) + row + [0] * i }) && # check decending diagonals
    check_columns(board.map.with_index.map { |row, i| [0] * i + row + [0] * (N - i) }) # check ascending diagonals
end

def maximum_crosses_to_place(board, index=0)
  board[index / N][index % N] = 1 # set cross at index
  if check_if_unsolved(board)
    crosses = ((index + 1)...(N*N)).map do |i|
      maximum_crosses_to_place(board.map(&:dup), i)
    end
    maximum_crosses = crosses.max || 0
    maximum_crosses + 1
  else
    0
  end
end

N = ARGV[0].to_i
matrix_of_zeros = N.times.map{ [0]*N }

puts maximum_crosses_to_place(matrix_of_zeros)

1

Haskell, 143 байти

У чомусь це не робиться, але мені було весело, ось ось що:

  • Оскільки перевірка горизонтального шаблону "виграш" повертається до недійсного, якщо застосовувати його в різних рядках, введення N <3 повертає 0
  • "Масиви" - цілі числа, розпаковані в біти, тому їх легко перелічити
  • ((i! x) y) дає i-й біт x разів y, де від'ємні показники повертають 0, тому діапазон може бути постійним (перевірка меж немає) і меншою дужкою при ланцюжку
  • Оскільки межі не перевіряються, він перевіряє 81 * 4 = 324 шаблони на кожен можливий максимум, що призводить до того, що N = 3 забирає мій ноутбук 9 секунд і N = 5 займає занадто довго, щоб я міг закінчити
  • Булева логіка на 1/0 використовується для T / F для економії місця, наприклад (*) є &&, (1-x) є (не x) тощо.
  • Оскільки він перевіряє цілі числа замість масивів, (div p1 L) == (div p2 L) потрібен, щоб переконатися, що шаблон не перевіряється в різних рядках, де L - довжина рядка, а p1, p2 - позиції
  • Значення можливого максимуму - його вага Хеммінга

Ось код:

r=[0..81]
(%)=div
s=sum
i!x|i<0=(*0)|0<1=(*mod(x%(2^i))2)
f l=maximum[s[i!x$1-s[s[1#2,l#(l+l),(l+1)#(l+l+2),(1-l)#(2-l-l)]|p<-r,let  a#b=p!x$(p+a)!x$(p+b)!x$s[1|p%l==(p+mod b l)%l]]|i<-r]|x<-[0..2^l^2]]
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.