Tôi đã gặp câu hỏi này, bởi vì nó có vẻ là trường hợp sử dụng rất phổ biến để tìm các ký tự duy nhất trong chuỗi. Nhưng nếu chúng ta muốn thoát khỏi chúng thì sao?
Đầu vào chỉ chứa bảng chữ cái viết thường. Chỉ các chữ cái từ a đến z được sử dụng. Độ dài đầu vào có thể từ 1 đến 1000 ký tự.
Ví dụ:
đầu vào:
đầu ra hellowworld: llool
Mục tiêu: Mã ngắn nhất sẽ thắng
Ngôn ngữ: Bất kỳ trong số 20 ngôn ngữ TIOBE hàng đầu
Câu trả lời:
s/./$&x(s!$&!$&!g>1)/eg
Sử dụng:
> perl -pe 's/./$&x(s!$&!$&!g>1)/eg'
helloworld
llool
Lúc đầu, tôi nghĩ rằng tôi có thể làm điều này với cái nhìn tiêu cực và cái nhìn tiêu cực phía sau, nhưng hóa ra cái nhìn tiêu cực phải có chiều dài cố định. Vì vậy, tôi đã đi cho regexes lồng nhau thay thế. Cảm ơn mob cho tiền $&boa.
-CDStùy chọn
$1bằng $&và bạn có thể mất một vài dấu ngoặc đơn.
:;{.;?);>?)},
GolfScript không phải là một trong top 20, mà là một codegolf không có GolfScript ... (tự chạy nó )
Phiên bản trước: ( chạy tập lệnh )
1/:;{;\-,;,(<},
:;? Bạn đang cố tình gây nhầm lẫn cho người mới, phải không? ;)
)- nó sẽ làm cho nó một nụ cười sau đó :). Thật không may, tôi đã không tìm ra cách để loại bỏ chữ số 1. (Lưu ý cho người mới chơi GolfScript: bạn có thể thay thế bất kỳ ;trong mã bằng một x(hoặc bất kỳ chữ cái hoặc chữ số nào khác - hoặc bất kỳ ký tự nào không được sử dụng trong tập lệnh). Trong trường hợp đặc biệt ;này chỉ là một tên biến - và không có nghĩa là "pop và disard". Trong GolfScript, hầu hết tất cả các mã thông báo đều là biến và sử dụng các ký hiệu được xác định trước là cách tuyệt vời để làm cho các tập lệnh trở nên khó đọc hơn đối với người ngoài ;-).)
:a{]a.@--,(},
:x{{=}+x\,,(},
Có thể không đủ điều kiện để giành chiến thắng, nhưng thật hữu ích khi có một thước đo.
gets.chars{|c|$><<c if$_.count(c)>1}
svà sử dụng $_cho lần xuất hiện thứ hai (không gian trước đó có thể được phân phối).
Tôi không mong đợi nó sẽ quá ngắn.
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(): lưu trữ đầu vào dưới dạng chuỗi ( input()= eval(raw_input()))
(Python 3.0: input()đã được chuyển thành raw_input())
filter(lambda x:a.count(x)>1,a): Lọc qua tất cả các ký tự bên trong anếu chúng được tìm thấy anhiều lần ( a.count(x)>1).
input()chứ không phải raw_input(). Mặc dù bạn phải thêm một ký tự cho dấu ngoặc đóng, vì đó printlà một hàm trong python 3.
''.join(...)
Được cho rằng đây không phải là một phần của danh sách TIOBE, nhưng thật thú vị (-:
<<<$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)
Phiên bản bỏ chơi gôn:
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 đầu tiên chuyển đổi đầu vào thành một ký tự trên mỗi dòng. Sed thứ hai tìm thấy các nhân vật chỉ xảy ra một lần. Thứ ba sed viết một kịch bản sed xóa các ký tự độc đáo. Sed cuối cùng thực thi các kịch bản được tạo ra.
⊇.oḅlⁿ1∧
Chức năng trình. Về mặt kỹ thuật không giải mã vì câu hỏi có giới hạn về những gì langauges được phép cạnh tranh (tuy nhiên, một số câu trả lời khác đã bỏ qua hạn chế).
⊇.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.
Đây là một thay thế khác (vài ký tự dài hơn) trong Python:
a=raw_input();print''.join(c for c in a if a.count(c)>1)
Nếu bạn chấp nhận đầu ra dưới dạng danh sách (ví dụ ['l', 'l', 'o', 'o', 'l']), thì chúng tôi có thể rút nó xuống còn 49 ký tự:
a=raw_input();print[c for c in a if a.count(c)>1]
>1là một ý tưởng tốt! Tôi có thể kết hợp điều đó vào giải pháp của mình không?
@x=split//,<>;$s{$_}++for@x;for(@x){print if($s{$_}>1)}
Đọc từ stdin.
Sử dụng ExtStib's 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
Phiên bản không chơi gôn
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
Hàm gtrả về số lần xuất hiện của c trong chuỗi s. Chức năngf thay thế tất cả các ký tự bằng chuỗi rỗng hoặc chuỗi chứa char tùy thuộc vào số lần xuất hiện. Chỉnh sửa: Tôi rút ngắn mã bằng 6 ký tự bằng cách lạm dụng biểu diễn bên trong của bools :-)
Ồ, và ocaml là 0 trên chỉ số TIOBE ;-)
s->{for(char c=96;++c<123;s=s.matches(".*"+c+".*"+c+".*")?s:s.replace(c+"",""));return s;}Giải trình:
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*)]"Ít chơi gôn hơn:
$repeatedСhars=$args|% toCharArray|group|?{$_.Count-1}|% name
"$args"-replace"[^$repeatedСhars]"Lưu ý: $repeatedCharslà một mảng. Theo mặc định, Powershell kết hợp các phần tử mảng bằng dấu cách char trong khi chuyển đổi mảng thành chuỗi. Vì vậy, biểu thức chính quy chứa khoảng trắng (Trong ví dụ này [^l o]). Dấu cách không ảnh hưởng đến kết quả vì chuỗi đầu vào chỉ chứa các chữ cái.
Chức năng tiền tố ẩn danh.
∊⊢⊆⍨1<⍧⍨⍧⍨ selfie đếm ngược (số lần xuất hiện của các thành phần đối số trong chính đối số)
1< Mặt nạ Boolean nơi một ít hơn đó
⊢⊆⍨ phân vùng đối số bằng mặt nạ đó (bắt đầu phân vùng mới trên 1s và xóa trên 0)
∊ ε nlist (flatten)
s=>[...s].filter(c=>s.match(c+'.*'+c)).join``
a=utf8ToInt(scan(,''));intToUtf8(a[!a%in%names(table(a)[table(a)<2])])Một nỗ lực kém, thậm chí từ một ngôn ngữ top 20 của TIOBE. Tôi biết điều gì đó có thể được thực hiện trong nửa thứ hai, nhưng tại thời điểm này, bất kỳ golf nào thoát khỏi tôi.
Nhập dưới dạng chuỗi, xuất dưới dạng mảng ký tự.
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``thay vì .join("").
Mã
implode('',array_intersect(str_split($text),array_flip(array_filter(array_count_values(str_split($text)),function($x){return $x>=2;}))));
Mã thường
$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
Phiên bản cải tiến:
<?for($s=$argv[1];$x<strlen($s);$c=$s[$x++]) echo substr_count($s,$c)>1?$c:'';
Tất nhiên điều này cần phải được thông báo để tắt
Biên tập: Cải thiện lấy cảm hứng từ @hengky mulyono
Tôi rất tệ ở 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;
vô dụng:
#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;
}