Encontré esta pregunta, porque parece ser un caso de uso muy común para encontrar caracteres únicos en la cadena. Pero, ¿qué pasa si queremos deshacernos de ellos?
La entrada contiene solo alfabetos en minúsculas. Solo se utilizan letras de la a a la z. La longitud de entrada puede ser de 1 a 1000 caracteres.
Ejemplo:
input: helloworld
output: llool
Objetivo: el código más corto gana
Idioma: cualquiera de los 20 principales idiomas de TIOBE
Respuestas:
s/./$&x(s!$&!$&!g>1)/eg
Uso:
> perl -pe 's/./$&x(s!$&!$&!g>1)/eg'
helloworld
llool
Al principio pensé que podía hacer esto con una mirada hacia adelante negativa y una mirada hacia atrás negativa, pero resulta que las miradas negativas deben tener una longitud fija. Así que fui por expresiones regulares anidadas en su lugar. Gracias a la mafia por la informacion $&.
-CDSopción
$1con $&y puede perder un par de paréntesis.
:;{.;?);>?)},
GolfScript no es uno de los 20 mejores, sino un codegolf sin GolfScript ... ( ejecútelo usted mismo )
Versión anterior: ( ejecutar script )
1/:;{;\-,;,(<},
:;? Intentas confundir deliberadamente a los novatos, ¿verdad? ;)
)- sería un smiley entonces :). Desafortunadamente, no encontré una forma de eliminar siquiera el dígito 1. (Nota para los novatos de GolfScript: puede reemplazar cualquiera ;en el código con un x(o cualquier otra letra o dígito, o cualquier carácter que no se use en el script). En este caso especial ;es solo un nombre de variable, y no tiene el significado "pop and descarte". En GolfScript, casi todos los tokens son variables de todos modos, y el uso de símbolos predefinidos es una excelente manera de hacer que los scripts sean aún más ilegibles para los extraños ;-).)
:a{]a.@--,(},
:x{{=}+x\,,(},
Puede que no califique para ganar, pero es útil tener un criterio.
gets.chars{|c|$><<c if$_.count(c)>1}
sy lo usa $_para la segunda aparición (el espacio anterior es entonces prescindible).
No esperaba que fuera tan corto.
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(): almacena la entrada como una cadena ( input()= eval(raw_input()))
(Python 3.0: input()se ha convertido en raw_input())
filter(lambda x:a.count(x)>1,a): Filtre a través de todos los caracteres dentro asi se encuentran en amás de una vez ( a.count(x)>1).
input()lugar de raw_input(). Aunque tiene que agregar un carácter para un corchete de cierre, ya que printes una función en Python 3.
''.join(...)
De acuerdo, esto no es parte de la lista TIOBE, pero es 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)
Versión de golf:
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)
El primer sed convierte la entrada en un carácter por línea. El segundo sed encuentra caracteres que solo ocurren una vez. Third sed escribe un script sed que elimina caracteres únicos. El último sed ejecuta el script generado.
⊇.oḅlⁿ1∧
Presentación de funciones. Técnicamente no compite porque la pregunta tiene una limitación sobre qué idiomas pueden competir (sin embargo, varias otras respuestas ya han ignorado la restricción).
⊇.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.
Aquí hay otra alternativa (pocos caracteres más) en Python:
a=raw_input();print''.join(c for c in a if a.count(c)>1)
Si acepta la salida como una lista (p ['l', 'l', 'o', 'o', 'l']. Ej. ), Podríamos reducirla a 49 caracteres:
a=raw_input();print[c for c in a if a.count(c)>1]
>1es una buena idea! ¿Puedo incorporar eso en mi solución?
@x=split//,<>;$s{$_}++for@x;for(@x){print if($s{$_}>1)}
Lecturas de stdin.
Utiliza ExtString.String de 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
Versión sin golf
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
La función gdevuelve el número de ocurrencias de c en la cadena s. La función freemplaza todos los caracteres, ya sea por la cadena vacía o la cadena que contiene el carácter, dependiendo del número de ocurrencias. Editar: acorté el código en 6 caracteres al abusar de la representación interna de bools :-)
Ah, y ocaml es 0 en el índice TIOBE ;-)
while($x<strlen($s)){$c=$s[$x];echo substr_count($s,$c)>1?$c:'';$x++;}
con asunción $ s = 'helloworld'.
s->{for(char c=96;++c<123;s=s.matches(".*"+c+".*"+c+".*")?s:s.replace(c+"",""));return s;}Explicación:
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 golfizado:
$repeatedСhars=$args|% toCharArray|group|?{$_.Count-1}|% name
"$args"-replace"[^$repeatedСhars]"Nota: $repeatedCharses una matriz. Por defecto, un Powershell une elementos de la matriz por espacio de caracteres mientras convierte la matriz en cadena. Entonces, la expresión regular contiene espacios (en este ejemplo, [^l o]). Los espacios no afectan el resultado porque la cadena de entrada contiene solo letras.
Función de prefijo tácito anónimo.
∊⊢⊆⍨1<⍧⍨⍧⍨ selfie de recuento (cuenta las ocurrencias de elementos de argumento en el argumento mismo)
1< Máscara booleana donde uno es menor que eso
⊢⊆⍨ particione el argumento por esa máscara (comience una nueva partición en 1s y elimine en 0s)
∊ ϵ nlist (aplanar)
s=>[...s].filter(c=>s.match(c+'.*'+c)).join``
a=utf8ToInt(scan(,''));intToUtf8(a[!a%in%names(table(a)[table(a)<2])])Un intento pobre, incluso de un lenguaje TIOBE top 20. Sé que se puede hacer algo en la segunda mitad, pero por el momento, cualquier golf se me escapa.
Entrada como una cadena, salida como una 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``lugar 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
Versión mejorada:
<?for($s=$argv[1];$x<strlen($s);$c=$s[$x++]) echo substr_count($s,$c)>1?$c:'';
Por supuesto, esto necesita avisos para apagarse
Editar: Mejora inspirada en @hengky mulyono
Soy tan malo en 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;
sin golf:
#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;
}