Eu me deparei com essa pergunta, porque parece ser um caso de uso muito comum encontrar caracteres únicos na string. Mas e se quisermos nos livrar deles?
A entrada contém apenas letras minúsculas. Somente letras de a a z são usadas. O comprimento da entrada pode ter de 1 a 1000 caracteres.
Exemplo:
input: helloworld
output: llool
Objetivo: o menor código vence
Idioma: qualquer um dos 20 principais idiomas do TIOBE
Respostas:
s/./$&x(s!$&!$&!g>1)/eg
Uso:
> perl -pe 's/./$&x(s!$&!$&!g>1)/eg'
helloworld
llool
No começo, pensei que poderia fazer isso com um look-ahead negativo e um look-behind negativo, mas acontece que os look-behind negativos devem ter um comprimento fixo. Então, eu fui para expressões regulares aninhadas. Com agradecimentos ao mob pela $&dica.
-CDSopção
$1por $&e você poderá perder alguns pares de parênteses.
:;{.;?);>?)},
O GolfScript não é um dos 20 principais, mas um codegolf sem o GolfScript ... ( execute você mesmo )
Versão anterior: ( executar script )
1/:;{;\-,;,(<},
:;? Você está deliberadamente tentando confundir novatos, não é? ;)
)- seria um sorriso então :). Infelizmente, não encontrei uma maneira de eliminar o dígito 1. (Nota para iniciantes no GolfScript: você pode substituir qualquer um ;no código por um x(ou qualquer outra letra ou dígito - ou qualquer caractere não utilizado no script). Nesse caso especial, ;é apenas um nome de variável - e não tem o significado "pop and descarte". No GolfScript, quase todos os tokens são variáveis, e o uso de símbolos predefinidos é uma ótima maneira de tornar os scripts ainda mais ilegíveis para quem está de fora ;-).)
:a{]a.@--,(},
:x{{=}+x\,,(},
Pode não se qualificar para ganhar, mas é útil ter um critério.
gets.chars{|c|$><<c if$_.count(c)>1}
se usar $_para a segunda aparição (o espaço anterior é então dispensável).
Eu não esperava que fosse tão curto.
2.7: a=raw_input();print filter(lambda x:a.count(x)>1,a)
3.0: a=input();print''.join(i for i in a if a.count(x)>1)
raw_input(): armazena a entrada como uma string ( input()= eval(raw_input()))
(Python 3.0: input()foi transformado em raw_input())
filter(lambda x:a.count(x)>1,a): Filtre todos os caracteres contidos ase forem encontrados amais de uma vez ( a.count(x)>1).
input()vez de raw_input(). Embora você tem que adicionar um personagem para um colchete de fechamento, uma vez que printé uma função em python 3.
''.join(...)
Concedido que isso não faz parte da lista TIOBE, mas é divertido (-:
<<<$s sed 's/./&\n/g'|head -c -1|sort|uniq -c|sed -n 's/^ *1 (.*)/\1/p'|tr -d '\n'|sed 's:^:s/[:; s:$:]//g\n:'|sed -f - <(<<<$s)
Versão descolada:
s=helloworld
<<< $s sed 's/./&\n/g' \
| head -c -1 \
| sort \
| uniq -c \
| sed -n 's/^ *1 (.*)/\1/p' \
| tr -d '\n' \
| sed 's:^:s/[:; s:$:]//g\n:' \
| sed -f - <(<<< $s)
O primeiro sed converte a entrada em um caractere por linha. O segundo sed encontra caracteres que ocorrem apenas uma vez. O terceiro sed grava um script sed que exclui caracteres únicos. O último sed executa o script gerado.
⊇.oḅlⁿ1∧
Envio de função. Tecnicamente não competitivo, porque a pergunta tem uma limitação sobre quais idiomas podem competir (no entanto, várias outras respostas já ignoraram a restrição).
⊇.oḅlⁿ1∧
⊇ Find {the longest possible} subset of the input
o {for which after} sorting it,
ḅ and dividing the sorted input into blocks of identical elements,
lⁿ1 the length of a resulting block is never 1
. ∧ Output the subset in question.
Aqui está outra alternativa (alguns caracteres a mais) no Python:
a=raw_input();print''.join(c for c in a if a.count(c)>1)
Se você aceitar a saída como uma lista (por exemplo ['l', 'l', 'o', 'o', 'l']), poderemos reduzi-la para 49 caracteres:
a=raw_input();print[c for c in a if a.count(c)>1]
>1é uma boa ideia! Posso incorporar isso na minha solução?
@x=split//,<>;$s{$_}++for@x;for(@x){print if($s{$_}>1)}
Lê de stdin.
Usa ExtString.String do ExtLib
open ExtString.String
let f s=let g c=fold_left(fun a d->a+Obj.magic(d=c))0 s in replace_chars(fun c->if g c=1 then""else of_char c)s
Versão sem golfe
open ExtString.String
let f s =
let g c =
fold_left
(fun a c' -> a + Obj.magic (c' = c))
0
s
in replace_chars
(fun c ->
if g c = 1
then ""
else of_char c)
s
A função gretorna o número de ocorrências de c na sequência s. A função fsubstitui todos os caracteres pela string vazia ou pela string que contém o char, dependendo do número de ocorrências. Edit: Reduzi o código em 6 caracteres abusando da representação interna de bools :-)
Ah, e ocaml é 0 no índice TIOBE ;-)
while($x<strlen($s)){$c=$s[$x];echo substr_count($s,$c)>1?$c:'';$x++;}
com suposição $ s = 'helloworld'.
s->{for(char c=96;++c<123;s=s.matches(".*"+c+".*"+c+".*")?s:s.replace(c+"",""));return s;}Explicação:
s->{ // Method with String as both parameter and return-type
for(char c=96;++c<123; // Loop over the lowercase alphabet
s=s.matches(".*"+c+".*"+c+".*")?
// If the String contains the character more than once
s // Keep the String as is
: // Else (only contains it once):
s.replace(c+"","")); // Remove this character from the String
return s;} // Return the modified String"$args"-replace"[^$($args|% t*y|group|?{$_.Count-1}|% n*)]"Menos golfe:
$repeatedСhars=$args|% toCharArray|group|?{$_.Count-1}|% name
"$args"-replace"[^$repeatedСhars]"Nota: $repeatedCharsé uma matriz. Por padrão, um PowerShell junta elementos da matriz por espaço, enquanto converte a matriz em string. Portanto, o regexp contém espaços (neste exemplo [^l o]). Os espaços não afetam o resultado porque a sequência de entrada contém apenas letras.
Função de prefixo tácito anônimo.
∊⊢⊆⍨1<⍧⍨⍧⍨ selfie de contagem (contagem de ocorrências de elementos de argumento no próprio argumento)
1< Máscara booleana em que um é menor que isso
⊢⊆⍨ particione o argumento por essa máscara (iniciando uma nova partição em 1s e removendo em 0s)
∊ ε nlist (achatar)
s=>[...s].filter(c=>s.match(c+'.*'+c)).join``
a=utf8ToInt(scan(,''));intToUtf8(a[!a%in%names(table(a)[table(a)<2])])Uma péssima tentativa, mesmo em um dos 20 principais idiomas da TIOBE. Sei que algo pode ser feito no segundo tempo, mas, no momento, qualquer jogador de golfe me escapa.
Entrada como uma string, saída como uma matriz de caracteres.
s=>[...s].filter(x=>s.split(x)[2])
map: tio.run/##BcExDoAgDADAvzgYOtjBHT9CTCSICqmUWKL8vt5l/…
p=>[...p].map((v,i,a)=>a.filter(f=>f==v).length).reduce((a,c,i)=>c>1?a+=p[i]:a,[]).join``vez de .join("").
Código
implode('',array_intersect(str_split($text),array_flip(array_filter(array_count_values(str_split($text)),function($x){return $x>=2;}))));
Código normal
$text = 'helloworld';
$filter = array_filter(array_count_values(str_split($text)), function($x){return $x>=2;});
$output = implode('',array_intersect(str_split($text),array_flip($filter)));
echo $output;
PHP - 83 78
<?for($a=$argv[1];$i<strlen($a);$r[$a[$i++]]++)foreach($ras$k=>$c)if($c>1)echo$k
Versão melhorada:
<?for($s=$argv[1];$x<strlen($s);$c=$s[$x++]) echo substr_count($s,$c)>1?$c:'';
É claro que isso precisa ser desativado
Edit: Melhoria inspirada em @hengky mulyono
Eu sou tão ruim em codegolf :)
string s;cin>>s;string w{s}; auto l=remove_if(begin(s),end(s),[&w](auto&s){return count(begin(w),end(w),s)==1;});s.erase(l,end(s));cout<<s;
ungolfed:
#include <algorithm>
#include <string>
#include <iostream>
int main() {
using namespace std;
string s;
cin >> s;
const string w{s};
auto l = remove_if(begin(s), end(s), [&w](auto& s) {
return count(begin(w), end(w), s) == 1;
});
s.erase(l, end(s));
cout << s;
return 0;
}