Thử thách:

Đầu vào:

• Một chuỗi chứa ASCII có thể in (không bao gồm dấu cách, tab và dòng mới)
• Một boolean †

Đầu ra:

Các phần của Chuỗi được chia thành bốn nhóm:

• Chữ viết thường
• Chữ viết hoa
• Chữ số
• Khác

Dựa trên boolean, chúng tôi hoặc xuất ra sự xuất hiện cao nhất của một (hoặc nhiều) trong bốn nhóm này hoặc thấp nhất, thay thế mọi thứ khác bằng khoảng trắng.

Ví dụ:

Đầu vào: "Just_A_Test!"
Nó chứa:
- 3 chữ cái viết hoa: JAT
- 6 chữ cái viết thường: ustest
- 0 chữ số
- 3 chữ cái khác:__!

Đây sẽ là đầu ra cho truehoặc false:

true:   " ust    est "

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

(Lưu ý: Bạn được phép bỏ qua dấu cách, do đó, kết quả đầu ra cũng có thể " ust est"và ""tương ứng.)

Quy tắc thử thách:

• Đầu vào sẽ không bao giờ trống hoặc chứa khoảng trắng và sẽ chỉ bao gồm ASCII có thể in trong phạm vi 33-126hoặc '!'thông qua '~'.
• Bạn được phép lấy đầu vào và / hoặc đầu ra dưới dạng mảng ký tự hoặc danh sách nếu bạn muốn.
• † Bất kỳ hai giá trị nhất quán và riêng biệt cho boolean đều được phép: true/ false; 1/ 0; 'H'/ 'L'; "highest"/ "lowest"; v.v ... Lưu ý rằng những giá trị riêng biệt này nên được sử dụng (phần nào) như là một boolean! Vì vậy, không được phép nhập hai chương trình hoàn chỉnh, một chương trình cho kết quả chính xác truevà chương trình kia falsevà sau đó chỉ có mã thực tế của bạn <run input with parameter>. Lỗ hổng mặc định mới có liên quan mà tôi đã thêm, mặc dù nó vẫn có thể sử dụng rất nhiều cách xử lý liên quan đến các định nghĩa ..
• Nếu sự xuất hiện của hai hoặc nhiều nhóm là như nhau, chúng tôi xuất ra tất cả những lần xuất hiện đó.
• Các không gian dấu cần thiết là tùy chọn và một dòng mới duy nhất cũng là tùy chọn. Không gian hàng đầu cần thiết là bắt buộc. Và bất kỳ không gian hàng đầu hoặc dòng mới nào khác đều không được phép.

Quy tắc chung:

• Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte thắng.
  Đừng để ngôn ngữ mã-golf ngăn cản bạn đăng câu trả lời với các ngôn ngữ không mã hóa. Cố gắng đưa ra một câu trả lời càng ngắn càng tốt cho ngôn ngữ lập trình 'bất kỳ'.
• Các quy tắc chuẩn áp dụng cho câu trả lời của bạn, vì vậy bạn được phép sử dụng STDIN / STDOUT, các hàm / phương thức với các tham số thích hợp, các chương trình đầy đủ. Cuộc gọi của bạn.
• Lỗ hổng mặc định bị cấm.
• Nếu có thể, vui lòng thêm một liên kết với một bài kiểm tra cho mã của bạn.
• Ngoài ra, xin vui lòng thêm một lời giải thích nếu cần thiết.

Các trường hợp thử nghiệm:

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")

Husk , 27 26 24 22 byte

-2 byte nhờ Zgarb

-2 byte nhờ Leo

Mất ' 'như Falsevà 'a'như True(Trong vỏ trấu, khoảng trắng trong Fasly và tất cả các nhân vật khác là Truthy)

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

Hãy thử trực tuyến!

Làm thế nào nó hoạt động?

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

† ḟ là một chức năng mà phải mất một vị ngữ pvà một danh sách Lvà trả về phần tử đầu tiên của Lthỏa mãn mà p. Nếu không có phần tử thỏa mãn pmột đối số mặc định được trả về. Trong trường hợp này ' '. Bằng cách áp dụng ḟcho một chuỗi ký tự, về cơ bản chúng ta đang nói if p c then c else ' '.

ṪLà hàm có một chức năng fvà hai danh sách L1, L2. Nó trả về một bảng fáp dụng trên tất cả các cặp L1và L2. Trong trường hợp fnày là ḟ, L1danh sách 4 hàm của chúng ta và L2là danh sách một chuỗi ký tự.

Sau khi Ṫḟchúng tôi có một danh sách các chuỗi trong đó mỗi chuỗi là kết quả của việc thay thế các ký tự không thỏa mãn một trong các quy tắc bằng a ' '.

NB: Trong các phiên bản mới hơn của Husk, ġ#¬Ö#≡⁰có thể được thay thế bằng cách k#≡⁰tiết kiệm 3 byte!

Thạch , 31 byte

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

Hãy thử trực tuyến!

Các giá trị boolean là 2và 1(hoặc bất kỳ cặp chẵn / lẻ dương nào khác), đại diện Truevà Falsetương ứng. Tôi sẽ cố gắng thêm một lời giải thích sau khi chơi golf.

Cảm ơn caird coinheringaahing vì đã lưu 2 byte và Lynn để lưu 4 byte! Nhờ một trong những thủ thuật của Erik , đã truyền cảm hứng cho tôi để tiết kiệm 4 byte!

Làm thế nào nó hoạt động

Lưu ý rằng đây là lời giải thích cho phiên bản 35 byte. Cái mới gần giống như vậy (nhưng được chỉnh sửa một chút bởi Lynn), vì vậy tôi sẽ không thay đổi nó.

Ø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 byte

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)

Hãy thử trực tuyến!

R , 193 186 179 158 byte

-7 byte nhờ NofP và đề xuất của anh ấy về cbind

-6 byte sử dụng outer, chuyển đổi -1 byte [^a-zA-Z0-9]với[[:punct:]]

-21 byte nhờ MickyT đã chỉ ra danh sách các ký tự được cho phép

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='')}

Xác nhận tất cả các trường hợp kiểm tra

Lấy 1/Tnhư sự thật ( max) và 0/Fnhư falsey ( min), và lấy Slàm một danh sách các nhân vật duy nhất.

Hãy thử trực tuyến!

Trong phiên bản gốc của tôi (với các đề xuất của NofP), ma trận yđược xây dựng bằng cách đánh giá grepl(regex, S)từng loại regex, sau đó ghép chúng lại với nhau dưới dạng các cột của ma trận. Điều này dẫn đến nhiều cuộc gọi đến grepl, nhưng như đã Sđược sửa, có vẻ như cần phải thực hiện một số việc khác. Như tôi đã lưu ý:

Có những cách tiếp cận ngắn hơn tiềm năng; mapply, ví dụ:

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

thật không may, điều này sẽ không đơn giản hóa như một ma trận trong ví dụ 1 ký tự của "A".

Tôi đã sử dụng outerchứ không phải mapply, luôn trả về một mảng (một ma trận trong trường hợp này) và bị buộc phải Vectorize greplthực sự chỉ là một mapplytrình bao bọc xung quanh nó.

Tôi cũng phát hiện ra nhóm ký tự được xác định trước [:punct:]khớp với các ký tự dấu chấm câu (không phải dấu cách, không chữ và số).

Husk , 31 29 28 byte

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

Sử dụng 0 cho tối thiểu và 1 cho số lượng ký tự tối đa. Hãy thử trực tuyến!

Giải trình

Danh sách các chức năng là mát mẻ.

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 byte

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)

Hãy thử trực tuyến!

Jonathan Frech đã lưu một byte. Cảm ơn!

Cao nhất là m=-1, thấp nhất là m=0.

Thạch , 35 byte

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

Hãy thử trực tuyến!

Java (OpenJDK 8) , 448 439 432 362 361 354 352 348 343 320 byte

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]":"")," ");}

Hãy thử trực tuyến!

Ruby , 118 116 byte

Đưa 0(thấp nhất) hoặc -1(cao nhất) cho đối số thứ hai của nó.

-2 byte nhờ Lynn.

->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:" "}}

Hãy thử trực tuyến!

Ung dung

->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 byte

Cảm ơn Jonathan Frech đã rút ngắn nó

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

Điều này có các chuỗi 'max(l)'và 'min(l)'như đúng và sai. (Tôi không nghĩ điều này phá vỡ quy tắc ...?) Cái này dài hơn hai câu trả lời của con trăn kia nhưng khác nhau nên tôi nghĩ tôi sẽ đăng nó. Tôi không phải là một tay golf cừ khôi nên tôi đoán điều này có thể được cải thiện hơn nữa nhưng tất cả những điều tôi đã thử đều không hiệu quả.

Hãy thử trực tuyến!

JavaScript (ES6), 151 149 byte

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>

Đáng buồn thay, các quy tắc có thể không cho phép tôi vượt qua Math.maxhoặc Math.minnhư cờ. Chỉnh sửa: Đã lưu 2 byte nhờ @JustinMariner.

Thạch , 37 byte

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

Hãy thử trực tuyến!

-6 byte "mượn" từ bài đăng của Erik: D

Java (OpenJDK 8) , 307 + 34 306 + 27 295 byte

"Thú vị" của tôi tham gia thử thách.

Cảm ơn Kevin Cruijssen vì đã cắt giảm các byte nhập loại bỏ hoàn toàn việc nhập!

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;}

Hãy thử trực tuyến!

Giải trình:

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

Đầu tiên thay thế mỗi nhóm bằng một số nguyên từ 0 đến 3 bằng cách sử dụng một số biểu thức chính quy đơn giản và lưu trữ phần này trong Chuỗi mới.

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

Khởi tạo một loạt các số nguyên cũng như một vài số nguyên khác để sử dụng sau này. Đặt ybiến thành kích thước int tối đa bằng cách sử dụng dịch chuyển bit phải không dấu.

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

Đối với mỗi ký tự trong chuỗi đã sửa đổi, giá trị này sử dụng modulo giá trị ASCII của nó để tính chỉ số của mảng đã nói ở trên để tăng.

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

Điều này sau đó lặp qua số đếm của từng nhóm được lưu trữ trong mảng và tính toán tối thiểu ( y) và tối đa ( z).

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

Lặp lại thông qua mọi ký tự trong Chuỗi, kiểm tra xem nhóm của nhóm ký tự đó có bằng min / max không (sử dụng thủ thuật modulo đã đề cập trước đó). Nếu nó không bằng nhau, thì một khoảng trắng được thêm vào Chuỗi mới ở vị trí ký tự, nếu không thì ký tự gốc được thêm vào.

return v;

Cuối cùng trả về Chuỗi mới!

Bash, 229 227 212 byte

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")

Dùng thử trực tuyến

PHP, 161 158 byte

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;

Chạy với -nrhoặc thử trực tuyến .

• vòng lặp đầu tiên: đối với từng vị trí, hãy nhớ nhóm của ký tự
  và đếm số lần xuất hiện của các nhóm mà ký tự hiện tại không có .
  (phủ định đó đã lưu 3 byte)
• tùy thuộc vào tham số thứ hai, chọn tối thiểu không tính cho trung thực, không tính tối đa cho sai.
• vòng lặp thứ hai: if (nhóm ký tự hiện tại) non-Count khác với
  min / max non-Count sau đó in không gian, khác in ký tự.

JavaScript (ES6), 139 byte

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)

Đầu vào và đầu ra là một mảng các ký tự. Lấy các giá trị boolean thực tế cho đầu vào.

Một cách tiếp cận khác với câu trả lời của @ Neil ; gần như tránh các biểu thức thông thường. Thay vào đó, tôi đã sử dụng một loạt các kiểm tra để xác định danh mục của từng nhân vật:

• Trở lại chữ số truecho c>-1vì không chữ số không so sánh toán học
• Các chữ cái viết hoa phù hợp với biểu thức chính quy /[a-z]/ivà có các điểm mã nhỏ hơn"a"
• Chữ thường phù hợp với biểu thức chính quy đó nhưng có điểm mã không nhỏ hơn "a"
• Các biểu tượng không vượt qua bất kỳ thử nghiệm nào

Các trường hợp thử nghiệm

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}