aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Color-quantization/J/color-quantization-1.j Normal file
View file

@ -0,0 +1,10 @@
kmcL=:4 :0
C=. /:~ 256 #.inv ,y NB. colors
G=. x (i.@] <.@* %) #C NB. groups (initial)
Q=. _ NB. quantized list of colors (initial
whilst.-. Q-:&<.&(x&*)Q0 do.
Q0=. Q
Q=. /:~C (+/ % #)/.~ G
G=. (i. <./)"1 C +/&.:*: .- |:Q
end.Q
)

17
Task/Color-quantization/J/color-quantization-2.j Normal file
View file

@ -0,0 +1,17 @@
16 kmcL img
7.52532 22.3347 0.650468
8.20129 54.4678 0.0326828
33.1132 69.8148 0.622265
54.2232 125.682 2.67713
56.7064 99.5008 3.04013
61.2135 136.42 4.2015
68.1246 140.576 6.37512
74.6006 143.606 7.57854
78.9101 150.792 10.2563
89.5873 148.621 14.6202
98.9523 154.005 25.7583
114.957 159.697 47.6423
145.816 178.136 33.8845
164.969 199.742 67.0467
179.849 207.594 109.973
209.229 221.18 204.513

1
Task/Color-quantization/Mathematica/color-quantization.mathematica Normal file
View file

@ -0,0 +1 @@
ColorQuantize[Import["http://rosettacode.org/mw/images/3/3f/Quantum_frog.png"],16,Dithering->False]