Fillomino Solver


20

Fillomino - це головоломка, де ви заповнюєте сітку поліоміно . Кожне поліоміно - це область суміжних клітин. Сіткове представлення показує, який розмір поліоміно покриває кожну клітинку. Наприклад, пентоміно (5) буде показано як 5у кожній з п'яти суміжних клітин (див. Нижче). Два поліміної одного розміру не можуть розділяти межу, але можуть межувати по діагоналі.

Для кожної головоломки ви починаєте з декількох подарунків і повинні заповнити залишки комірок. Простий приклад головоломки та рішення:

зразок головоломки fillomino

Ваше завдання: Давши квадратну головоломку, розв’яжіть її та виведіть відповідь. Введення може здійснюватися через stdin, єдиний аргумент командного рядка або текстовий файл. Введення буде подано у вигляді цілого числа n, а наступні nрядки nцифр у кожному. Порожні комірки будуть задані у вигляді періодів ( .). Для прикладу головоломки вище, це:

5
3..66
5.4.6
.54.6
.1.6.
..312

Вихід - це вирішена головоломка, подана на nрядках nцифр, до консолі чи текстовому файлу:

33366
55446
55466
51462
33312

Якщо пазл недійсний, виведіть 0. Головоломка може бути недійсною, якщо введення неправильне або немає рішення. Якщо є кілька рішень, ви можете вивести будь-яке або всі їх.

Оскільки кожна комірка представлена ​​однією цифрою, всі головоломки будуть складатися з розміру поліоміно 9та лише під ними. Якщо неможливо вирішити без великих поліоміно, вважайте це недійсним.

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

Тестовий випадок:

Вхід:

9
..21.3..5
.5...5..5
.1.44.334
...53.4..
2.3.3..5.
1.15.5.15
..45..1..
.24.53.53
....2....

Вихід (можливе рішення):

322133315
355445555
315443334
235531444
233135551
141535515
344553155
324553553
321223133

Пам’ятайте, що деякі поліоміни не мають заданих чисел, а деякі - більше одного. Існує НЕ відносини один-до-одного між числом даності і числом Полімін.

Оцінка - це стандартний код-гольф, розмір програми в байтах.


Чи рекурсивний підхід є дійсною відповіддю, якщо він працює для плати 9x9, але не вистачить пам’яті для певної дошки більшого розміру?
трихоплакс

1
Yes.I не очікують , що ви зможете сильніше запустити 31x31 або що - небудь. Просто для того, щоб ви могли реально запустити і 5x5, і 9x9 вище (щоб дати вихід для тестових випадків), і теоретично працювали б для більшого з тим же алгоритмом (з урахуванням толстого ресурсу).
Геобіт

Відповіді:


4

4882 символи - Java

Не дуже гольф рішення (тобто 4800 символів - це лотттттттттттд) Можливо, гольф трохи більше в тому, що 1 або 2 налагоджені лінії друку все ще там. Я думаю, що я можу зменшити ще трохи з точки зору марного / оптимізованого коду.

import java.util.*;import java.awt.Point;public class G{public static void main(String[]args){new G();}Scanner z=new Scanner(System.in);public G(){s=z.nextInt();z.nextLine();int g[][]=new int[s][s];for(int i=0;i<s;i++)Arrays.fill(g[i],-1);for(int i=0;i<s;i++){String line=z.nextLine();for(int j=0;j<s;j++)if(line.charAt(j)!='.')g[i][j]=Integer.parseInt(Character.toString(line.charAt(j)));}System.out.println();if(y(g)){for(int i=0;i<s;i++)for(int j=0;j<s;j++)System.out.print(g[i][j]);System.out.println();}else System.out.println(0);}private boolean x(Collection<Point>c,int[][]d){if(c.size()==0)return true;int j=0;for(Iterator<Point>k=c.iterator();k.hasNext();k.next(),j++){for(int sol=9;sol>=0;sol--){int[][]a=new int[s][s];for(int i=0;i<s;i++)a[i]=Arrays.copyOf(d[i],s);List<Point>b=new ArrayList<Point>();for(Point p:c)if(!b.contains(p))b.add(new Point(p));a[b.get(j).x][b.get(j).y]=sol;if(w(a,b.get(j))){if(x(b,a)){for(int i=0;i<s;i++)d[i]=Arrays.copyOf(a[i],s);c.clear();c.addAll(b);return true;}}}}return false;}int s;private boolean y(int[][]d){int[][] a=new int[s][s];for (int i = 0; i<s;i++)a[i]=Arrays.copyOf(d[i],s);List<Point> incomplete=new ArrayList<Point>();if(r(a)&&s(a)){a(a);System.exit(0);}else if(!r(a)){q("INVALID FROM MAIN, ",12);return false;}for(int i=0;i<s;i++)for(int j=0;j<s;j++){if(a[i][j]!=-1)if(t(new Point(i,j),a,null,a[i][j]).size()!=a[i][j]){if(w(a,new Point(i,j))){a(a);if(y(a)){for(int i=0;i<s;i++)d[i]=Arrays.copyOf(a[i],s);return true;}else return false;}else return false;}}for(int i=0;i<s;i++)for(int j=0;j<s;j++)if(a[i][j]==-1){Set<Point>c=t(new Point(i,j),a,null,-1);if(x(c,a)){if(y(a)){for(int i=0;i<s;i++)d[i] = Arrays.copyOf(a[i], s);return true;}else return false;}else return false;}q("How did you get here",1);return false;}private boolean w(int[][]d,Point b){List<Point>c;Set<Point>a;a=t(b,d,null,d[b.x][b.y]);c=new ArrayList<Point>(u(b,d,null,d[b.x][b.y]));int h=d[b.x][b.y];int g=h-a.size();if(c.size()<g){return false;}else if(v(c,h,h,new ArrayList<Point>(a),0,d))return true;else return false;}private boolean v(List<Point>c,int h,int g,List<Point>e,int f,int[][]d){if(e==null)e=new ArrayList<Point>();int[][]a=new int[s][s];for(int i=0;i<s;i++)for(int k=0;k<s;k++)a[i][k]=d[i][k];if(f<g&&e.size()<g){for(int i=0;i<c.size();i++){if(!e.contains(c.get(i))){if(d[c.get(i).x][c.get(i).y]==h){for(Point c:e){a[c.x][c.y]=h;}Set<Point> u=t(e.get(0),a,null,h);Set<Point>v=t(c.get(i),a,null,h);if(!Collections.disjoint(u,v)){u.addAll(v);List<Point>uList=new ArrayList<Point>(u);if(v(c,h,g,uList,f+1,a)){q("this e sucess",2);if(y(d)){e.addAll(uList);return true;}}else;}for(int l=0;l<s;l++)for(int k=0;k<s;k++)a[l][k]=d[l][k];}else if(e.add(c.get(i))){if(v(c,h,g,e,f+1,d)){q("this e sucess",2);if(y(d))return true;}}if(e.contains(c.get(i)))e.remove(c.get(i));}}return false;}else if(f>g||e.size()>g){if(f>g){q("Your over the g. ");return false;}else return false;}else{for(Point c:e){a[c.x][c.y]=h;}if(r(a)){if(y(a)){for(int i=0;i<s;i++)d[i]=Arrays.copyOf(a[i],s);q("complete(a) is true, ",4);return true;}else{return false;}}else{return false;}}}private void q(String out,int i){System.err.println(out+". exit code: "+i);System.exit(i);}private void q(String a){q(a,0);}private boolean r(int[][] d){for(int i=0;i<s;i++)for(int j=0;j<s;j++)if(d[i][j]!=-1){Set<Point>same=t(new Point(i,j),d,null,d[i][j]);if(same.size()>d[i][j]){return false;}Set<Point>fae=u(new Point(i,j),d,null,d[i][j]);if(u(new Point(i,j),d,null,d[i][j]).size()<d[i][j]){return false;}}return true;}private Set<Point> u(Point p,int[][]d,Set<Point>u,int i){u=(u==null)?new HashSet<Point>():u;if(d[p.x][p.y]==i||d[p.x][p.y]==-1)u.add(p);int x=p.x,y=p.y;Point t=new Point();if(x+1<s&&(d[x+1][y]==i||d[x+1][y]==-1)){if(u.add(new Point(x+1,y)))u=u(new Point(x+1,y),d,u,i);}if(y+1<s&&(d[x][y+1]==i||d[x][y+1]==-1)){if(u.add(new Point(x,y+1)))u=u(new Point(x,y+1),d,u,i);}if(x-1>=0&&(d[x-1][y]==i||d[x-1][y]==-1)){if(u.add(new Point(x-1,y)))u=u(new Point(x-1,y),d,u,i);}if(y-1>=0&&(d[x][y-1]==i||d[x][y-1]==-1)){if(u.add(new Point(x,y-1)))u=u(new Point(x,y-1),d,u,i);}return u;}private Set<Point> t(Point p,int[][]d,Set<Point>u,int i){u=(u==null)?new HashSet<Point>():u;if(d[p.x][p.y]==i)u.add(p);int x=p.x,y=p.y;Point t=new Point(p);if(x+1<s&&d[x+1][y]==i){if(u.add(new Point(x+1,y)))u=t(new Point(x+1,y),d,u,i);}if(y+1<s&&d[x][y+1]==i){if(u.add(new Point(x,y+1)))u=t(new Point(x,y+1),d,u,i);}if(x-1>=0&&d[x-1][y]==i){if(u.add(new Point(x-1,y)))u=t(new Point(x-1,y),d,u,i);}if(y-1>=0&&d[x][y-1]==i){if(u.add(new Point(x,y-1)))u=t(new Point(x,y-1),d,u,i);}return u;}private boolean s(int[][]d){for(int i=0;i<s;i++)for(int j=0;j<s;j++)if(t(new Point(i,j),d,null,d[i][j]).size()!=d[i][j])return false;return true;}private void a(int[][]d){for(int i=0;i<s;i++){for(int j=0;j<s;j++){System.out.printf("%1s",d[i][j]==-1?".":Integer.toString(d[i][j]));}System.out.println("");}}}

Ніколи раніше цього не бачив Поліміно, я читав, що вони є, і не дивлячись на розв’язання алгоритмів, що склався власним (досить повільним).

В основному, багато використовує рекурсію ... Знаходить неповнолінійний Polyomino, намагається його виконати. Знаходить порожнє місце, прокручуючи 1-9 на всі квадрати в кишені, встановлює цю кишеню на це значення. Якщо кишеня повна, вона намагається знайти ще один кишеню, а потім повторюється до кінця. Я не міг змусити його працювати за сіткою розміром 9 ... Я маю на увазі принаймні одну оптимізацію, яка могла б змусити її працювати протягом розумного часу протягом 9.


1
Як ви це компілюєте? Я отримую дублікати змінних помилок у кількох місцях.
Геобіт
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.