Я натолкнулся на этот вопрос, потому что, похоже, это очень распространенный вариант поиска уникальных символов в строке. Но что, если мы хотим избавиться от них?
Ввод содержит только строчные буквы. Используются только буквы от а до я. Длина ввода может быть от 1 до 1000 символов.
Пример:
вход: helloworld
выход: llool
Цель: выигрывает
самый короткий код Язык: любой из 20 лучших языков TIOBE
Ответы:
s/./$&x(s!$&!$&!g>1)/eg
Использование:
> perl -pe 's/./$&x(s!$&!$&!g>1)/eg'
helloworld
llool
Сначала я думал, что смогу сделать это с негативным прогнозом и негативным прогнозом, но оказывается, что негативные ретроспективы должны иметь фиксированную длину. Поэтому вместо этого я использовал вложенные регулярные выражения. Спасибо толпе за $&чаевые.
-CDSопцией
$1с , $&и вы можете потерять пару пар скобок.
:;{.;?);>?)},
GolfScript не входит в топ-20, но является Codegolf без GolfScript ... ( запустите его самостоятельно )
Предыдущая версия: ( запустить скрипт )
1/:;{;\-,;,(<},
:;? Вы сознательно пытаетесь запутать новичков, не так ли? ;)
)- это сделало бы это смайликом тогда :). К сожалению, я не нашел способа даже исключить цифру 1. (Примечание для новичков в GolfScript: вы можете заменить любое ;в коде на x(или любую другую букву или цифру - или любой символ, не используемый в сценарии иным образом). В этом особом случае ;это просто имя переменной - и не имеет значения «pop and discard». В GolfScript почти все токены являются переменными в любом случае, и использование предопределенных символов - отличный способ сделать сценарии еще более нечитаемыми для посторонних ;-).)
:a{]a.@--,(},
:x{{=}+x\,,(},
Может не претендовать на победу, но полезно иметь критерий.
gets.chars{|c|$><<c if$_.count(c)>1}
sи используете $_для второго появления (тогда место перед будет необязательным).
Я не ожидал, что это будет так коротко.
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(): сохранить ввод в виде строки ( input()= eval(raw_input()))
(Python 3.0: input()превращен в raw_input())
filter(lambda x:a.count(x)>1,a): Отфильтровать все символы внутри, aесли они встречаются aболее одного раза ( a.count(x)>1).
input()вместо raw_input(). Хотя вы должны добавить один символ для закрывающей скобки, так printкак это функция в Python 3.
''.join(...)
Конечно, это не часть списка TIOBE, но это весело (-:
<<<$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)
Версия для игры в гольф:
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 преобразует ввод в один символ в строке. Второй sed находит персонажей, которые встречаются только один раз. Третий sed пишет скрипт sed, который удаляет уникальные символы. Последний sed выполняет сгенерированный скрипт.
⊇.oḅlⁿ1∧
Функция представления. Технически неконкурентный, потому что вопрос имеет ограничение на то, каким языкам разрешено конкурировать (однако, некоторые другие ответы уже проигнорировали это ограничение).
⊇.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.
Вот еще одна (на несколько символов длиннее) альтернатива в Python:
a=raw_input();print''.join(c for c in a if a.count(c)>1)
Если вы принимаете вывод в виде списка (например ['l', 'l', 'o', 'o', 'l']), то мы можем сократить его до 49 символов:
a=raw_input();print[c for c in a if a.count(c)>1]
>1это хорошая идея! Могу ли я включить это в свое решение?
@x=split//,<>;$s{$_}++for@x;for(@x){print if($s{$_}>1)}
Читает со стандартного ввода.
Использует ExtLib'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
Версия без гольфа
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
Функция gвозвращает количество вхождений c в строку s. Функция fзаменяет все символы либо пустой строкой, либо строкой, содержащей символ, в зависимости от числа вхождений. Изменить: я сократил код на 6 символов, злоупотребляя внутренним представлением bools :-)
О, и ocaml 0 в индексе TIOBE ;-)
while($x<strlen($s)){$c=$s[$x];echo substr_count($s,$c)>1?$c:'';$x++;}
с предположением $ s = 'helloworld'.
s->{for(char c=96;++c<123;s=s.matches(".*"+c+".*"+c+".*")?s:s.replace(c+"",""));return s;}Объяснение:
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*)]"Меньше гольфа:
$repeatedСhars=$args|% toCharArray|group|?{$_.Count-1}|% name
"$args"-replace"[^$repeatedСhars]"Примечание: $repeatedCharsэто массив. По умолчанию Powershell объединяет элементы массива через пробел, а конвертирует массив в строку. Таким образом, регулярное выражение содержит пробелы (в этом примере [^l o]). Пробелы не влияют на результат, потому что входная строка содержит только буквы.
Функция анонимного молчаливого префикса.
∊⊢⊆⍨1<⍧⍨⍧⍨ подсчет количества селфи (подсчет вхождений элементов аргумента в самом аргументе)
1< Булева маска, где один меньше этого
⊢⊆⍨ разделить аргумент по этой маске (начать новый раздел на 1 с и удалить на 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])])Плохая попытка, даже из топ-20 языка TIOBE. Я знаю, что со второй половиной можно что-то сделать, но на данный момент любые гольфы избегают меня.
Ввод в виде строки, вывод в виде массива символов.
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``вместо .join("").
Код
implode('',array_intersect(str_split($text),array_flip(array_filter(array_count_values(str_split($text)),function($x){return $x>=2;}))));
Нормальный код
$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
Улучшенная версия:
<?for($s=$argv[1];$x<strlen($s);$c=$s[$x++]) echo substr_count($s,$c)>1?$c:'';
Конечно, для этого нужно отключить уведомления
Изменить: улучшение, вдохновленное @hengky mulyono
Я так плох в 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;
}