Faça um índice de pesquisa

12

Dada uma sequência, retorne uma tabela em que a primeira coluna possui as letras exclusivas da sequência em ordem de ocorrência e as colunas subseqüentes listam os índices dessa letra na sequência, usando a indexação com base em zero ou uma. O espaço em branco horizontal não importa, desde que a coluna mais à esquerda esteja alinhada verticalmente. Os índices devem estar em ordem crescente da esquerda para a direita.

Exemplos

Usando indexação baseada em zero e dado "abracadabra", retorne

a 0 3 5 7 10
b 1 8       
r 2 9       
c 4         
d 6   

Usando a indexação baseada em um e fornecido "3141592653589793238462643383279503", retorne:

3  1 10 16 18 25 26 28 34
1  2  4                  
4  3 20 24               
5  5  9 11 32            
9  6 13 15 31            
2  7 17 22 29            
6  8 21 23               
8 12 19 27               
7 14 30                  
0 33                     
Adão
fonte
Posso ter espaços à esquerda na saída?
Erik the Outgolfer
O formato de saída deve ser rigoroso?
Leaky Nun
@EriktheOutgolfer Yes. Adicionado.
Adám
@LeakyNun No. Added.
Adám
2
Isso precisa funcionar para caracteres que não são ascii imprimíveis? Existem caracteres que possamos assumir que não estarão na string (principalmente em branco)?
FryAmTheEggman

Respostas:

6

APL (Dyalog) , 4 bytes

,⌸

Experimente online!

( é de 3 bytes)

Usa indexação baseada em 1.

é o operador principal. Aqui ele se comporta como um operador monádico. Aplica a função ,concatenar o argumento da esquerda com o argumento da direita a cada elemento exclusivo do argumento correto e os índices desse elemento exclusivo no argumento original.

user41805
fonte
Hm, isso precisa de uma explicação :-)
Adám
4
@ Adám Eu suspeito que este desafio tinha sido adaptados especificamente para APL 😉
Uriel
@ Uriel O contrário. Eu estava olhando para o que a APL pode fazer perfeitamente e pensei que isso seria um bom desafio.
Adám 20/06/19
Eu vejo 4 bytes lá.
Adám 20/06/19
2

Haskell , 86 bytes

import Data.List
f s=unlines[x:concat[' ':show i|i<-[0..length s-1],s!!i==x]|x<-nub s]

Define uma função, fque retorna uma String contendo esta saída.

Experimente online!

Quão?

import Data.List                                                            -- Imports Data.List. This contains the nub method which is necessary
f s =                                                                       -- Define a function, f, which takes one argument, s
            [                                               |x<-nub s]      -- Loop through nub s with the variable x. Nub removes duplicates from a list, in this case the input.
                     [          |i<-[0..length s-1]        ]                -- Go thourgh the list [0,1,2...] until the length of the input - 1. Basically a indexed for-loop
                                                   ,s!!i==x                 -- Filter out everything where the char at this index isn't x
                      ' ':show i                                            -- i as a string with a space before it
               concat                                                       -- Flatten the whole list
             x:                                                             -- Append x before it
     unlines                                                                -- Insert newlines between every element in the list and flatten it, effectively putting every element on it's own line
Loovjo
fonte
2
Acho que nunca vi esse formato de comentário usado por Haskell.
Adám
Sua compreensão da lista interna pode ser reduzida para [' ':show i|(i,c)<-zip[0..]s,c==x].
Laikoni
2

kdb + / q , 5 bytes

group

Builtins são fabulosos

q)group"abracadabra"
a| 0 3 5 7 10
b| 1 8
r| 2 9
c| ,4
d| ,6

Normalmente jogo golfe em k , mas a versão k de 2 bytes ( =:) não formata a saída muito bem

k)=:"abracadabra"
"abrcd"!(0 3 5 7 10;1 8;2 9;,4;,6)

Os resultados são exatamente os mesmos, mas a formatação é perdida. Para formatar e remover o objeto de retorno, escolhemos mais bytes que a versão q

k)f:{[email protected] x;} //11 bytes!
k)f"abracadabra"
a| 0 3 5 7 10
b| 1 8
r| 2 9
c| ,4
d| ,6
Simon Major
fonte
Hum, retorna um dicionário. Interessante.
Adám
1

Python, 96 bytes

def f(s,r=[]):
 for c in s:
  if c not in r:print(c,*(i for i,l in enumerate(s) if l==c));r+=[c]

experimente online!

Uriel
fonte
0

05AB1E , 14 bytes

ÙvSyQƶ0Ky¸ìðý,

Experimente online!

Explicação

Ùv              # for each unique char y in input
  S             # split input into a list of chars
   yQ           # compare each to y for equality
     ƶ          # multiply each by its 1-based index
      0K        # remove zeroes
        y¸ì     # prepend y to the list of indices
           ðý,  # join by spaces and print
Emigna
fonte
0

Mathematica, 85 bytes

usando indexação baseada em um

(t=#;j=First/@t~StringPosition~#&/@(s=First/@Tally@Characters@t);Row[Column/@{s,j}])&
J42161217
fonte
0

JavaScript (ES Draft), 77 bytes

s=>s.replace(/./g,(c,i)=>a[c]=(a[c]||c)+` `+i,a={})&&Object.values(a).join`
`

88 bytes em navegadores antigos:

f=
s=>s.replace(/./g,(c,i)=>a[c]=(a[c]||c)+` `+i,a={})&&Object.keys(a).map(c=>a[c]).join`
`
<input oninput=o.textContent=f(this.value)><pre id=o>

Neil
fonte
0

PHP , 82 bytes

for(;~$c=$argn[$i];)$r[$c].=str_pad(++$i,5," ",0);foreach($r as$k=>$v)echo"$k$v
";

Experimente online!

Jörg Hülsermann
fonte
0

QBIC , 95 bytes

dim X(126)[_l;||i=asc(_sA,a,1|)┘X(i)=X(i)+@ `+!a$][_lA||_SA,b,1|i=asc(C)~X(i)<>D|?C,X(i)┘X(i)=@

Explicação

Isso copia partes significativas da minha resposta sobre este desafio :

dim x(126)      Create an array of 126 elements (one for each ASCII element)
[_l;||          Read cmd line input, loop over its length
i=asc(_sA,a,1|) Read the next char's ascii value
┘               (Syntactic linebreak)
X(i)=           Set the value for this ascii-codepoint to
 X(i)             everything we've put in before
 +@ `             and a literal space
 +!a$             and the current (1-based) index cast as string
 ]              close the FOR loop
 [_lA||         Loop over the original string again (to preserve order of appearance)
 _SA,b,1|       Read 1 char, assign to C$ (note the capital S in the function call,
                this auto-creates C$ abd assigns it the value of the substring-call)
 i=asc(C)       Get the index in our storage array from C$'s ascii value
 ~X(i)<>D       IF the storage array holds data for i (<> D$, which we'll set to "" in a second), 
 |?C,X(i)       THEN PRINT the character, followed by the indices saved for this char
 ┘              (Syntactic linebreak)
 X(i)=@         Clear out the data stored for C$
                @ declares a string lit, ` would close it and that gets auto-added at EOF, 
                creating the literal @`, which gets assigned to D$

Exemplo de execução:

Command line: abracadabra
a              1 4 6 8 11
b              2 9
r              3 10
c              5
d              7
steenbergh
fonte
0

C (clang) , 176 bytes

G(S,V,c,g,i,H,L)char*S,*V;{for(V=malloc(8),H=strlen(S),c=g=-1;++g<H;){if(strchr(V,L=S[g]))continue;printf("%c ",V[c++]=L);for(i=-1;++i<H;printf(S[i]==L?"%d ":"",i));puts("");}}

Claro que esta é a resposta mais longa aqui ...

Experimente online!

R. Kap
fonte
Onde está a solução Java?
Adám
164 bytes
ceilingcat 31/07/19
0

Python 3, 111 106 bytes

def q(f):
 d={a:[]for a in f}
 for a,b in enumerate(f):d[b]+=[a]
 [print(p,*d.pop(p))for p in f if p in d]

repl.it

Wondercricket
fonte
0

C # , 138 bytes

using System.Linq;s=>Console.Write(string.Join("\n",s.Distinct().Select(c=>c+string.Join("",s.Select((d,i)=>d==c?i:-1).Where(i=>i>-1)))));

fonte
0

F # , 120 bytes

let f s=s|>Seq.indexed|>Seq.groupBy(fun(a,b)->b)|>Seq.iter(fun(a,b)->
 printf"\n%c"a 
 Seq.iter(fun(c,_)->printf"%i"c)b)

Uma versão mais legível:

let f s =
    s
    |> Seq.indexed
    |> Seq.groupBy (fun (idx, char) -> char)
    |> Seq.iter (fun (char, charIdxSeq) ->
         printf "\n%c" char 
         Seq.iter (fun (idx, _) -> printf "%i" idx) charIdxSeq)

Seq.indexed cria uma nova sequência contendo tuplas que são compostas pelo elemento original e seu índice com base em 0 na sequência original.

O resto é bastante auto-explicativo, o que nunca é uma coisa boa para o golfe!


fonte
0

R , 80 bytes

function(s)for(i in (z=unique(s<-strsplit(s,'')[[1]])))cat(i,which(s==i),"
")

Experimente online!

uma função anônima; imprime o resultado indexado em 1 com uma nova linha à direita.

Giuseppe
fonte
0

Casca , 10 bytes

§mȯ§:;ms¥u

Experimente online!

Nota: Husk (ou pelo menos o comando ¥) é mais recente que esse desafio.

Explicação

§mȯ§:;ms¥u  Implicit input, say S = "ababbc".
         u  Remove duplicates: "abc"
§m          Map over this string:
             Argument is a character, say 'b'.
        ¥    1-based indices in S: [2,4,5]
      ms     Convert each to string: ["2","4","5"]
     ;       Wrap argument in a string: "b"
  ȯ§:        Prepend to list of index strings: ["b","2","4","5"]
            Result is a list of lists of strings
             [["a","1","3"],["b","2","4","5"],["c","6"]]
            Implicitly print, separating strings by spaces and lists by newlines.
Zgarb
fonte