Natknąłem się na to pytanie, ponieważ wydaje się, że bardzo częstym przypadkiem jest znajdowanie unikatowych znaków w łańcuchu. Ale co, jeśli chcemy się ich pozbyć?
Dane wejściowe zawierają tylko małe litery. Używane są tylko litery od a do z. Długość wejściowa może wynosić od 1 do 1000 znaków.
Przykład:
input: helloworld
output: llool
Cel: Wygrywa najkrótszy kod
Język: Jeden z 20 najlepszych języków TIOBE
Odpowiedzi:
s/./$&x(s!$&!$&!g>1)/eg
Stosowanie:
> perl -pe 's/./$&x(s!$&!$&!g>1)/eg'
helloworld
llool
Na początku myślałem, że mogę to zrobić z negatywnym spojrzeniem w przyszłość i negatywnym spojrzeniem w tył, ale okazuje się, że negatywne spojrzenia w tył muszą mieć ustaloną długość. Zamiast tego wybrałem zagnieżdżone wyrażenia regularne. Dzięki mobowi za $&wskazówkę.
-CDSopcją
$1z $&i można stracić kilka par nawiasów.
:;{.;?);>?)},
GolfScript nie jest jednym z 20 najlepszych, ale golfem bez GolfScript ... ( uruchom go sam )
Poprzednia wersja: ( uruchom skrypt )
1/:;{;\-,;,(<},
:;? Celowo próbujesz zmylić początkujących, prawda? ;)
)- to uczyniłoby to buźkę :). Niestety nie znalazłem sposobu na wyeliminowanie cyfry 1. (Uwaga dla początkujących w GolfScript: możesz zamienić dowolny ;kod w kodzie na x(lub dowolną inną literę lub cyfrę - lub dowolny znak, który nie zostałby użyty w skrypcie w inny sposób). W tym szczególnym przypadku ;jest to tylko nazwa zmiennej - i nie ma ona znaczenia „pop and discard”. W GolfScript prawie wszystkie tokeny i tak są zmienne, a użycie predefiniowanych symboli jest świetnym sposobem na uczynienie skryptów jeszcze bardziej nieczytelnymi dla osób postronnych ;-).)
:a{]a.@--,(},
:x{{=}+x\,,(},
Może nie kwalifikuje się do wygrania, ale warto mieć miernik.
gets.chars{|c|$><<c if$_.count(c)>1}
si użyjesz $_dla drugiego wyglądu (wówczas miejsce przedtem jest wtedy zbędne).
Nie spodziewałem się, że będzie tak krótki.
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(): przechowuj dane wejściowe jako ciąg ( input()= eval(raw_input()))
(Python 3.0: input()został przekształcony raw_input())
filter(lambda x:a.count(x)>1,a): Filtruj wszystkie znaki znajdujące się wewnątrz, ajeśli występują w awięcej niż jeden raz ( a.count(x)>1).
input()zamiast raw_input(). Chociaż musisz dodać jeden znak do nawiasu zamykającego, ponieważ printjest to funkcja w python 3.
''.join(...)
To prawda, że nie jest to część listy TIOBE, ale jest zabawne (-:
<<<$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)
Wersja bez golfa:
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)
Pierwszy sed przekształca dane wejściowe w jeden znak w wierszu. Drugi sed znajduje znaki, które występują tylko raz. Trzeci sed pisze skrypt sed, który usuwa unikalne znaki. Ostatni sed wykonuje wygenerowany skrypt.
⊇.oḅlⁿ1∧
Podanie funkcji. Technicznie niekonkurencyjne, ponieważ pytanie ma ograniczenia dotyczące tego, jakie języki mogą konkurować (jednak kilka innych odpowiedzi już zignorowało to ograniczenie).
⊇.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.
Oto kolejna (kilka znaków dłuższa) alternatywa w Pythonie:
a=raw_input();print''.join(c for c in a if a.count(c)>1)
Jeśli zaakceptujesz wynik jako listę (np. ['l', 'l', 'o', 'o', 'l']), Możemy sprowadzić go do 49 znaków:
a=raw_input();print[c for c in a if a.count(c)>1]
>1to dobry pomysł! Czy mogę to włączyć do mojego rozwiązania?
@x=split//,<>;$s{$_}++for@x;for(@x){print if($s{$_}>1)}
Czyta ze standardowego.
Używa ExtString.String 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
Wersja bez golfa
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
Funkcja gzwraca liczbę wystąpień c w ciągu s. Ta funkcja fzastępuje wszystkie znaki albo pustym łańcuchem, albo łańcuchem zawierającym znak, w zależności od liczby wystąpień. Edycja: Skróciłem kod o 6 znaków, nadużywając wewnętrznej reprezentacji booli :-)
Aha, a ocaml ma wartość 0 w indeksie TIOBE ;-)
while($x<strlen($s)){$c=$s[$x];echo substr_count($s,$c)>1?$c:'';$x++;}
z założeniem $ s = „helloworld”.
s->{for(char c=96;++c<123;s=s.matches(".*"+c+".*"+c+".*")?s:s.replace(c+"",""));return s;}Wyjaśnienie:
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*)]"Mniej golfa:
$repeatedСhars=$args|% toCharArray|group|?{$_.Count-1}|% name
"$args"-replace"[^$repeatedСhars]"Uwaga: $repeatedCharsjest tablicą. Domyślnie Powershell łączy elementy tablicy za pomocą spacji podczas konwertowania tablicy na ciąg. Zatem wyrażenie regularne zawiera spacje (w tym przykładzie [^l o]). Odstępy nie wpływają na wynik, ponieważ ciąg wejściowy zawiera tylko litery.
Anonimowa ukryta funkcja prefiksu.
∊⊢⊆⍨1<⍧⍨⍧⍨ odliczanie selfie (policz wystąpienia elementów argumentu w samym argumencie)
1< Maska boolowska, w której jeden jest mniejszy
⊢⊆⍨ podziel argument za pomocą tej maski (rozpoczęcie nowej partycji na 1s i usunięcie na 0s)
∊ ε nlist (spłaszczyć)
s=>[...s].filter(c=>s.match(c+'.*'+c)).join``
a=utf8ToInt(scan(,''));intToUtf8(a[!a%in%names(table(a)[table(a)<2])])Słaba próba, nawet z 20 najlepszych języków TIOBE. Wiem, że coś można zrobić w drugiej połowie, ale w tej chwili wszelkie golfy mi uciekają.
Dane wejściowe jako ciąg znaków, dane wyjściowe jako tablica znaków.
s=>[...s].filter(x=>s.split(x)[2])
p=>[...p].map((v,i,a)=>a.filter(f=>f==v).length).reduce((a,c,i)=>c>1?a+=p[i]:a,[]).join``zamiast .join("").
Kod
implode('',array_intersect(str_split($text),array_flip(array_filter(array_count_values(str_split($text)),function($x){return $x>=2;}))));
Normalny kod
$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
Poprawiona wersja:
<?for($s=$argv[1];$x<strlen($s);$c=$s[$x++]) echo substr_count($s,$c)>1?$c:'';
Oczywiście wymaga to wyłączenia powiadomień
Edycja: Ulepszenie inspirowane przez @hengky mulyono
Jestem taki zły w 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;
bez golfa:
#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;
}