Давши 3 байти або RGB як вхідні дані, обчисліть найближчі значення CMYK та виведіть їх.

• створити або функцію з параметрами та поверненим значенням, або програму, яка працює на stdin / stdout
• використовуйте кольоровий профіль на ваш вибір, але надайте посилання
• вхід може бути або окремими числовими значеннями в діапазоні [0; 255], або шестизначною шістнадцятковою рядком
• вихід має бути окремим числовим значенням, що становить або [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 цифр?

Діалог APL , 16 15 байт

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

1 мінус 1-
 X, поділений на ÷ Y , далі ,255 ділення 255÷⍨ Y ⊢ , де
  X є самим собою ⊢(тобто список значень RGB), і
   Y - max/⌈(значення 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 дозволяє функціонувати, я представив лише лямбда. Ви можете знайти демонстраційну версію на .NetFiddle . Я не гольфіст, дописую заради розваги. Також це моя перша відповідь \ о /. Не соромтесь коментувати будь-які покращення :)

Кудос до Лікі монахині за формулою.

застереження: це не працює для [0,0,0] (дякую Тіту)

Пітон, 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]використовуючи каліброване кольорове відображення.

Математика, 36 28 33 байти

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

Після лібералізації форматів вводу / виводу, гольф далі: List@@#~ColorConvert~"CMYK"&

Анонімна функція, яка робить те, що просять.

Стара функція приймає три аргументи від 0 до 255 (все, що перевищує цей діапазон, буде автоматично відрізане до цього діапазону) і повертає масив значень "CMYK" між 0.і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

Може бути набагато коротше.

Піта, 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

Літп , 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 діапазоні.

Збережено багато байт завдяки Титу.

Використання зразка:

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

Тестуйте онлайн

Вхід у кольорі HEX #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 як HEX #123456та виводить CMYK як десятковий 0...1діапазон.

Використання зразка:

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 байт із комою у висновку: видалити [$i>3] .

Бігайте з php -r '<code>' <red-value> <green-value> <blue-value> .

HEX-вхід, 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 .

Цей підхід зайняв би 75 байт для введення RGB:
замініть 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]]]