Вызов:

Входы:

• Строка, содержащая печатный ASCII (исключая пробелы, табуляции и новые строки)
• Логическое †

Выход:

Части Строки делятся на четыре группы:

• Строчные буквы
• Заглавные буквы
• Digits
• Другой

На основе логического значения мы либо выводим наибольшее вхождение одной (или нескольких) из этих четырех групп, либо наименьшее, заменяя все остальное пробелами.

Например:

Входные данные: "Just_A_Test!"
содержит:
- 3 заглавные буквы: JAT
- 6 строчных букв: ustest
- 0 цифр
- 3 другие:__!

Это будут результаты для trueили false:

true:   " ust    est "

// digits have the lowest occurrence (none), so everything is replaced with a space
false:  "            "

(Примечание. Вы можете игнорировать конечные пробелы, поэтому выходные данные также могут быть " ust est"и ""соответственно.)

Правила вызова:

• Ввод никогда не будет пустым или будет содержать пробелы и будет состоять только из печатного ASCII в диапазоне 33-126или '!'сквозном '~'.
• Вы можете принимать входные данные и / или выходные данные как массив символов или список, если хотите.
• † Допускаются любые два согласованных и различных значения для логического значения: true/ false; 1/ 0; 'H'/ 'L'; "highest"/ "lowest"; и т. д. Обратите внимание, что эти различные значения должны использоваться (в некоторой степени) как логическое значение! Поэтому нельзя вводить две полные программы, одна из которых дает правильный результат, trueа другая - для false, а затем иметь только фактический код <run input with parameter>. Я добавил соответствующую новую лазейку по умолчанию, хотя она все еще может использовать много тонких настроек в отношении определений.
• Если вхождение двух или более групп совпадает, мы выводим все эти вхождения.
• Необходимые завершающие пробелы являются необязательными, и одна конечная новая строка также необязательна. Необходимые пробелы обязательны. И любые другие ведущие пробелы или новые строки не допускаются.

Основные правила:

• Это код-гольф , поэтому выигрывает самый короткий ответ в байтах.
  Не позволяйте языкам кода-гольфа отговаривать вас от публикации ответов на языках, не относящихся к кодексу. Попробуйте найти как можно более короткий ответ для «любого» языка программирования.
• К вашему ответу применяются стандартные правила , поэтому вы можете использовать STDIN / STDOUT, функции / метод с соответствующими параметрами, полные программы. Ваш звонок.
• По умолчанию лазейки запрещены.
• Если возможно, добавьте ссылку с тестом для вашего кода.
• Также, пожалуйста, добавьте объяснение, если это необходимо.

Тестовые случаи:

Inputs:                              Output:

"Just_A_Test!", true                 " ust    est "     (or " ust    est")
"Just_A_Test!", false                "            "     (or "")
"Aa1!Bb2@Cc3#Dd4$", either           "Aa1!Bb2@Cc3#Dd4$"
"H@$h!n9_!$_fun?", true              " @$ !  _!$_   ?"
"H@$h!n9_!$_fun?", false             "H     9        "  (or "H     9")
"A", true                            "A"
"A", false                           " "                (or "")
"H.ngm.n", true                      "  ngm n"
"H.ngm.n", false                     "       "          (or "")
"H.ngm4n", false                     "H.   4 "          (or "H.   4")

Шелуха , 27 26 24 22 байта

-2 байта благодаря Zgarb

-2 байта благодаря Лео

Берет ' 'как Falseи 'a'какTrue (В Husk, пробел в Fasly и все остальные символы являются правдой)

Fż▲→ġ#¬Ö#≡⁰Ṫḟë½D±o¬□m;

Попробуйте онлайн!

Как это работает?

Fż▲→ġ#¬Ö#≡⁰Ṫḟë½D±o¬□m;   Function, takes a character c and a string S as arguments
                    m;   Wrap each character in S into it's own string
             ë           List of four functions returning booleans:
              ½D±o¬      Lower case?,Upper case?,Digit?,Not alphanumeric?
           Ṫḟ            Outer product with find†
       Ö#≡⁰              Sort on how many characters have the same Truthyness as c
    ġ#¬                  Group strings with equal numbers of spaces
   →                     Take the last group
Fż▲                      Squash it all into one list

† ḟ это функция, которая принимает предикат pи список Lи возвращает первый элемент, Lкоторый удовлетворяет p. Если ни один элемент не удовлетворяет, pвозвращается аргумент по умолчанию. В этом случае ' '. Применяя ḟк одной символьной строке, мы по существу говоримif p c then c else ' ' .

ṪЕсть функция , которая принимает функцию fи два списка L1, L2. Возвращает таблицу fприменений по всем парам L1и L2. В этом случае fэто ḟ,L1 наш список из 4 -х функций, и L2список из одной строки символов.

После того, как Ṫḟу нас есть список строк, где каждая строка является результатом замены символов, которые не удовлетворяют одному из правил,' ' .

NB. В более новых версиях Husk ġ#¬Ö#≡⁰может быть заменено k#≡⁰на 3 байта!

Желе , 31 байт

ØṖḟØBṭØBUs26¤f€³Lİ⁴¡$ÐṀFf
¹⁶Ç?€

Попробуйте онлайн!

Логические значения - это 2и 1(или любая другая положительная четная / нечетная пара), которые представляютTrue и Falseсоответственно. Я постараюсь добавить объяснение после дальнейшей игры в гольф.

Спасибо caird coinheringaahing за сохранение 2 байта и Линн за сохранение 4 байта! Благодаря одному из приемов Эрика , который вдохновил меня сэкономить 4 байта!

Как это устроено

Обратите внимание, что это объяснение 35-байтовой версии. Новый делает примерно то же самое (но немного подправил Линн), поэтому я не буду его менять.

ØBUs26f€³µ³ḟØBW,µẎLİ⁴¡$ÐṀF - Niladic helper link.
ØB                         - String of base digits: '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
                             abcdefghijklmnopqrstuvwxyz'. 
  U                        - Reverse.
   s26                     - Chop into sublists of length 26, preserving shorter
                             trailing substrings.
      f€³                  - For each, keep the common characters with the input.
            ØB             - Base digits.
          ³ḟ               - Get the signs in the input. Filter the characters of the
                             input that aren't alphanumeric.
              W,µẎ         - Concatenate (wrap, two element list, tighten).
                       ÐṀ  - Keep the elements with maximal link value.
                  L        - Length.
                    ⁴¡     - Do N times, where N is the second input.
                   İ       - Inverse. Computes 1 ÷ Length. 2 maps to the length itself,
                             because 1 ÷ (1 ÷ Length) = length; 1 yields
                             (1 ÷ Length), swapping the maximal numbers with minimal ones.
                         F - Flatten.

¹⁶e¢$?€ - Main link.
      € - For each character.
   e¢?  - If it is contained by the last link (called niladically), then:
¹       - Identity, the character itself, else:
 ⁶      - A space.

Python 2 , 166 158 байт

t=lambda c:('@'<c<'[','`'<c<'{','/'<c<':',1-c.isalnum())
def f(s,b):x=map(sum,zip(*map(t,s)));print''.join([' ',c][x[t(c).index(1)]==sorted(x)[-b]]for c in s)

Попробуйте онлайн!

R , 193 186 179 158 байт

-7 байт благодаря NofP и его предложению cbind

Использование -6 байтов outer, переключение -1 байта [^a-zA-Z0-9]с[[:punct:]]

-21 байт, спасибо MickyT за указание списка символов

function(S,B){y=outer(c("[a-z]","[A-Z]","\\d","[[:punct:]]"),S,Vectorize(grepl))
S[!colSums(y[(s=rowSums(y))=="if"(B,max,min)(s),,drop=F])]=" "
cat(S,sep='')}

Проверьте все контрольные примеры

Принимает 1/Tкак truey ( max) и 0/Fкак falsey ( min) и принимаетS список отдельных символов.

Попробуйте онлайн!

В моей исходной версии (с предложениями NofP) матрица yстроится путем оценки grepl(regex, S)каждого из них regex, а затем объединяет их вместе в виде столбцов матрицы. Это приводит к многочисленным вызовам grepl, но, как Sэто было установлено, казалось, что нужно что-то еще сделать. Как я уже отметил:

Есть потенциально более короткие подходы; mapply, например:

y=mapply(grepl,c("[a-z]","[A-Z]","\\d","[^a-zA-Z0-9]"),list(S))

к сожалению, это не упростит в качестве матрицы в 1-символьном примере "A" .

Я использовал outerвместо mapply, который всегда возвращает массив (матрица в данном случае), и был вынужденVectorize grepl , что на самом деле является просто mapplyоберткой вокруг него.

Я также обнаружил предопределенную группу символов, [:punct:]которая соответствует знакам пунктуации (не пробелы, не алфавитно-цифровые).

Шелуха , 31 29 28 байт

SMS?' `ṁ§foSM≠?▲▼⁰M#Kë½D±o¬□

Использует 0 для минимального и 1 для максимального количества символов. Попробуйте онлайн!

объяснение

Списки функций это круто.

SMS?' `ṁ§foSM≠?▲▼⁰M#Kë½D±o¬□  Inputs are bit B and string S.
                     ë        Make a list L of the four functions
                      ½       is-lowercase-letter,
                       D      is-uppercase-letter,
                        ±     is-digit, and
                         o¬□  not is-alphanumeric.
                  M#          For each of them, take number of matches in S,
              ?▲▼⁰            take maximum or minimum depending on B,
          oSM≠                and mark those entries that are not equal to it.
        §f          K         Remove from L the functions that correspond to marked entries, call the result L2.
                              These functions test whether a character should be replaced by a space.
SM                            Do this for each character C in S:
      `ṁ                      Apply each function in L2 to C and sum the results.
  S?'                         If the result is positive, return space, otherwise return C.

Python 2 , 140 байт

g=lambda x:x.isalnum()-~(x>'Z')*x.isalpha()
def f(s,m):k=map(g,s).count;print''.join([' ',c][k(g(c))==sorted(map(k,range(4)))[m]]for c in s)

Попробуйте онлайн!

Джонатан Фрех сохранил байт. Благодарность!

Самый высокий m=-1, самый низкий m=0.

Желе , 35 байт

ØWṖs26µẎØṖḟW⁸;
¢ċ@€S¥€N⁹¡Mị¢Ẏ⁸f€ȯ€⁶

Попробуйте онлайн!

Java (OpenJDK 8) , 448 439 432 362 361 354 352 348 343 320 байт

s->b->{int w[]=new int[4],m=0,n=-1>>>1,l;s.chars().forEach(c->{if(c>96&c<123)w[0]++;else if(c>64&c<91)w[1]++;else if(c>47&c<58)w[2]++;else++w[3];});for(int W:w){m=W>m?W:m;n=W<n?W:n;}l=m-n;m=b?m:n;return l<1?s:s.replaceAll("["+(w[0]!=m?"a-z":"")+(w[1]!=m?"A-Z":"")+(w[2]!=m?"\\d]":"]")+(w[3]!=m?"|[^a-zA-Z0-9]":"")," ");}

Попробуйте онлайн!

Руби , 118 116 байт

Берет 0(низший) или-1 (самый высокий) для своего второго аргумента.

-2 байта благодаря Линн.

->s,t{s.gsub(/./){|c|[/\d/,/[a-z]/,/[A-Z]/,/[^\da-z]/i].group_by{|x|s.scan(x).size}.sort[t][1].any?{|x|x=~c}?c:" "}}

Попробуйте онлайн!

Ungolfed

->s,t{
  s.gsub(/./) {|c|
    [ /\d/,
      /[a-z]/,
      /[A-Z]/,
      /[^\da-z]/i
    ]
    .group_by {|x| s.scan(x).size }
    .sort[t][1]
    .any? {|x| x =~ c } ? c : " "
  }
}

Python 2, 190 183 174 173 байта

Спасибо Джонатану Фречу за сокращение

from re import*
def f(i,c):
 q='[a-z]','[A-Z]','\d','[\W_]';l=[len(set(finditer(p,i)))for p in q]
 for j,k in enumerate(l):
	if k-eval(c):i=compile(q[j]).sub(' ',i)
 print i

Это принимает строки 'max(l)'и 'min(l)'как правда, и ложь. (Я не думаю, что это нарушает правила ...?) Это длиннее, чем два других ответа на Python, но отличается, поэтому я решил опубликовать его. Я не большой игрок в гольф, поэтому я думаю, что это можно улучшить, но все, что я пробовал, не сработало.

Попробуйте онлайн!

JavaScript (ES6), 151 149 байт

g=
(s,f,a=[/\d/,/[A-Z]/,/[a-z]/,/[_\W]/],b=a.map(r=>s.split(r).length))=>s.replace(/./g,c=>b[a.findIndex(r=>r.test(c))]-Math[f?"max":"min"](...b)?' ':c)

<input id=s oninput=o.textContent=g(s.value,f.checked)><input id=f type=checkbox onclick=o.textContent=g(s.value,f.checked)><pre id=o>

К сожалению, правила, вероятно, не позволяют мне проходить Math.maxили Math.minкак флаг. Изменить: Сохранено 2 байта благодаря @JustinMariner.

Желе , 37 байт

ØWṖs26µẎØṖḟW⁸;
¢f@³L$ÐṂFe@Ѐ³¬¹⁴?a³o⁶

Попробуйте онлайн!

-6 байт "позаимствовал" из поста Эрика: D

Java (OpenJDK 8) , 307 + 34 306 + 27 295 байт

Мой «интересный» вызов.

Спасибо Кевину Круйссену за сокращение импортных байтов и полное исключение импорта!

s->b->{String t=s.replaceAll("\\d","2").replaceAll("[a-z]","0").replaceAll("[A-Z]","1").replaceAll("\\D","3"),v="";int a[]={0,0,0,0},i=0,z=0,y=-1>>>1;t.chars().forEach(j->{a[j%4]++;});for(int x:a){z=x>z?x:z;y=x<y?x:y;}for(;i<s.length();i++)v+=a[t.charAt(i)%4]!=(b?z:y)?" ":s.charAt(i);return v;}

Попробуйте онлайн!

Объяснение:

String t=s.replaceAll("\\d","2")
          .replaceAll("[a-z]","0")
          .replaceAll("[A-Z]","1")
          .replaceAll("\\D","3")

Сначала заменяет каждую группу целым числом от 0 до 3, используя некоторое простое регулярное выражение, и сохраняет его в новой строке.

int a[]={0,0,0,0},m,i=0,z=0,y=-1>>>1;

Инициализирует массив целых чисел, а также пару других целых чисел, которые будут использоваться позже. Устанавливает yпеременную в максимальный размер int, используя беззнаковое смещение вправо.

t.chars().forEach(j->{a[j%4]++;});

Для каждого символа в измененной строке используется значение ASCII по модулю 4 для вычисления индекса вышеупомянутого массива для приращения.

for(int x:a){
    z=x>z?x:z;
    y=x<y?x:y;
}

Затем он перебирает счетчики каждой группы, хранящейся в массиве, и вычисляет минимум ( y) и максимум ( z).

for(;i<s.length();i++)
    v+=a[t.charAt(i)%4]!=(b?z:y)?" ":s.charAt(i);

Повторно просматривает каждый символ в строке, проверяя, равна ли группа этой группы символов минимуму / максимуму (используя трюк по модулю, упомянутый ранее). Если он не равен, то к новой строке в месте символов добавляется пробел, в противном случае добавляется исходный символ.

return v;

Наконец, верните новую строку!

Баш, 229 227 212 байт

LANG=C;g="A-Z a-z 0-9 !A-Za-z0-9";declare -A H
f()(((i=$2?99:-1));r=$1;for h in $g;{ t=${r//[$h]};t=${#t};(($2?t<i:t>i))&&i=$t&&H=([$h]=1);((t-i))||H[$h]=1;};for h in $g;{((${H[$h]}))||r=${r//[$h]/ };};echo "$r")

Попробуйте онлайн

PHP, 161 158 байт

for([,$s,$z]=$argv;~$c=$s[$i++];)foreach([punct,upper,lower,digit]as$f)(ctype_.$f)($c)?$$i=$f:$g[$f]++;while(~$c=$s[$k++])echo$g[$$k]-($z?min:max)($g)?" ":$c;

Запустите -nrили попробуйте онлайн .

• Первый контур: для каждой позиции, помните группу характера
  и подсчет вхождений групп , что текущий символ не в.
  (that negation saved 3 bytes)
• depending on second parameter, pick min non-count for truthy, max non-count for falsy.
• second loop: if (group of current character) non-count differs
  from min/max non-count then print space, else print character.

JavaScript (ES6), 139 bytes

s=>b=>s.map(c=>++a[g(c)]&&c,a=[0,0,0,0],g=c=>c>-1?0:/[a-z]/i.test(c)?c<"a"?2:1:3).map(c=>a.map(v=>v-Math[b?"max":"min"](...a))[g(c)]?" ":c)

Input and output is an array of characters. Takes actual boolean values for input.

A different approach from @Neil's answer; almost avoiding regular expressions. Instead, I used a series of checks to determine the category of each character:

• Digits return true for c>-1 because non-digits fail mathematical comparisons
• Uppercase letters match the regex /[a-z]/i and have codepoints less than "a"
• Lowercase letters match that regex but have codepoints not less than "a"
• Symbols pass none of those tests

Test Cases

f=
s=>b=>s.map(c=>++a[g(c)]&&c,a=[0,0,0,0],g=c=>c>-1?0:/[a-z]/i.test(c)?c<"a"?2:1:3).map(c=>a.map(v=>v-Math[b?"max":"min"](...a))[g(c)]?" ":c)

;[["Just_A_Test!", true],["Just_A_Test!", false],["Aa1!Bb2@Cc3#Dd4$", true],["Aa1!Bb2@Cc3#Dd4$", false],["H@$h!n9_!$_fun?", true],["H@$h!n9_!$_fun?", false],["A", true],["A", false],["H.ngm.n", true],["H.ngm.n", false],["H.ngm4n", false]]
.forEach(([S,B])=>console.log(`"${S}", ${B} -> "${f(S.split``)(B).join``}"`))

.as-console-wrapper{max-height:100%!important}