Costruisci un generatore di puzzle di ghiaccio + risolutore


13

In Twitch Plays Pokémon , uno degli ostacoli più fastidiosi che si possono affrontare è un puzzle sul ghiaccio, in cui è necessario viaggiare da un luogo all'altro facendo scorrere completamente in una direzione fino a quando non si colpisce un muro o un masso.

Il tuo compito è costruire un programma che genererà un difficile puzzle di ghiaccio casuale.

Il vostro programma accetterà tre numeri, M, N, e P, come input (con 10 <= M <= 30, 15 <= N <= 40e 0 <= P < 65536):

12 18

e produrrà:

  • Un Mda Nrete costituita .e O, rappresentano rispettivamente ghiaccio e un masso.
  • Un indicatore di posizione che rappresenta la provenienza del puzzle. Questo indicatore di posizione è costituito da una lettera L, R, T, oB , in rappresentanza sinistra, destra, superiore e inferiore, seguita da un numero che rappresenta la posizione (da sinistra o superiore) su quel lato per essere inserito da.
  • Un indicatore di posizione simile che rappresenta da dove esce il puzzle.
  • La soluzione più breve per il puzzle, costituito da una sequenza di L, R, Ue Drispettivamente.

Esempio di output:

..O...O...........
............O.....
..O...............
.......O..........
..................
...........O......
O..O...........O..
..........O.......
..O..........O....
........O.........
O....O.........O..
............O.....
R 4
B 5
LDLDRULD
(Note that this output is actually invalid because it is not actually long enough.)

Per un input Me N, la soluzione al puzzle deve avere almeno min(M, N)passaggi e spostare almeno gli 2 (M + N)spazi totali. (Per riferimento, il sopra di puzzle muove un totale di 12 passi, spostando 69 spazi.) Il generatore di puzzle deve generare un diverso Mda Npuzzle con un percorso soluzione diversa (cioè una diversa sequenza di passi per ogni soluzione) per ogni seme P.

  • Si noti che il requisito di un diverso percorso di soluzione è evitare soluzioni che provino a generare sistematicamente percorsi di roccia, come la soluzione di Claudiu qui . Se ci sono due o tre coppie di soluzioni identiche dovute a stranezze nella casualità, andrà bene, purché il programma non stia intenzionalmente cercando di generare sistematicamente enigmi con la stessa sequenza di mosse.

Il codice più breve per fare quanto sopra vince.


2
Non riesco a capire l'obiettivo: "devi viaggiare da un luogo a un altro scivolando completamente in una direzione fino a quando non colpisci un muro o un masso". È buono colpire muri o massi? Dove miri ad andare dall'inizio? Se colpisci un masso il gioco finisce? Cosa succede quando colpisci un muro? Sono solo io o le indicazioni non sono chiare?
DavidC

3
Oh, vecchi ricordi di Pokémon Oro e Argento qui. Trova l'uscita, prendi l'HM07 e vai a Blackthorn City.
Victor Stafusa

3
Questo mi ricorda i livelli di ghiaccio in Chip's Challenge .
Luser droog

1
Perché non usare >e <(o qualsiasi carattere) per entrare e uscire? I puzzle saranno più facili da leggere.
AL

1
In realtà l'output del tuo campione non è valido - il percorso più breve è LDLDRULDche è lungo solo 8 passi
Claudiu

Risposte:


5

Python, 672 548 personaggi, puzzle più interessanti

Pur seguendo rigorosamente le regole, l'altro mio programma Python batte questo, ho deciso di scriverne uno che generasse comunque puzzle più interessanti. Ecco qui:

R=range;import random as J;X=J.randint
x=(0,1,-1,0);y=x[2:]+x
g=lambda r,c:(0<=r<H)+(0<=c<W)>1and f[r][c]or x[(r,c)in(A,E)]
l=lambda r,c:g(r+y[d],c+x[d])<1and(r,c)or l(r+y[d],c+x[d])
H,W,P=input();J.seed(P)
while 1:
 A=(-1,X(0,W));E=(H,X(0,W));f=[[X(0,7)for _ in R(W)]for _ in R(H)]
 q=[(A,'')];n=z={}
 while q and n!=E:
    n,O=q.pop()
    for d in R(4):
     N=l(*n)
     if g(n[0]+y[d],n[1]+x[d])and N not in z:q[:0]=[(N,O+"URLD"[d])];z[N]=1
 if(n==E)*len(O)>min(H,W):print"\n".join(''.join('O.'[c>0]for c in T)for T in f),"\nT",A[1],"\nB",E[1],"\n",O;break

I livelli di rientro sono spazio, tab, tab + space.

Campioni :

$ echo [10,15,0] | python ice2.py
.....OO........
...............
...O....O.OO..O
...........O...
..O....O.......
.......O....O..
....O..........
.............O.
..............O
...............
T 1
B 10
DLURDRURULDRD

Utilizza Pcome seme, quindi ognuno Pgenererà lo stesso puzzle, e ogni diverso Pè estremamente probabile che sia diverso:

$ echo [10,15,1] | python ice2.py
.OOO.O.........
...O......O.O.O
.......O.......
..O..........OO
.....O.........
.............O.
.O.............
.O............O
O....O.........
......O........
T 14
B 8
DLDRDLURULD

Funziona abbastanza velocemente fino alle dimensioni di M=25,N=40ma in passato diventa molto lento. Dovrebbe funzionare teoricamente M=30, N=40se lo lasci funzionare abbastanza a lungo. Ho scritto manualmente nel percorso qui perché è difficile da seguire: il programma genera solo il puzzle.

$ echo [25,40,0] | python ice2.py
                   *
...................dO....urrrO..O..O....
....O.....O........dO....u..dO..........
..........O.....O..d....Ou.Odrrrrrrrrrrr
...........O.......d.O..Ou..O.....OOllld
.O....O.OO.........drrrrrrO....Olllud..O
O......O...O.O.....O............dO.ud...
O........OO..........O.........Od..ud..O
.........O......................d..ud...
....O.....O.O....O.....O........d..ud.O.
.....O..O...................O...d..udO..
.........O.........O..O.........d..ud...
.......O.O...O..O.OO....O...OOlldOOld...
........Olllllllllu....OO.OO..dOO...O...
.O.O....Od........u......O....d..O...O..
..O....O.d........u..O........d..O..O...
....O....d..O.....uO.....O....d.........
.........d........u...........d.........
.........d....O...u.O..O.....Od.O.......
........Od...O....u...........d.........
.O.....OuxrrrrO...u...OOOO..O.d.........
........udO..dO.O.u...........d.........
O..O.O..ud...d..urrO..........d.O...O...
........ud...d..u.O.O........Od..O...O..
..OO....ud..Od..u......OllllludO.....O..
..O....OldO..dOOlllllllld...Old...O..O..
             *
T 19
B 13
DRURDRDLDLULDLDLULDLURULDLURD

Spiegazione :

Il programma esegue un loop, generando una posizione iniziale casuale in alto, una posizione finale casuale in basso e una griglia casuale con la 12.5%possibilità di un masso in un determinato punto. Risolve quindi il puzzle con una prima ricerca ampia e se la soluzione esiste ed è più grande di min(H,W), stampa ed esce.


4

Java - 2632

Mentre ammiro la purezza tecnica della risposta di Claudiu , ho deciso di provare a fare enigmi leggermente più difficili;)

Passaggi di base (piuttosto semplici):

Randomize entry location
Step forward
For min(m,n)-1 steps:
    Rotate left or right
    Slide until I hit something or go a random distance
    Place a rock in front of stopping location
If I can slide straight to any wall:
    Slide to exit
Else
    Create another step and try again

If at any step I get trapped, start over
If BFS finds shorter path, start over

Inoltre segnare ogni punto come 'nogo' mentre sto scivolando. Se finisco in un punto del Nogo (o proprio di fronte a uno che significherebbe che una roccia stava andando lì), è un passo non valido.

Quindi, in sostanza, l'idea è di generare casualmente molte mappe e mantenere valida la prima. Ho intenzione di renderlo più intelligente (backtracking, ecc.), Ma ora funziona bene. Potremmo anche ridurre il codice ridondante, vedremo.

Allo stato attuale, genera mappe piccole (15x10) quasi istantaneamente, mappe medie (30x20) in un paio di secondi e grandi (40x30) in un intervallo di tempo casuale compreso tra 20 secondi e 20 minuti, a seconda del seme. Verifica tra 300k e 500k mappe / secondo sulla mia macchina, a seconda delle dimensioni.

Nota a margine: a volte le mappe non sono troppo dure, semplicemente perché ci sono solo tante rocce quanti gradini e, a meno che il gradino non ti porti a un muro, la maggior parte delle volte c'è solo un'opzione se vuoi colpire una roccia reale. In seguito risolverò il problema posizionando le rocce "casuali" in punti sicuri dopo aver tracciato tutti i passaggi. Poiché i punti nogo sono già contrassegnati, dovrebbe essere piuttosto semplice. Per ora, goditi questi esempi:

Output che mostra diverse dimensioni / semi:

$ java I 30 20 6851              $ java I 15 10 1     $ java I 15 10 65513  

............................O.      .......O.......     ....O..........     
..............................      ...............     ...............     
..............................      .........O.....     .........O.....     
..........O......O............      .............O.     ..............O     
...............O...........O..      ...............     ...............     
..............................      .......O.......     .....O.O.......     
..............................      O..............     ...............     
........................O.....      ...............     ..........O....     
..............................      ...............     O..............     
...O.......................O..      ......O........     ...............     
O...............O.OO..........          
..............O..........O....          
...........O..................      T 14                R 6         
....O.........................      T 7                 T 14            
..............................      DLDLULURU           LULDLDRURU
..............................
..............................
.................O............
.O............................
..............................


B 28
R 9
ULURDLDLDRURDLDRURUR

Dimensione massima 40x30:

$ java I 40 30 2

........................................
........................................
........................................
........................................
................O.......................
..........O.............................
........................................
.......O................................
.....................O..........O.......
......................O.................
.................................O......
......................................O.
........................................
........................................
..............................O.........
...........O............................
........................................
.......................................O
.........O...................O..........
....................O...................
...............................O........
............O..O......................O.
......O...........O.....................
..................O....O................
..................................O.....
........................................
..............................O.........
.....................................O..
...........O............................
...................O....................

B 19
B 11
URURDLULULDRDRDLULDLDLULURDLD

golfed:

import java.util.*;import java.awt.*;class I{int m,n,p,g,a[][],b[][];Random r;Point s,e,c;ArrayList<Integer>z;void Q(String q,int l){if(l>0)System.out.println(q);else System.out.print(q);}void G(String[]y){m=Integer.valueOf(y[0]);n=Integer.valueOf(y[1]);p=Integer.valueOf(y[2]);r=new Random(p);Q("",1);int o=0,i,j,u=0;char t,f[]={85,76,68,82};while(o<3){if(++u%20000==0)Q("\r#"+u,0);a=new int[m+2][n+2];b=new int[m+2][n+2];for(i=0;i<m+2;i++)for(j=0;j<n+2;j++)if(i==0||i==m+1||j==0||j==n+1)a[i][j]=2;s=new Point();int e=r.nextInt(m*2+n*2);if(e<m*2){s.x=e%m+1;s.y=e<m?0:n+1;}else{s.y=(e-m*2)%n+1;s.x=(e-m*2)<n?0:m+1;}if(s.x<1)g=3;else if(s.x>m)g=1;else if(s.y<1)g=2;else if(s.y>n)g=0;a[s.x][s.y]=0;c=new Point(s);z=new ArrayList<Integer>();z.add(g);for(i=0;i++<Math.min(m,n)-1;)if(N()<1&&N()<1)break;o=((z.size()>=Math.min(m,n)-1)?1:0)+F()+((V()==z.size())?1:0);}Q("\r",0);for(j=1;j<n+1;j++){for(i=1;i<m+1;i++)Q(String.valueOf(a[i][j]>0?'O':'.'),0);Q("",1);}Q("\n\n",0);if(s.x<1||s.x>m){t=s.x<1?'L':'R';u=s.y;}else{t=s.y<1?'T':'B';u=s.x;}Q(t+" "+u,1);if(e.x<1||e.x>m){t=e.x<1?'L':'R';u=e.y;}else{t=e.y<1?'T':'B';u=e.x;}Q(t+" "+u,1);for(i=0;i<z.size();)Q(String.valueOf(f[z.get(i++)]),0);Q("",1);}public static void main(String[]a){new I().G(a);}int F(){int c=0;while(C()<1&&c++<10)if(N()<1)return 0;return e==null?0:1;}int C(){int d=g<2?-1:1;if(g%2<1){int y=c.y;while(y>0&&y<n+1){y+=d;if(a[c.x][y]==1)return 0;}e=new Point(c.x,y);}else{int x=c.x;while(x>0&&x<m+1){x+=d;if(a[x][c.y]==1)return 0;}e=new Point(x,c.y);}a[e.x][e.y]=0;return 1;}int V(){if((s.x-e.x)+(s.y-e.y)<2)return 0;Queue<Point>q=new ArrayDeque<Point>();Queue<Integer>d=new ArrayDeque<Integer>();a[s.x][s.y]=-2;q.add(s);d.add(0);while(q.size()>0){Point t=q.poll();int h=d.poll(),i=0;if(t.equals(e))return h;for(;i<4;i++){Point n=S(a,t,i<2?0:1,i%2<1?-1:1,99,1);if(a[n.x][n.y]==-2)continue;a[n.x][n.y]=-2;q.add(n);d.add(h+1);}}return 0;}int N(){Point q;int d=g<2?-1:1,x,y;System.arraycopy(a,0,b,0,a.length);q=S(b,c,g,d,r.nextInt((g%2<1?n:m)/2)+2,0);if(q.x<1||q.y<1||q.x>m||q.y>n||q.equals(c)||b[q.x][q.y]!=0)return 0;x=q.x;y=q.y;if(g%2<1)y+=d;else x+=d;if(b[x][y]<0)return 0;b[q.x][q.y]=-1;b[x][y]=1;int f=r.nextInt(2)<1?-1:1;g=g%2<1?(f<0?1:3):(g=f<0?0:2);c=q;System.arraycopy(b,0,a,0,a.length);z.add(g);return 1;}Point S(int[][]u,Point f,int w,int d,int q,int s){int i=1,x=f.x,y=f.y;for(;i<=q;i++){if(w%2<1)y=f.y+i*d;else x=f.x+i*d;if(e!=null&&e.x==x&&e.y==y)return e;if(y<0||y>n+1||x<0||x>m+1)return f;if(s<1&&u[x][y]<1)u[x][y]=-1;if(u[x][y]>0){if(w%2<1)y-=d;else x-=d;return new Point(x,y);}}if(w%2<1)return new Point(f.x,f.y+i*d);else return new Point(f.x+i*d,f.y);}}

Con interruzioni di riga:

import java.util.*;
import java.awt.*;

class I{
    int m,n,p,g,a[][],b[][];
    Random r;
    Point s,e,c;
    ArrayList<Integer>z;

    void Q(String q,int l){if(l>0)System.out.println(q);else System.out.print(q);}

    void G(String[]y){
        m=Integer.valueOf(y[0]);
        n=Integer.valueOf(y[1]);
        p=Integer.valueOf(y[2]);
        r=new Random(p);
        Q("",1);

        int o=0,i,j,u=0;
        char t,f[]={85,76,68,82};
        while(o<3){
            if(++u%20000==0)
                Q("\r#"+u,0);

            a=new int[m+2][n+2];
            b=new int[m+2][n+2];
            for(i=0;i<m+2;i++)
                for(j=0;j<n+2;j++)
                    if(i==0||i==m+1||j==0||j==n+1)
                        a[i][j]=2;

            s=new Point(); 
            int e=r.nextInt(m*2+n*2);
            if(e<m*2){
                s.x=e%m+1;
                s.y=e<m?0:n+1;
            }else{
                s.y=(e-m*2)%n+1;
                s.x=(e-m*2)<n?0:m+1;
            }
            if(s.x<1)g=3;
            else if(s.x>m)g=1;
            else if(s.y<1)g=2;
            else if(s.y>n)g=0;

            a[s.x][s.y]=0;
            c=new Point(s);
            z=new ArrayList<Integer>();
            z.add(g);

            for(i=0;i++<Math.min(m,n)-1;)
                if(N()<1&&N()<1)
                        break;
            o=((z.size()>=Math.min(m,n)-1)?1:0)+F()+((V()==z.size())?1:0);
        }

        Q("\r",0);
        for(j=1;j<n+1;j++){
            for(i=1;i<m+1;i++)
                Q(String.valueOf(a[i][j]>0?'O':'.'),0);
            Q("",1);
        }
        Q("\n\n",0);
        if(s.x<1||s.x>m){
            t=s.x<1?'L':'R';
            u=s.y;
        }else{
            t=s.y<1?'T':'B';
            u=s.x;
        }
        Q(t+" "+u,1);
        if(e.x<1||e.x>m){
            t=e.x<1?'L':'R';
            u=e.y;
        } else {
            t=e.y<1?'T':'B';
            u=e.x;
        }
        Q(t+" "+u,1);
        for(i=0;i<z.size();)
            Q(String.valueOf(f[z.get(i++)]),0);
        Q("",1);
    }

    public static void main(String[]a){
        new I().G(a);
    }

    int F(){
        int c=0;
        while(C()<1&&c++<10)
            if(N()<1)
                return 0;
        return e==null?0:1;
    }

    int C(){
        int d=g<2?-1:1;
        if(g%2<1){
            int y=c.y;
            while(y>0&&y<n+1){
                y+=d;
                if(a[c.x][y]==1)
                    return 0;
            }
            e=new Point(c.x,y);
        }else{
            int x=c.x;
            while(x>0&&x<m+1){
                x+=d;
                if(a[x][c.y]==1)
                    return 0;
            }
            e=new Point(x,c.y);
        }
        a[e.x][e.y]=0;
        return 1;
    }


    int V(){
        if((s.x-e.x)+(s.y-e.y)<2)
            return 0;
        Queue<Point>q=new ArrayDeque<Point>();
        Queue<Integer>d=new ArrayDeque<Integer>();
        a[s.x][s.y]=-2;

        q.add(s);
        d.add(0);
        while(q.size()>0){
            Point t=q.poll();
            int h=d.poll(),i=0;
            if(t.equals(e))
                return h;
            for(;i<4;i++){
                Point n=S(a,t,i<2?0:1,i%2<1?-1:1,99,1);
                if(a[n.x][n.y]==-2)
                    continue;
                a[n.x][n.y]=-2;
                q.add(n);d.add(h+1);
            }
        }
        return 0;
    }


    int N(){
        Point q;
        int d=g<2?-1:1,x,y;
        System.arraycopy(a,0,b,0,a.length);
        q=S(b,c,g,d,r.nextInt((g%2<1?n:m)/2)+2,0);      
        if(q.x<1||q.y<1||q.x>m||q.y>n||q.equals(c)||b[q.x][q.y]!=0)
            return 0;
        x=q.x;
        y=q.y;
        if(g%2<1)
            y+=d;
        else
            x+=d;
        if(b[x][y]<0)
            return 0;
        b[q.x][q.y]=-1;
        b[x][y]=1;
        int f=r.nextInt(2)<1?-1:1;          
        g=g%2<1?(f<0?1:3):(g=f<0?0:2);
        c=q;
        System.arraycopy(b,0,a,0,a.length);
        z.add(g);
        return 1;
    }

    Point S(int[][]u,Point f,int w,int d,int q,int s){
        int i=1,x=f.x,y=f.y;
        for(;i<=q;i++){
            if(w%2<1)
                y=f.y+i*d;
            else
                x=f.x+i*d;
            if(e!=null&&e.x==x&&e.y==y)
                return e;
            if(y<0||y>n+1||x<0||x>m+1)
                return f;
            if(s<1&&u[x][y]<1)
                u[x][y]=-1;
            if(u[x][y]>0){
                if(w%2<1)
                    y-=d;
                else
                    x-=d;
                return new Point(x,y);
            }
        }
        if(w%2<1)
            return new Point(f.x,f.y+i*d);
        else
            return new Point(f.x+i*d,f.y);              
    }
}

Non potrebbe while(o<3){...;o=...;}essere for(;o<3;o=...){...;}, salvando un byte?
Jonathan Frech,

if(w%2<1)return new Point(f.x,f.y+i*d);else return new Point(f.x+i*d,f.y);-> return new Point(f.x+(w%2<1?0:i*d),f.y+(w%2<1?f.y:0));.
Jonathan Frech,

3

Python, 235 206 185 176 caratteri

H,W,P=input()
t=''
for x in range(16):t+=".O"[(P>>x)%2]
for n in[t[1:],t[0],"O","...O"]+["."]*(H-5)+[".O.."]:print(n*W)[:W]
print"B 1\nR",(H,3)[-W%4/2],"\n",("URDR"*W)[:W+W%2]

Utilizzo :

L'input avviene attraverso lo stdin del modulo [M, N, P].

$ echo [14, 17, 2] | python ice.py
O..............O.
.................
OOOOOOOOOOOOOOOOO
...O...O...O...O.
.................
.................
.................
.................
.................
.................
.................
.................
.................
.O...O...O...O...
B 1
R 3
URDRURDRURDRURDRUR

Hai detto che le mappe dovevano essere diverse per ogni seme P... e sono:

$ echo [14, 17, 233] | python ice.py
..O.OOO..........
OOOOOOOOOOOOOOOOO
OOOOOOOOOOOOOOOOO
...O...O...O...O.
.................
.................
.................
.................
.................
.................
.................
.................
.................
.O...O...O...O...
B 1
R 3
URDRURDRURDRURDRUR
$ echo [14, 17, 65133] | python ice.py
.OO.OO..OOOOOOO.O
OOOOOOOOOOOOOOOOO
OOOOOOOOOOOOOOOOO
...O...O...O...O.
.................
.................
.................
.................
.................
.................
.................
.................
.................
.O...O...O...O...
B 1
R 3
URDRURDRURDRURDRUR

E un esempio con una dimensione diversa:

$ echo [10, 15, 65133] | python ice.py
.OO.OO..OOOOOOO
OOOOOOOOOOOOOOO
OOOOOOOOOOOOOOO
...O...O...O...
...............
...............
...............
...............
...............
.O...O...O...O.
B 1
R 10
URDRURDRURDRURDR

Soddisfa tutti i criteri oggettivi forniti:

  • Ognuno Pporta a un puzzle diverso
  • C'è solo una soluzione, quindi è la più breve
  • La soluzione prende N + N%2provvedimenti, che è almenoN
  • La soluzione richiede sempre più degli 2 (M + N)spazi totali

Spiegazione :

Ogni riga è costruita ripetendo un certo elemento di stringa Wvolte e limitando la lunghezza a W(io uso He Winvece di Me N).

Le prime due file dipendono Pda rendere unico ogni puzzle. Fondamentalmente, nota che si Padatta a un numero intero senza segno a 16 bit. Converto Pin binario, usando .per 0 e Oper 1:

t=''
for x in range(16):t+=".O"[(P>>x)%2]

Il primo elemento di riga è gli ultimi 15 bit, t[1:]mentre il secondo elemento fila è la 1 bit, t[0]. Non ho potuto mettere tutto su una riga perché la larghezza minima è 15, che non si adatterebbe a tutti i 16 bit se P> 32767. Quindi le prime due righe rappresentano in modo univoco ciascuno dei possibili valori di P.

La terza riga è un full wall in modo che il valore di Pnon influisca sulla soluzione.

Quindi segui gli elementi del labirinto reali. Questa riga li stampa tutti, ripetendoli fino al tappo. Il risultato è come vedi sopra:

for n in[t[1:],t[0],"O","O..."]+["."]*(H-5)+["..O."]:print(n*W)[:W]

Il resto stava solo cercando di capire come risolvere il labirinto generato dinamicamente. Questo dipende solo dalla larghezza del labirinto. Ho notato che le soluzioni, per una data larghezza, erano:

  W  | solution 
-----+---------
  1  | UR
  2  | UR
  3  | UR DR
  4  | UR DR 
  5  | UR DR UR
  6  | UR DR UR
  7  | UR DR UR DR
  8  | UR DR UR DR

ecc Quindi è solo URDRripetuto e tagliato al posto giusto, W+W%2.

print"B 1\nR",(H,3,3,H)[W%4],"\n",("URDR"*W)[:W+W%2]

1
come funziona al 33 ° bit di un numero intero?
masterX244

@ masterX244: Un sacco di golf ... fondamentalmente sfruttando la natura ripetitiva dell'output e facendo alcuni calcoli per assicurarsi che tutto si allinei correttamente
Claudiu

principalmente chiedendosi come sia fatta la "casualità" (PS il downvote non era da me)
masterX244

@ masterX244: ah gotcha. Aggiungerò una spiegazione
Claudiu il

1
Non intendevo in senso negativo. È sicuramente intelligente, spero solo che gli aspiranti sviluppatori di giochi non lo usino per i veri puzzle: p
Geobits
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.