Topologia ASCII pt 1: posso contare su di te?


28

Ho un problema serio. Ho alcuni file di testo in cui mantengo i miei numeri molto importanti - tutti quelli importanti! E due e tre ..

Questi numeri erano così importanti che non potevo affidarli a quei nuovi sistemi numerici decimali o binari. Ho mantenuto ogni numero codificato in unario, così:

            +--+
            |  |
+---+  +----+  |
|   |  |       |
+---+  +-------+
   ~/two.txt

Semplice e affidabile: due loop ASCII per il numero 2. Sfortunatamente, queste cose tendono ad aggrovigliarsi nel tempo e ora ho difficoltà a capire quanti loop ci sono in ciascun file. Ecco alcuni esempi che ho elaborato a mano:

Uno:

   +---+
   |   |
+--+   |
|      |
+--+   |
   |   |
   |   |
   |   |
+--+   +--+
|         |
+---------+

Tre:

+---------+
| +-----+ |
| | +-+ | |
| | | | | |
| | +-+ | |
| +-----+ |
+---------+

Quattro:

  +--------------+
  |  +--+  +--+  |
  |  |  |  |  |  |
+-|-----|-----|----+
| |  |  |  |  |  | |
| +--+  +--+  +--+ |
+------------------+

              +------------+
              |            |
        +-----+  +-----+   |
        |        |     |   |
  +-----|-----------+  |   |
  |     |  +--+  |  |  |   |
  +-+   +--|--|--+  +---------+
    |      |  +-+      |   |  |
    +------+    |      |   |  |
                +-------+  |  |
                       ||  |  |
                       |+-----+
                       |   |
                       +---+

Cinque:

+--------+  +--------+  +--------+
|        |  |        |  |        |
|     +--|-----+  +--|-----+     |
|     |  |  |  |  |  |  |  |     |
+-----|--+  +-----|--+  +--------+
      |        |  |        |
      +--------+  +--------+

Potete aiutarmi a contare i miei anelli?

Ecco le regole:

  • Dato che conservo tutto in unario codificato ASCII, l'efficienza dello spazio è molto importante per me. Pertanto, questo è il codice golf. Vince il programma più piccolo in byte.
  • I loop sono disegnati con i caratteri +, -, |. Ogni angolo del ciclo è disegnato in modo inequivocabile: esattamente uno dei caratteri sopra e sotto il + sarà |, e esattamente uno a destra o sinistra sarà -. Due + segni non sono mai adiacenti.
  • I fili possono passare uno sopra l'altro. Quando i fili si incrociano, sarai in grado di vedere immediatamente il filo "sotto" su entrambi i lati del filo "sopra".
  • Il programma dovrebbe prendere una rappresentazione in forma di stringa del loop (da stdin o come parametro di funzione) e produrre un numero (a stdout o come valore di ritorno).
  • Le lunghezze delle linee potrebbero non essere uniformi nel disegno ad anello e potrebbero esserci spazi finali su ciascuna linea.
  • Si può presumere che ci sia almeno un loop nell'input.

Conto su di te!


Uno dei lati di un 'sotto-filo' può essere un +?
feersum

@feersum: No, i due bordi collegati al + saranno sempre visibili.
Matt Noonan,

1
@Martin: temo di no. Il mio spazio di archiviazione è davvero un premio, quindi non posso risparmiare tutti quegli spazi extra.
Matt Noonan,

Penso che dovresti aggiungere questo ( pastebin ) come test case a meno che non manchi qualcosa e non sia un input valido. Ci sono 6 anelli; L'ho testato solo online con la soluzione SnakeEx e produce 12.
blutorange

1
Forse dovresti esplicitamente vietare o consentire loop che si incrociano (ad esempio pastebin.com/5RLZuULG ) Attualmente, vengono rilevati dalla soluzione ruby, ma non dalla soluzione SnakeEx.
Blutorange,

Risposte:


19

SnakeEx - 98 byte con Javascript, 44 senza

Sembrava un buon problema provare la mia lingua dalla Fortnightly Challenge su:

m:({e<>PE}\-[|\-]*<T>\+|[|\-]*<T>)+`\+
e:\+

Il posto migliore per provare questo è il mio interprete online .

SnakeEx abbina i motivi nel testo usando "serpenti" che si muovono attorno alle regex corrispondenti al testo. Il codice legge un po 'come una regex, tranne:

  • L' <T>istruzione. Questo è un comando di direzione che dirama il serpente a sinistra ea destra dalla sua direzione attuale.
  • {e<>PE}è come una chiamata di subroutine. Ciò che genera un serpente con definizione eche avanza ( <>) e con parametri P(piggyback - il serpente spawn segue il nuovo serpente) e E(esclusivo - non corrispondono a nulla che è già stato abbinato). Questo controllo esclusivo è l'unica cosa che impedisce al serpente di girare all'infinito.
  • Il prefisso `alla fine indica che ciò che segue dovrebbe essere abbinato solo se è già stato abbinato, che possiamo usare per forzare la chiusura del loop.

Poiché SnakeEx è come regex e non produce tecnicamente i risultati come desiderato da solo, suppongo che dobbiamo avvolgerlo in alcuni Javascript chiamando l'interprete:

function e(s){return snakeEx.run('m:({e<>PE}\\-[|\\-]*<T>\\+|[|\\-]*<T>)+`\\+\ne:\\+',s,1).length}

Modifica : risolto per funzionare con i casi di test aggiuntivi di Blutorange


1
+1 Mi piace molto, forse perché posso provarlo online e mettere in evidenza i loop. Ma potresti voler controllare questi due casi di test: 1 , 2
blutorange

@blutorange Buona cattura. Ho aggiunto una correzione leggermente confusa per i cicli auto-attraversanti. Dovrò pensare un po 'di più al caso test 1.
BMac

È facile da risolvere, basta sostituirlo [^ ]con [|\-];)
blutorange

Ah, mi ci è voluto molto tempo per capire perché fosse così. Buona chiamata.
BMac

Questo e spettacolare!
Ingo Bürk,

10

C # - 338388 433 byte

Salvato un mucchio di byte cambiando in un array monodimensionale.

using C=System.Console;using System.Linq;class P{static void Main(){var D=C.In.ReadToEnd().Split('\n');int z,w=D.Max(m=>m.Length)+1,d,c=0;var E=D.SelectMany(l=>l.PadRight(w)).ToList();for(z=E.Count;z-->1;)if(E[z-1]==43)for(d=1,c++;E[z+=d%2<1?w*d-w:d-2]>32;)if(E[z]<44){E[z]=' ';d=d%2>0?z<w||E[z-w]<99?2:0:E[z+1]!=45?1:3;}C.WriteLine(c);}}

Prima legge nell'input e lo rende bello e rettangolare, con un "" bordo in modo da non dover fare alcun controllo dei limiti sull'orizzontale (più economico per fare il controllo sulla verticale che per inserire la linea extra) . Quindi guarda indietro attraverso il rettangolo, quindi colpisce sempre un angolo in basso a destra. Quando colpisce uno di questi, si dirige verso l'alto, seguendo i + s che incontra, e cancellandoli mentre procede (con uno spazio). Smette di seguire quando incontra uno spazio. Testato sui cinque esempi forniti.

using C=System.Console;
using System.Linq;

class P
{
    static void Main()
    {
        // read in
        var D=C.In.ReadToEnd().Split('\n');

        int z, // z is position in E
        w=D.Max(m=>m.Length)+1, // w is width
        d, // d is direction of travel (1 == horizontal?, 2 == down/right?)
        c=0; // c is loop count

        // make all the lines the same length
        var E=D.SelectMany(l=>l.PadRight(w)).ToList(); // say no to horizontal bounds checking

        // consume +s
        for(z=E.Count;z-->1;)
            if(E[z-1]==43) // right-most lower-most +
                for(d=1,c++; // go left, increment counter
                    E[z+=d%2<1?w*d-w:d-2]>32 // move z, then check we havn't hit a space (when we do, z is basiclly z - 1)
                    ;)
                    if(E[z]<44) // +
                    {
                        E[z]=' '; // toodles

                        d=
                            d%2>0? // currently horizontal, must go vertical
                                z<w||E[z-w]<99?2 // can't go up, must go down
                                :0 // can go up, go up
                            : // currently vertical, must go horizontal
                                E[z+1]!=45?1 // can't go right, must go left
                                :3 // can go right, go right
                            ;
                    }

        // output result
        C.WriteLine(c);
    }
}

Wow. È impressionante: o
Metoniem,

6

Slip , 51 41 + 2 = 43 byte

$a(`+`-[^ +]*`+(<|>)`|[^ +]*`+#(<|>))+?$A

(Ora aggiornato per funzionare con il test case di @ blutorange ad un costo maggiore)

Dato che @BMac ha usato SnakeEx per questa sfida, ho pensato di provare a usare il mio invio di linguaggio per la corrispondenza dei pattern 2D , Slip. Ma poiché Slip non aveva le funzionalità necessarie per risolvere questo problema, le ho aggiunte negli ultimi giorni. In altre parole, questa presentazione non è idonea a vincere .

Corri con la nbandiera per il numero di partite, ad es

py -3 slip.py regex.txt input.txt n

Provalo online .


Spiegazione

A causa della pletora di nuove funzionalità in questa presentazione, questa è una buona opportunità per mostrarle.

$a                Set custom anchor at current position
(
  `+`-            Match '+-'
  [^ +]*          Match any number of '|' or '-'
  `+              Match a '+'
  (<|>)           Either turn left or turn right
  `|              Match a '|'
  [^ +]*          Match any number of '|' or '-'
  `+              Match a '+'
  #               Prevent next match from moving the match pointer (doubling up on '+')
  (<|>)           Either turn left or turn right
)
+?                Do the above at least once, matching lazily
$A                Make sure we're back where we started

Slip tenta di abbinare a partire da ogni posizione e restituisce solo corrispondenze uniche. Si noti che utilizziamo [^ +]- mentre l'utilizzo in [-|]teoria risparmierebbe due byte, senza caratteri di escape -all'inizio / fine delle classi di caratteri non è ancora implementato in Slip.


1
@blutorange threeha anche +s che non sono uno -, uno |e 2 spazi, quindi presumo che non sia un errore
Sp3000

5

Rubino 295

F=->i{l=i.lines
g={}
l.size.times{|y|i.size.times{|x|l[y][x]==?+&&g[[y,x]]=[[y,x]]}}
c=->a,b{w=g[b]+g[a];w.map{|x|g[x]=w}}
k=g.keys
k.product(k).map{|n,o|
r,p=n
s,q=o
((r==s&&p<q&&l[r][p...q]=~/^\+-[|-]*$/)||(p==q&&r<s&&l[r...s].map{|l|l[p]||c}.join=~/^\+\|[|-]*$/))&&c[n,o]}
g.values.uniq.size}

Provalo online: http://ideone.com/kIKELi ( ho aggiunto una #to_achiamata sulla prima linea, perché ideone.com utilizza Ruby 1.9.3, che non supporta #sizeper EnumerableS. In Ruby 2.1.5+ il codice funziona OK . )

L'approccio è il seguente:

  • fai un elenco di tutti i +segni nell'input e considera ciascuno di essi una forma distinta
  • trova linee orizzontali e verticali che collegano due +segni e uniscono le loro forme in una sola
  • alla fine, il numero di forme distinte corrisponde al risultato

Ecco una versione più leggibile:

def ascii_topology_count(input)
  lines = input.lines
  max_length = lines.map(&:size).max

  # hash in which the keys are corners ("+"s), represented by their [y, x] coords
  # and the values are arrays of corners, representing all corners in that group
  corner_groups = {}

  lines.size.times { |y|
    max_length.times { |x|
      if lines[y][x] == ?+
        corner_groups[[y, x]] = [[y, x]]
      end
    }
  }

  # function that combines the groups of two different corners
  # into only one group
  combine_groups =-> c1, c2 {
    g1 = corner_groups[c1]
    g2 = corner_groups[c2]

    g2 += g1
    corner_groups[c1] = g2
    g2.map{|x| corner_groups[x] = g2}
  }

  corner_groups.keys.product(corner_groups.keys).map{|c1, c2|
    y1,x1=c1
    y2,x2=c2
    if y1 == y2 && x1 < x2
      # test horizontal edge
      t = lines[y1][x1...x2]
      if t =~ /^\+-[|-]*$/
        # p "#{c1}, #{c2}, [H] #{t}"
        combine_groups[c1, c2]

      end
    end

    if x1 == x2 && y1 < y2
      # test vertical edge
      t=lines[y1...y2].map{|l|l[x1]||' '}.join

      if t =~ /^\+\|[|-]*$/
        # p "#{c1}, #{c2}, [V] #{t}"
        combine_groups[c1, c2]
      end
    end
  }

  corner_groups.values.uniq.count
end

5

JavaScript (ES6) 190 197 202 215 235 289 570

Modifica array di dimensioni singole anziché 2 dimensioni, dimensione massima riga 999 caratteri (ma può essere più gratuito, ad esempio 1e5 anziché 999)

Modifica Aggiunta frammento di codice animato, vedi sotto

F=s=>[...s.replace(/.+/g,r=>r+Array(e-r.length),e=999)]
  .map((c,x,z,d=1,f='-',g='|')=>{
    if(c=='+')
      for(++n;z[x+=d]!='+'||([f,g,e,d]=[g,f,d,z[x-e]==g?-e:z[x+e]==g&&e],d);)
        z[x]=z[x]==g&&g
  },n=0)|n

Primo tentativo di Ungolf

f=s=>
{
  cnt=0
  s = (1+s+1).split(/[1\n]/)

  for(;x=-1, y=s.findIndex(r=>~(x=r.indexOf('+-'))), x>=0;++cnt)
  {
    //console.log(y+' '+x+' '+s.join('\n'))
    dx = 1
    for(;dx;)
    {
      a=s[y-1],b=s[y+1],
      r=[...s[y]]
      for(r[x]=' ';(c=r[x+=dx])!='+';)
      {
        if (c=='-')
          if((a[x]||b[x])=='|')r[x]='|';
          else r[x]=' ';
      }  

      if(a[x]=='|')dy=-1;
      else if(b[x]=='|')dy=1;
      else dy=0
      r[x]=' '
      s[y]=r.join('')
      if (dy) {
        for(;y+=dy,r=[...s[y]],(c=r[x])!='+'&c!=' ';)
        {
          if (c=='|') 
            if((r[x-1]||r[x+1])=='-')r[x]='-';
            else r[x]=' ';
          s[y]=r.join('')
        }  
        if(r[x-1]=='-')dx=-1;
        else if(r[x+1]=='-')dx=1;
        else dx=0;
      }
    }  
  }
  return cnt
}

Snippet animato

Test nella console di Firefox / FireBug

F('\
  +--------------+\n\
  |  +--+  +--+  |\n\
  |  |  |  |  |  |\n\
+-|-----|-----|----+\n\
| |  |  |  |  |  | |\n\
| +--+  +--+  +--+ |\n\
+------------------+\n\
\n\
              +------------+\n\
              |            |\n\
        +-----+  +-----+   |\n\
        |        |     |   |\n\
  +-----|-----------+  |   |\n\
  |     |  +--+  |  |  |   |\n\
  +-+   +--|--|--+  +---------+\n\
    |      |  +-+      |   |  |\n\
    +------+    |      |   |  |\n\
                +-------+  |  |\n\
                       ||  |  |\n\
                       |+-----+\n\
                       |   |\n\
                       +---+')

4

F('\
+--------+  +--------+  +--------+\n\
|        |  |        |  |        |\n\
|     +--|-----+  +--|-----+     |\n\
|     |  |  |  |  |  |  |  |     |\n\
+-----|--+  +-----|--+  +--------+\n\
      |        |  |        |\n\
      +--------+  +--------+')

5


Sicuramente salveresti alcuni byte con un solo rivestimento della versione golfata? Puoi anche creare una funzione anonima (penso che rientri nelle regole di codegolf)
theonlygusti

@theonlygusti la versione golfata viene conteggiata come una riga singola (non vengono contati spazi di rientro e di nuova riga). Con una funzione anonima, salvo 2 byte, risparmio trascurabile ...
edc65,

4

Ruby, 178 187 199 212

Meglio versione rubino, crea una funzione F. Ora con avvertimenti interprete più deliziosi costantemente.

b=->n{Q[I]=?~
d=Q[I+n]==(n>1??|:?-)?1:-1
loop{I+=d*n
b[n>1?1:N]if Q[I]==?+
Q[I]<?~?4:break}}
F=->s{N=s.size;Q=s+?\n
Q.gsub!(/^.*$/){$&.ljust N-1}
(0..N).find{!(I=Q=~/\+/)||b[1]}}

Provalo online: ideone

Fondamentalmente, la funzione binizia da qualsiasi +, ricorsivamente attraversa il ciclo, impostando tutto +su u. In questo modo viene rimosso un loop ogni volta che bviene chiamato. La funzione Fprova solo con quale frequenza dobbiamo chiamare bfino a quando non rimangono più loop.


2

Python 2 - 390

Prende una stringa con newline da stdin. È un metodo piuttosto semplice giocato a golf abbastanza, ma sono sicuro che non potrebbe essere considerato quanto tempo è lungo.

s=raw_input().split('\n');L=len
def R(x,y):
 b=p,q=x,y;u=v=f=0
 while b!=(p,q)or not f:
    p+=u;q+=v;f=u+v;c=s[q][p]
    if'+'==c:u,v=[(i,j)for i,j in{(-1,0),(1,0),(0,-1),(0,1)}-{(-u,-v)}if 0<=q+j<L(s)and 0<=p+i<L(s[q+j])and s[q+j][p+i]in['-+','|+'][j]][0];s[q]=s[q][:p]+' '+s[q][p+1:]
    if c+s[q+v][p+u]in'-|-':p+=u;q+=v
print L([R(x,y)for y in range(L(s))for x in range(L(s[y]))if'+'==s[y][x]])

1

Python 2 - 346 byte

Implementato come una funzione cche accetta i dati del file come input e restituisce il numero di loop.

Innanzitutto, la funzione decompone i dati in una mappatura delle posizioni degli elementi del ciclo sul tipo di elemento in quella posizione (ad es {(0,0): '+'} .). Quindi utilizza due funzioni interne reciprocamente ricorsive. Il primo rimuove un segmento di loop dalla mappatura e decide quali posizioni controllare per il segmento successivo. Il secondo controlla quale tipo di elemento loop si trova nelle posizioni selezionate e, se è compatibile con ciò che è previsto, chiama il primo per rimuovere la sezione appena trovata.

e=enumerate
def c(d):
 D={(i,j):k for i,l in e(d.split('\n'))for j,k in e(l)if k in'+-|'}
 def f(r,c,R,C,t):
  if D.get((r,c),t)!=t:g(r,c)
  elif D.get((R,C),t)!=t:g(R,C)
 def g(r,c):
  t=D.pop((r,c))
  if t!='|':f(r,c-1,r,c-2,'|');f(r,c+1,r,c+2,'|')
  if t!='-':f(r-1,c,r-2,c,'-');f(r+1,c,r+2,c,'-')
 n=0
 while D:g(*D.keys()[0]);n+=1
 return n
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.