รับ 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)

TryAPL!

เครดิต:
 ∘ -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 ฉันไม่ใช่นักกอล์ฟฉันโพสต์เพื่อความสนุก มันเป็นคำตอบแรกของฉัน \ 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]โดยใช้การจับคู่สีที่ไม่ได้ปรับเทียบ

มาติกา 36 28 33 ไบต์

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

หลังจากเปิดเสรีรูปแบบ I / O แล้ว 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

อาจสั้นกว่านี้มาก

Pyth, 24 21 18 24 21 ไบต์

ชีวิตคือการเดินทางไปกลับแน่นอน

= cR255Q + mc - 1dK-1JeSQJJK 
= 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

ทดสอบออนไลน์

อินพุตเป็นสี 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จะพับมากกว่าด้วยamax

แผนที่มากกว่าaโดยการหารแต่ละองค์ประกอบมีjการหาขั้นต่ำที่และ 1 ปกติน่านแล้วลบ s1 เพิ่ม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]]]