Saya menemukan pertanyaan ini, karena sepertinya sangat umum digunakan untuk menemukan karakter unik dalam string. Tetapi bagaimana jika kita ingin menyingkirkan mereka?
Input hanya berisi huruf kecil. Hanya huruf dari a hingga z yang digunakan. Panjang input dapat dari 1 hingga 1000 karakter.
Contoh:
input: helloworld
output: llool
Tujuan: Kode terpendek menang
Bahasa: Salah satu dari 20 bahasa TIOBE teratas
Jawaban:
s/./$&x(s!$&!$&!g>1)/eg
Pemakaian:
> perl -pe 's/./$&x(s!$&!$&!g>1)/eg'
helloworld
llool
Pada awalnya saya pikir saya bisa melakukan ini dengan pandangan ke depan negatif dan pandangan ke belakang negatif, tetapi ternyata pandangan negatif di belakang harus memiliki panjang yang tetap. Jadi saya pergi untuk regex bersarang sebagai gantinya. Dengan terima kasih kepada mob untuk $&tipnya.
-CDSopsi
$1dengan $&dan Anda bisa kehilangan beberapa pasang tanda kurung.
:;{.;?);>?)},
GolfScript bukan salah satu dari 20 teratas, tetapi codegolf tanpa GolfScript ... ( jalankan sendiri )
Versi Sebelumnya: ( run script )
1/:;{;\-,;,(<},
:;? Anda sengaja mencoba membingungkan para pemula, bukan? ;)
)- itu akan membuatnya tersenyum :). Sayangnya, saya tidak menemukan cara untuk menghilangkan digit 1. (Catatan untuk pemula GolfScript: Anda dapat mengganti apa pun ;dalam kode dengan x(atau huruf atau digit lainnya - atau karakter apa pun yang tidak digunakan dalam skrip). Dalam kasus khusus ;ini hanya nama variabel - dan tidak memiliki arti "pop and discard". Dalam GolfScript hampir semua token adalah variabel lagian, dan menggunakan simbol yang telah ditentukan adalah cara yang bagus untuk membuat skrip bahkan lebih tidak dapat dibaca oleh orang luar ;-).)
:a{]a.@--,(},
:x{{=}+x\,,(},
Mungkin tidak memenuhi syarat untuk menang, tetapi berguna untuk memiliki tolok ukur.
gets.chars{|c|$><<c if$_.count(c)>1}
sdan menggunakan $_untuk penampilan kedua (ruang sebelumnya kemudian dapat dibuang).
Saya tidak berharap itu terlalu pendek.
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(): simpan input sebagai string ( input()= eval(raw_input()))
(Python 3.0: input()telah diubah menjadi raw_input())
filter(lambda x:a.count(x)>1,a): Saring melalui semua karakter di dalamnya ajika ditemukan alebih dari satu kali ( a.count(x)>1).
input()daripada raw_input(). Meskipun Anda harus menambahkan satu karakter untuk braket penutup, karena printini adalah fungsi dalam python 3.
''.join(...)
Memang ini bukan bagian dari daftar TIOBE, tapi ini menyenangkan (-:
<<<$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 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)
Sed pertama mengkonversi input menjadi satu karakter per baris. Sed kedua menemukan karakter yang hanya muncul sekali. Sed ketiga menulis skrip sed yang menghapus karakter unik. Sed terakhir mengeksekusi skrip yang dihasilkan.
⊇.oḅlⁿ1∧
Pengiriman fungsi. Secara teknis tidak bersaing karena pertanyaannya memiliki batasan pada bahasa apa yang diizinkan untuk bersaing (namun, beberapa jawaban lain telah mengabaikan batasan tersebut).
⊇.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.
Berikut ini alternatif (beberapa karakter lagi) dengan Python:
a=raw_input();print''.join(c for c in a if a.count(c)>1)
Jika Anda menerima output sebagai daftar (mis. ['l', 'l', 'o', 'o', 'l']), Maka kami dapat mengubahnya menjadi 49 karakter:
a=raw_input();print[c for c in a if a.count(c)>1]
>1itu ide yang bagus! Bolehkah saya memasukkan itu ke dalam solusi saya?
@x=split//,<>;$s{$_}++for@x;for(@x){print if($s{$_}>1)}
Baca dari stdin.
Menggunakan 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
Versi non-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
Fungsi gmengembalikan jumlah kemunculan c dalam string s. Fungsi fmenggantikan semua karakter baik oleh string kosong atau string yang berisi karakter tergantung pada jumlah kejadian. Sunting: Saya mempersingkat kode dengan 6 karakter dengan menyalahgunakan representasi internal bools :-)
Oh, dan ocaml adalah 0 pada indeks TIOBE ;-)
while($x<strlen($s)){$c=$s[$x];echo substr_count($s,$c)>1?$c:'';$x++;}
dengan asumsi $ s = 'helloworld'.
s->{for(char c=96;++c<123;s=s.matches(".*"+c+".*"+c+".*")?s:s.replace(c+"",""));return s;}Penjelasan:
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*)]"Kurang golf:
$repeatedСhars=$args|% toCharArray|group|?{$_.Count-1}|% name
"$args"-replace"[^$repeatedСhars]"Catatan: $repeatedCharsadalah array. Secara default, Powershell bergabung dengan elemen array dengan spasi sambil mengubah array menjadi string. Jadi, regexp berisi spasi (Dalam contoh ini, [^l o]). Spasi tidak mempengaruhi hasil karena string input hanya berisi huruf.
Fungsi awalan diam-diam anonim.
∊⊢⊆⍨1<⍧⍨⍧⍨ count-in selfie (hitung kejadian elemen argumen dalam argumen itu sendiri)
1< Topeng Boolean di mana seseorang kurang dari itu
⊢⊆⍨ mempartisi argumen dengan topeng itu (memulai partisi baru di 1s dan menghapus 0s)
∊ ϵ daftar (ratakan)
s=>[...s].filter(c=>s.match(c+'.*'+c)).join``
a=utf8ToInt(scan(,''));intToUtf8(a[!a%in%names(table(a)[table(a)<2])])Upaya yang buruk, bahkan dari 20 bahasa teratas TIOBE. Saya tahu sesuatu dapat dilakukan tentang babak kedua, tetapi pada saat ini, golf apa pun lolos dari saya.
Input sebagai string, output sebagai array karakter.
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``bukan .join("").
Kode
implode('',array_intersect(str_split($text),array_flip(array_filter(array_count_values(str_split($text)),function($x){return $x>=2;}))));
Kode 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 yang ditingkatkan:
<?for($s=$argv[1];$x<strlen($s);$c=$s[$x++]) echo substr_count($s,$c)>1?$c:'';
Tentu saja ini perlu pemberitahuan untuk dimatikan
Sunting: Peningkatan yang diilhami oleh @hengky mulyono
Saya sangat buruk di 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;
}