Ich bin auf diese Frage gestoßen, weil es sehr häufig vorkommt, eindeutige Zeichen in Strings zu finden. Aber was ist, wenn wir sie loswerden wollen?
Die Eingabe enthält nur Kleinbuchstaben. Es werden nur Buchstaben von a bis z verwendet. Die Eingabelänge kann zwischen 1 und 1000 Zeichen liegen.
Beispiel:
input: helloworld
output: llool
Ziel: Kürzester Code gewinnt
Sprache: Eine der Top 20 der TIOBE-Sprachen
Antworten:
s/./$&x(s!$&!$&!g>1)/eg
Verwendung:
> perl -pe 's/./$&x(s!$&!$&!g>1)/eg'
helloworld
llool
Zuerst dachte ich, ich könnte dies mit negativem Look-Ahead und negativem Look-Behind tun, aber es stellt sich heraus, dass negative Look-Behinds eine feste Länge haben müssen. Also habe ich mich stattdessen für verschachtelte reguläre Ausdrücke entschieden. Vielen Dank an Mob für den $&Tipp.
-CDSOption
$1durch $&und Sie können ein paar Klammerpaare verlieren.
:;{.;?);>?)},
GolfScript gehört nicht zu den Top 20, sondern ein Codegolf ohne GolfScript ... ( führen Sie es selbst aus )
Vorgängerversion: ( Skript ausführen )
1/:;{;\-,;,(<},
:;? Sie versuchen absichtlich, Neulinge zu verwirren, nicht wahr? ;)
)- es würde es dann zu einem Smiley machen :). Leider habe ich keine Möglichkeit gefunden, die Ziffer 1 zu eliminieren. (Hinweis für GolfScript-Neulinge: Sie können jede Ziffer ;im Code durch eine x(oder einen anderen Buchstaben oder eine Ziffer - oder ein anderes im Skript nicht verwendetes Zeichen) ersetzen . In diesem speziellen Fall ;handelt es sich nur um einen Variablennamen - und hat nicht die Bedeutung "pop and discard". In GolfScript sind sowieso fast alle Token Variablen, und die Verwendung vordefinierter Symbole ist eine großartige Möglichkeit, Skripte für Außenstehende noch unlesbarer zu machen ;-).)
:a{]a.@--,(},
:x{{=}+x\,,(},
Könnte sich nicht qualifizieren, um zu gewinnen, aber es ist nützlich, einen Maßstab zu haben.
gets.chars{|c|$><<c if$_.count(c)>1}
sund $_für den zweiten Auftritt verwenden (der Platz davor ist dann entbehrlich).
{x@&x in&~1=#:'=x}
1<#anstelle von~1=#
Ich hätte nicht gedacht, dass es so kurz ist.
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(): Eingabe als String speichern ( input()= eval(raw_input()))
(Python 3.0: input()wurde in umgewandelt raw_input())
filter(lambda x:a.count(x)>1,a): Durchsuchen Sie alle Zeichen in, awenn sie amehrmals vorkommen ( a.count(x)>1).
input()statt raw_input(). Obwohl Sie ein Zeichen für eine schließende Klammer hinzufügen müssen, ist da printeine Funktion in Python 3.
''.join(...)
Zugegeben, das ist nicht Teil der TIOBE-Liste, aber es macht Spaß (-:
<<<$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)
De-Golf-Version:
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)
Die erste Sed wandelt die Eingabe in ein Zeichen pro Zeile um. Der zweite Satz findet Zeichen, die nur einmal vorkommen. Third Sed schreibt ein Sed-Skript, das eindeutige Zeichen löscht. Die letzte Sed führt das generierte Skript aus.
⊇.oḅlⁿ1∧
Funktionsübergabe. Technisch nicht konkurrierend, da die Frage beschränkt ist, welche Sprachen konkurrieren dürfen (mehrere andere Antworten haben die Einschränkung jedoch bereits ignoriert).
⊇.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.
Hier ist eine weitere (einige Zeichen länger) Alternative in Python:
a=raw_input();print''.join(c for c in a if a.count(c)>1)
Wenn Sie die Ausgabe als Liste akzeptieren (z. B. ['l', 'l', 'o', 'o', 'l']), können wir sie auf 49 Zeichen reduzieren :
a=raw_input();print[c for c in a if a.count(c)>1]
>1ist eine gute Idee! Darf ich das in meine Lösung einbauen?
@x=split//,<>;$s{$_}++for@x;for(@x){print if($s{$_}>1)}
Liest von stdin.
Verwendet ExtLibs ExtString.String
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
Nicht Golf Version
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
Die Funktion ggibt die Anzahl der Vorkommen von c in der Zeichenfolge s zurück. Die Funktionf ersetzt alle Zeichen entweder durch die leere Zeichenfolge oder durch die Zeichenfolge, die das Zeichen enthält, je nach Anzahl der Vorkommen. Edit: Ich habe den Code um 6 Zeichen gekürzt, indem ich die interne Darstellung von Bools missbraucht habe :-)
Oh, und ocaml ist 0 im TIOBE-Index ;-)
while($x<strlen($s)){$c=$s[$x];echo substr_count($s,$c)>1?$c:'';$x++;}
mit Annahme $ s = 'helloworld'.
s->{for(char c=96;++c<123;s=s.matches(".*"+c+".*"+c+".*")?s:s.replace(c+"",""));return s;}Erläuterung:
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*)]"Weniger golfen:
$repeatedСhars=$args|% toCharArray|group|?{$_.Count-1}|% name
"$args"-replace"[^$repeatedСhars]"Hinweis: $repeatedCharsist ein Array. Standardmäßig fügt eine PowerShell Array-Elemente durch ein Leerzeichen zusammen, während das Array in einen String konvertiert wird. Der reguläre Ausdruck enthält also Leerzeichen (in diesem Beispiel [^l o]). Leerzeichen wirken sich nicht auf das Ergebnis aus, da die Eingabezeichenfolge nur Buchstaben enthält.
Anonyme implizite Präfixfunktion.
∊⊢⊆⍨1<⍧⍨⍧⍨ count-in selfie (zähle das Vorkommen von Argumentelementen im Argument selbst)
1< Boolesche Maske, bei der man kleiner ist
⊢⊆⍨ Partitioniere das Argument durch diese Maske (beginne eine neue Partition mit Einsen und entferne sie mit Nullen)
∊ ϵ nlist (Abflachen)
s=>[...s].filter(c=>s.match(c+'.*'+c)).join``
a=utf8ToInt(scan(,''));intToUtf8(a[!a%in%names(table(a)[table(a)<2])])Ein schlechter Versuch, selbst aus einer TIOBE-Top-20-Sprache. Ich weiß, dass in der zweiten Hälfte etwas getan werden kann, aber im Moment entgehen mir alle Golfplätze.
Eingabe als String, Ausgabe als Zeichenarray.
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``anstelle von verwenden .join("").
Code
implode('',array_intersect(str_split($text),array_flip(array_filter(array_count_values(str_split($text)),function($x){return $x>=2;}))));
Normaler Code
$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
Verbesserte Version:
<?for($s=$argv[1];$x<strlen($s);$c=$s[$x++]) echo substr_count($s,$c)>1?$c:'';
Natürlich müssen dazu Hinweise ausgeschaltet werden
Bearbeiten: Verbesserung von @hengky mulyono inspiriert
Ich bin so schlecht im 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;
}