问题：

这个挑战来自我遇到的一个实际问题。我正在使用双显示器设置，我想使用以下图像作为墙纸：

但是，我的显示器有很大的边框，当我设置背景时，它看起来像这样，在码头上出现（更平？）被打破了：

我可以通过以下方式解决此问题：将中心切出，然后将其拉伸回原始大小，如下图所示：

挑战：

编写一个程序，以获取图像并“监视”它以用于双显示器设置（即删除图像的中央部分，即边框所在的位置）。规则如下：

1. 它必须是一个完整的程序，它可以以路径（字符串参数等）或文件选择器对话框的形式接受图像。
2. 程序必须以垂直线的数量（宽度为一个像素）为输入，以从图像中心切出
3. 裁切必须来自原始图像的中心（横向）
4. 结果图像必须重新缩放为输入图像的原始大小。（可以分别对这两个半部分进行缩放，然后进行级联，或者对这些半级进行合并，然后进行缩放。单独进行缩放可以产生更好的图像/效果，但是在现实世界中很难注意到）
5. 背景图像通常是偶数的，因此，为了使此挑战更容易，输入图像将仅具有偶数个像素，并且要删除的行数也将仅是偶数。
6. 这项挑战就是代码高尔夫-以字节为单位的最短代码获胜

祝好运！

八度，85字节

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

用f文件名和n要删除的列数定义一个匿名函数。由于匿名函数只需要一个表达式，因此使用了内联分配，这是MATLAB中不存在的功能。

MATLAB，98位元组

另外，我还打了MATLAB兼容的答案。有趣的是，这仅增加了13个字节，因为八度版本需要大量括号才能正确解析内联分配。

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字节

这是我在Matlab中的尝试。绝对不是最短的代码，但这只是一个开始。

警告，这会覆盖原始图像，因此请先进行复制。

高尔夫版

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

Ungolfed代码，改进了奇数图像大小和奇数列数

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

Wolfram语言，134，127，119个 111字节

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

创建一个函数f，该函数以图像作为第一个输入（在Mathematica或Wolfram Cloud中为符号），并以整数作为第二个输入。

Ungolfed：

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

从技术上讲，如果任何一个图像尺寸都超过362,880像素，它将无法正常工作，但我认为可以，因为这超出了问题（和某些计算机）的范围。固定！

PHP，206字节

($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]);

接受三个命令行参数：源文件名，要裁剪的行数和目标文件名。用运行-r。

您可能希望使用imagecopyresampled而不是imagecopyresized（+2字节）以获得更好的结果。

不打高尔夫球

$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

通过将PNG结果发送到STDOUT，我可以再保存9个字节...但是为什么呢？