给定3字节或RGB作为输入，计算最接近的CMYK值并输出。

• 创建带有参数和返回值的函数或在stdin / stdout上运行的程序
• 使用您选择的颜色配置文件，但提供参考
• 输入可以是[0; 255]范围内的单独数值，也可以是6位十六进制字符串
• 输出应为[0; 1]或[0; 100]范围内的单独数值
• 标准代号高尔夫：无漏洞，最短代号获胜
• 欢迎奢侈的想法

样本数据：

input             output
108,174,106       [0.3793103448275862, 0.0, 0.3908045977011494, 0.3176470588235294]
0,0,0             0,0,0,1
170,255,238       33,0,7,0  
0x0088ff          1,0.4667,0,0
[250,235,215]     [0,6,14,1.96]  
#123456           .7907,.3953,0,.6627

• 未经校准的映射很好，可能是最简单的
• 无需输入验证；允许使用浮点数（范围从0到255），但也可以四舍五入
• 输出格式应清晰注释或显而易见；即：
  1. 按此顺序的CMYK
  2. 百分比[0; 100]或纯数字[0; 1]都无关紧要
• 测试应包括简单的示例[0,0,0]。

我可以找到这个网站上最多的在线工具。有谁知道提供超过4位数字的工具？

Dyalog APL，16 15 字节

1-⊢(÷,255÷⍨⊢)⌈/

1减去1-
 X除以÷ Y，再乘以,255除以255÷⍨ Y ⊢，其中
  X本身⊢（即RGB值列表），
  Y是最大值/⌈（RGB值）。

试试APL！

学分：
 ∘-1个字节，单位为ngn。

C＃，88 86 85 84字节

(r,g,b)=>{float[]a={r,g,b,1};var j=a.Max();a[3]=j*j/255;return a.Select(x=>1-x/j);};

输出为108,174,106：

0.3793104
0
0.3908046
0.3176471

由于OP允许功能，因此我仅提交了lambda。您可以在.NetFiddle上找到正在运行的演示。我不是高尔夫球手，我发贴是为了好玩。另外，这是我的第一个答案\ o /。随时评论任何改进:)

该公式向Leaky Nun表示敬意。

注意：[0,0,0]无效（谢谢泰特斯）

Python，46个字节

lambda*c:[1-i/max(c)for i in c]+[1-max(c)/255]

要求输入在Python 2中为浮点型，请确保输入不在3中。

JavaScript（ES6），58 51字节

a=>[...a.map(e=>1-e/m||1,m=Math.max(...a)),1-m/255]

接受一个数组[R, G, B]（为单独的参数添加7个字节），并[C, M, Y, K]使用未校准的颜色映射返回一个数组。

Mathematica， 36 28 33字节

List@@ColorConvert[{##}/255,"CMYK"]&

I / O格式自由化之后，进一步发展： List@@#~ColorConvert~"CMYK"&

匿名函数，执行要求的操作。

旧函数接受0到255之间的三个参数（超出此范围的任何值都会自动裁剪到该范围），并返回介于0.和之间的“ CMYK”值数组1.

示例（对于旧功能）：

List @@ ColorConvert[{##}/255, "CMYK"] &[108, 174, 106]

{0.37931, 0., 0.390805, 0.320313}

由于允许数组作为输入，因此33个字节：

List@@ColorConvert[#/255,"CMYK"]&

当然，内置函数可以{0, 0, 0}正确处理并返回{0, 0, 0, 1}。

Bash + ImageMagick，69个字节

convert "xc:$1[1x1]" -colorspace cmyk txt:-|grep -o '([^)]*)'|head -1

例：

$ ./rgb2cmyk.sh "#6CAE6A"
(38%,0%,39%,32%)

$ ./rgb2cmyk.sh "#000000"
(0%,0%,0%,100%)

$ ./rgb2cmyk.sh "#AAFFEE"
(33%,0%,7%,0%)

$ ./rgb2cmyk.sh "#0088ff"
(100%,47%,0%,0%)

$ ./rgb2cmyk.sh "#FAEBD7"
(0%,6%,14%,2%)

$ ./rgb2cmyk.sh "#123456"
(79%,40%,0%,66%)

SmileBASIC，73 72字节

INPUT R,G,B
J=MAX(R,G,B)IF!J THEN?0,0,0,1 ELSE?1-R/J,1-G/J,1-B/J,1-J/255

可能会更短。

Pyth，24 21 18 24 21字节

生活确实是往返。

= cR255Q + mc--1dK-1JeSQJQK 
= cR255Q + mc-JeSQdJQ-1J 
+ mc-JeSQdJQ-1cJ255 
+ mc-JeSQd + J ^ T_15Q-1cJ255
+ m-1？JeSQcdJ1Q-1cJ255

测试套件。

输入样例： 108,174,106

样本输出： [0.3793103448275862, 0.0, 0.3908045977011494, 0.3176470588235294]

输入样例： 0,0,0

样本输出： [0, 0, 0, 1.0]

使用的公式：

旧公式：http：//i.stack.imgur.com/ZtPD6.gif

旧公式：http：//i.stack.imgur.com/Nqi9F.gif

Lithp，114字节

#R,G,B::((var J(max R G B))(if(!= 0 J)((list(- 1(/ R J))(- 1(/ G J))(- 1(/ B J))(- 1(/ J 255))))((list 0 0 0 1))))

在线尝试！

• 保存了6个字节（忘记使用max任何数量的参数）

我不太确定这是对的。带有样本数据的前两个结果是正确的，但其余的则不正确（请参阅在线尝试。）

使用很好地描述的实现如下：

PHP 7，123个 110 105字节

输入为RGB颜色 100 240 75

$j=max($h=$argv);echo strtr(@(1-$h[1]/$j).",".@(1-$h[2]/$j).",".@(1-$h[3]/$j).",".(1-$j/255),["NAN"=>0]);

将CMYK值输出为十进制0...1范围。

感谢Titus，节省了很多字节。

用法示例：

php -r '$j=max($h=$argv...' 100 240 75
0.58333333333333,0,0.6875,0.058823529411765

php -r '$j=max($h=$argv...' 255 255 255
0,0,0,0

php -r '$j=max($h=$argv...' 0 255 0
1,0,1,0

php -r '$j=max($h=$argv...' 0 0 0 
0,0,0,1

在线测试

输入为十六进制颜色#123456，202字节

$h=str_split(substr($argv[1],-6),2);$j=max($r=hexdec($h[0]),$g=hexdec($h[1]),$b=hexdec($h[2]));echo z($r,$j),",",z($g,$j),",",z($b,$j),",",1-$j/255;function z($c,$y){return is_nan(@($c/$y))?0:1-$c/$y;}

54个字节，用于防止被零除的功能，可能是高尔夫球或可移动的。

以十六进制的形式获取RGB颜色作为输入#123456，以0...1范围的十进制形式输出CMYK 。

用法示例：

php -r '$h=str_split...' '#000000'
0,0,0,1

php -r '$h=str_split...' '#ffffff'
0,0,0,0

php -r '$h=str_split...' '#123456'
0.7906976744186,0.3953488372093,0,0.66274509803922

php -r '$h=str_split...' '#ffff00'
0,0,1,0

PHP，不竞争

我太想发表自己的想法了。

RGB输入，74字节

for(;$i++<4;)echo$i<4?($j=max($argv))?1-$argv[$i]/$j:0:1-$j/255,","[$i>3];

或68个字节，输出中带有尾随逗号：remove [$i>3]。

用运行php -r '<code>' <red-value> <green-value> <blue-value>。

十六进制输入，100字节

foreach($a=array_map(hexdec,str_split($argv[1],2))as$c)echo($j=max($a))?1-$c/$j:0,",";echo 1-$j/255;  

用运行php -nr '<code>' RRGGBB。

该方法将为RGB输入占用75个字节：
替换foreach($a=array_map...as$c)为foreach($a=$argv as$c)if($i++)。

C，155个字节

#define C(x) 1-x/(j>0?j:1)
#define F float
i=0;F j;f(F r,F g,F b){j=(r>g?r:g)>b?(r>g?r:g):b;for(;i++<4;)printf("%f\n",i>1?i>2?i>3?1-j/255:C(b):C(g):C(r));}

我正在尝试找出更多可能的高尔夫运动。

用法：

#define C(x) 1-x/(j>0?j:1)
#define F float
i=0;F j;f(F r,F g,F b){j=(r>g?r:g)>b?(r>g?r:g):b;for(;i++<4;)printf("%f\n",i>1?i>2?i>3?1-j/255:C(b):C(g):C(r));}
main(){
    f(108,174,106);
}

输出：

0.379310
0.000000
0.390805
0.317647

胡恩 110字节

=>
rs
|*
a/*
=+
[s=(cury sub .1) j=(roll a max)]
(welp (turn a |*(* (s (min .1 (div +< j))))) (s (div j .255)))

使用单精度浮点库。创建一个采用的新泛型函数a。设置s于sub咖喱.1备后用，j以折叠a带max。

a通过将每个元素除以来映射j，找到该元素的最小值和1以归一化NaN，然后​​用减去1 s。添加1-j/255到该列表的末尾。

> =f =>
  rs
  |*
  a/*
  =+
  [s=(cury sub .1) j=(roll a max)]
  (welp (turn a |*(* (s (min .1 (div +< j))))) (s (div j .255)))
> (f (limo ~[.108 .174 .106]))
[i=.3.7931037e-1 t=[i=.0 t=[i=.3.908046e-1 .3.1764704e-1]]]
> (f (limo ~[.0 .0 .0]))
[i=.0 t=[i=.0 t=[i=.0 .1]]]