Vấn đề:

Thử thách này đến từ một vấn đề thực sự tôi đang gặp phải. Tôi có một thiết lập màn hình kép tại nơi làm việc và tôi muốn sử dụng hình ảnh sau đây làm hình nền của mình:

Tuy nhiên, màn hình của tôi có các bezels khá đáng kể và khi tôi đặt nền của mình, nó trông giống như thế này, nơi bến tàu xuất hiện (appiers?) Bị phá vỡ:

Tôi đã có thể giải quyết điều này bằng cách tạo một hình ảnh với tâm cắt ra, và sau đó kéo nó trở lại kích thước ban đầu, như trong hình dưới đây:

Các thách thức:

Viết chương trình lấy hình ảnh và "giám sát" nó để sử dụng với thiết lập màn hình kép (nghĩa là xóa phần giữa của hình ảnh, nơi có các bezels). Luật như sau:

1. Nó phải là một chương trình đầy đủ chấp nhận hình ảnh, dưới dạng đường dẫn (đối số chuỗi, v.v.) hoặc ở dạng hộp thoại chọn tệp.
2. Chương trình phải lấy làm đầu vào số lượng đường thẳng đứng (chiều rộng một pixel) để cắt ra từ trung tâm của hình ảnh
3. Việc cắt xén phải xuất phát từ trung tâm (chiều rộng) của hình ảnh gốc
4. Hình ảnh kết quả phải được thu nhỏ lại về kích thước ban đầu của hình ảnh đầu vào. (Hoặc các nửa có thể được thu nhỏ riêng lẻ, sau đó ghép hoặc ghép và sau đó thu nhỏ. Chia tỷ lệ riêng lẻ tạo ra hình ảnh / hiệu ứng tốt hơn, nhưng hầu như không đáng chú ý trong thế giới thực)
5. Hình ảnh nền nhìn chung là chẵn, do đó, để làm cho thử thách này dễ dàng hơn, hình ảnh đầu vào sẽ chỉ có số pixel chẵn và số dòng cần xóa sẽ chỉ đồng đều.
6. Thử thách này là mã golf - mã ngắn nhất tính bằng byte thắng

Chúc may mắn!

Octave, 85 byte

@(f,n)imsave(imresize((o=imread(f))(:,[1:(end-n)/2,(end+n)/2:end],:),size(o)(1:2)),f)

Xác định hàm ẩn danh với ftên tệp và nsố lượng cột cần xóa. Do một hàm ẩn danh yêu cầu một biểu thức, nên gán nội tuyến được sử dụng, một tính năng không có trong MATLAB.

MATLAB, 98 byte

Như một phần thưởng, tôi cũng đã đánh một câu trả lời tương thích MATLAB. Thật thú vị, điều này chỉ dài hơn 13 byte, vì phiên bản Octave cần rất nhiều dấu ngoặc đơn để phân tích chính xác các bài tập nội tuyến.

function  m(f,n)
o=imread(f);imsave(imresize(o(:,[1:(end-n)/2,(end+n)/2:end],:),size(o(:,:,1))),f)

Matlab 2013, 150 byte

Đây là nỗ lực của tôi trong Matlab. Chắc chắn sẽ không phải là mã ngắn nhất, nhưng đó là một sự khởi đầu.

Cảnh báo, điều này ghi đè lên hình ảnh gốc, vì vậy hãy tạo một bản sao trước.

Phiên bản chơi gôn

function  mi(f,n)
o=imread(f);
s=size(o);
imwrite([imresize(o(:,1:((s(2)-n)/2),:),[s(1),s(2)/2]) imresize(o(:,((s(2)+n)/2):end,:),[s(1),s(2)/2])], f);
end

Mã Ungolfed, với các cải tiến cho kích thước hình ảnh lẻ và số cột lẻ

function  monitorizeImage( filename, num_columns )

orig = imread(filename);
orig_size = size(orig);

f = factor(orig_size(2));
origsize_iseven = f(1)==2;

f = factor(num_columns);
num_columns_iseven = f(1)==2;

odd_even_size_mismatch = xor(origsize_iseven,num_columns_iseven);

img_resized = imresize(orig,[orig_size(1) orig_size(2)+odd_even_size_mismatch]);

leftimg = img_resized(:,1:((orig_size(2)+odd_even_size_mismatch-num_columns)/2),:);
leftimg = imresize(leftimg,[orig_size(1),floor(orig_size(2)/2)]);
rightimg = img_resized(:,((orig_size(2)-odd_even_size_mismatch+num_columns)/2):end,:);
rightimg = imresize(rightimg,[orig_size(1),floor(orig_size(2)/2)]);

monitorized_image = [leftimg rightimg];
monitorized_image = imresize(monitorized_image,[orig_size(1),orig_size(2)+ ~origsize_iseven]);

[~, ~, ext] = fileparts(filename); 

imwrite(monitorized_image,strcat(filename(1:end-length(ext)),'_',num2str(num_columns),ext));

end

Ngôn ngữ Wolfram, 134 , 127 , 119 111 byte

f[i_,c_]:=(d=ImageDimensions@i;ImageAssemble[ImageTake[i,a=All,#]&/@{{0,e=-#&@@d/2-c/2},{-e,a}}]~ImageResize~d)

Tạo một hàm flấy một hình ảnh làm đầu vào đầu tiên (làm biểu tượng trong Mathicala hoặc Wolfram Cloud) và một số nguyên làm đầu vào thứ hai.

Ung dung :

f[image_,columns_]:=(  (*Define Function*)
    d=ImageDimensions[image];  (*Get image dimensions*)
    e=d[[1]]/2+columns/2;  (*Add half the image width to half the number of removed columns*)
    ImageResize[ImageAssemble[Map[ImageTake[i,All,#]&,{{0,-e},{e,All}}]],d]  (*Map the function onto a list with the desired column ranges and merge and scale the resulting image*)
)

Về mặt kỹ thuật, nó sẽ không hoạt động chính xác nếu một trong hai kích thước hình ảnh vượt quá 362.880 pixel, nhưng tôi cho rằng điều đó không sao, vì đó là cách nằm ngoài phạm vi của vấn đề (và một số máy tính). Đã sửa!

PHP, 206 byte

($c=imagecopyresized)($t=imagecreatetruecolor($w=imagesx($s=imagecreatefrompng($argv[1])),$h=imagesy($s)),$s,0,0,0,0,$v=$w/2,$h,$x=$v-$argv[2]/2,$h);$c($t,$s,$v,0,$w-$x,0,$v,$h,$x,$h);imagepng($t,$argv[3]);

nhận ba đối số dòng lệnh: tên tệp nguồn, số dòng để cắt và tên tệp đích. Chạy với-r .

Bạn có thể muốn sử dụng imagecopyresampledthay vì imagecopyresized(+2 byte) để có kết quả tốt hơn.

vô dụng

$s=imagecreatefrompng($argv[1]);    # load source image
$w=imagesx($s);$h=imagesy($s);      # get image dimensions
$t=imagecreatetruecolor($w,$h);     # create target image
$v=$w/2;                            # $v = half width
$x=$v-$argv[2]/2;                   # $x = width of remaining halves
                                    # resize and copy halves:
imagecopyresized($t,$s, 0,0,    0,0,$v,$h,$x,$h);
imagecopyresized($t,$s,$v,0,$w-$x,0,$v,$h,$x,$h);
imagepng($t,$argv[3]);              # save target image

Tôi có thể lưu thêm 9 byte bằng cách gửi kết quả PNG tới STDOUT ... nhưng để làm gì?