Thử thách của bạn, nếu bạn được mã hóa để chấp nhận nó, sẽ chạy như sau:

Bạn có thể chọn một trong hai thử thách sau để thực hiện:

Thử thách số 1

• Đọc từ một tập tin a.txt
• Chỉ viết các ký tự ASCII có thể in (giá trị 32-126) vào một tệp b.txt

Thử thách số 2

• Với một tệp a.txt, xóa tất cả các ký tự trong tệp ngoại trừ các ký tự ASCII có thể in được (giá trị 32-126)

Thông số kỹ thuật trên a.txt

a.txt là một tệp văn bản đơn giản có thể bao gồm bất kỳ giá trị ASCII nào từ 0-255 (thậm chí không xác định / kiểm soát) và kích thước của nó có thể lên tới 1 GB.

Chiến thắng

Câu trả lời với số lượng mã nguồn nhỏ nhất tính bằng byte sẽ thắng.

sh

Thử thách 1, 24 23 ký tự

tr -dc \ -~<a.txt>b.txt

tr -dc " -~
"<a.txt>b.txt                       # preserves printables + line feed

tr -dc "[:space:] -~"<a.txt>b.txt   # preserves printables + whitespace

Bash + Perl

Thử thách 1 - 31 byte

perl -petr/\ -~//cd a.txt>b.txt

Thử thách 2 - 28 byte

perl -i -petr/\ -~//cd a.txt

Cả hai đều là Thử thách 1.

C - 132 ký tự

#include<stdio.h>
k;main(){FILE*f=fopen("a.txt","rb");FILE*g=fopen("b.txt","w");while(!feof(f))(k=getc(f))>31&&k<127&&putc(k,g);}

Con trăn - 78 ký tự

file("b.txt","w").write(filter(lambda x:'~'>=x>' ',file("a.txt").read()))

Brainfuck: 92

+[[->+>+<<]>>>++++++++[->++++++++++++<<---->]>--[<<[->]>[<]>-]<+<[[-]>-<]>[[-]<<.>>]<<[-]<,]

Brainfuck không thể mở tệp để bạn sử dụng chuyển hướng stdin / stdout (# 1)

bf strip.bf < a.txt > b.txt

Mã tương tự trong Extended Brainfuck : 68

+[(->+>+)3>8+(->12+<<4-)>2-[<<[->]>[<]>-]<+<([-]>-)>([-]2<.)2<[-]<,]

PowerShell (43, 43)

Thử thách 1: (43)

(gc -raw a.txt) -replace"[^ -x7e]","">b.txt

Thử thách 2: (43)

(gc -raw a.txt) -replace"[^ -x7e]","">a.txt

iX3, 388

Set  in [c]:  '1'
Loop start   ([c]  of 1  to 999999999)
   Read from file  'a.txt' into [T] (read from [c], 1 bytes)
   Modify text  '[T]' into [R] (code in Hex)
   Set  in [N]:  '&H[R]' (calculate)
   If  True: '([N]=10)'
      Write into file  'b.txt' line '' (Append)
   End If
   If  True: '([N]>31)&([N]<127)'
      Write into file  'b.txt' line '[T]' (Append, no linefeed)
   End If
Loop end

Thử thách số 1

Hồng ngọc (52)

 IO.write (f="a.txt"),IO.read(f).gsub(/\p{Cntrl}/,'')

Võng mạc , 7 byte

Regex đơn giản để loại bỏ ASCII không in được.

[^ -~]

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

Kiểm tra đầu vào được sao chép từ bài SO này .

Tcl , 122 123 byte

set g [open b.txt w]
lmap c [split [read [open a.txt]] ""] {scan $c %c v
if $v>31&$v<127 {puts -nonewline $g $c}}
close $g

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

K4 , 36 33 byte

Giải pháp:

`b.txt 1:{x@&31<x*127>x}@1:`a.txt

Giải trình:

Trên đây là cho Challenge A, thay thế b.txtcho a.txtcho Challenge B.

`b.txt 1:{x@&31<x*127>x}@1:`a.txt / the solution
                         1:`a.txt / binary read (1:) "a.txt"
                        @         / apply to 
         {             }          / lambda taking 1 implicit arg (x)
                  127>x           / 127 greater than?
                 *                / multiply by
                x                 / x
             31<                  / 31 less than?
            &                     / indices where true
          x@                      / index into x at these indices
`b.txt 1:                         / binary write to "b.txt"

Burlesque - 21 byte

{**{31.>}{127.<}m&}f[

Điều này có thể được rút ngắn bằng cách thay thế 128bằng '<DEL>(trong đó DEL là ký tự xóa) nhưng tôi không chắc làm thế nào tôi có thể đăng DEL ở đây (cũng thay thế 31và sau đó bạn cũng có thể thoát khỏi **)).

Ngoài ra, trong phiên bản WIP, bạn có thể chơi golf này :un:ln.