Це легко описати, і я навряд чи повірив, що раніше це не було гольфу:

Для даного зображення (будь-який формат підтримується вашою мовою) знайдіть унікальні кольори та виведіть список кольорів.

• Роздрукуйте кольоровий код у шістнадцятковій RGB, тобто хеш-знак, #а потім 2 цифри для R, 2 цифри для G та 2 цифри для B. ( #xxxxxxде x може бути 0-9, AF та / або af).
• Шістнадцятковим кодом слід пробіл та кількість десяткових пікселів, а потім новий рядок ( \nабо \r\n).
• Список буде відсортований за кількістю за низхідним числом (найчастіший колір у верхній частині).
• Якщо є краватка (два кольори з однаковою сумою), порядок не важливий.
• Зображення не буде містити прозорості, тому будь-яке значення альфа не важливо. Значення альфа може не бути частиною виводу.
• Необхідно підтримувати зображення розміром 4000x3000 (це може мати значення для визначення типів)

Зразкове зображення "10red 20blue 30black 40white":

Очікуваний вихід:

#FFFFFF 40
#000000 30
#0000FF 20
#FF0000 10

Зразок зображення "синій градієнт":

Один з очікуваних результатів (оскільки порядок однакових кольорів може відрізнятися):

#718DFF 19
#5571FF 15
#3855FF 11
#8DAAFF 11
#1C38FF 7
#AAAAFF 7
#8D8DFF 6
#AAC6FF 6
#C6C6FF 5
#C6E2FF 4
#001CFF 3
#E2E2FF 3
#FFFFFF 3

Зразок зображення "testImage", люб'язно наданий @Luis Mendo :

Очікуваний вихід:

#FFFFFF 18042
#000000 1754
#FF3300 204

Подібно до цього питання , але вихід - текст, а не зображення.

Математика, 91 байт

StringRiffle@SortBy[Tally["#"<>IntegerString[#,16,2]&/@Join@@#~ImageData~"Byte"],-Last@#&]&

Використовує зовсім інший метод від @ DavidC . На відміну від цього, це може підтримувати зображення будь-якого розміру та кількості кольорів. Пояснення:

#~ImageData~"Byte"                   Take the RGB values of the image...
Join@@(...)                          Flatten to a list of colors...
"#"<>IntegerString[#,16,2]&/@(...)   Convert each color to #012def format...
Tally[(...)]                         Convert to a list of {color, multiplicity}
                                      pairs (this does most of the work)...
SortBy[(...),-Last@#&]               Order by the multiplicity descending...
StringRiffle@(...)                   And create a string with the desired format.

Bash + coreutils, 54

• 7 байт збережено завдяки @manatwork

grep -oE '#\w+'|sort|uniq -c|sort -nr|awk '$0=$2" "$1'

Це передбачає введення STDIN формату .txt Imagemagick .

Ідеон.

Якщо вищевказаний формат введення занадто великий, то ми можемо додати перетворення Imagemagick з будь-якого формату:

Bash + coreutils + Imagemagick, 71

convert $1 txt:-|grep -oE '#\w+'|sort|uniq -c|sort -nr|awk '$0=$2" "$1'

Тут ім'я файлу вхідного зображення передається як параметр командного рядка.

JavaScript (ES6), 359 355 байт

Збережено 4 байти завдяки @Neil

u=>{i=new Image;i.src=u;e=document.createElement`canvas`;c=e.getContext`2d`;i.onload=_=>{w=e.width=i.width;h=e.height=i.height;c.drawImage(i,0,0);d=c.getImageData(0,0,w,h).data;for(o={},i=0;i<d.length;i+=4)++o[s='#'+`00000${(d[i]<<16|d[i+1]<<8|d[i+2]).toString(16)} `.slice(-7)]?0:o[s]=1;Object.keys(o).sort((a,b)=>o[b]-o[a]).map(c=>console.log(c+o[c]))}}

Демо

f=u=>{i=new Image;i.crossOrigin='';i.src=u;e=document.createElement`canvas`;c=e.getContext`2d`;i.onload=_=>{w=e.width=i.width;h=e.height=i.height;c.drawImage(i,0,0);d=c.getImageData(0,0,w,h).data;for(o={},i=0;i<d.length;i+=4)++o[s='#'+`00000${(d[i]<<16|d[i+1]<<8|d[i+2]).toString(16)} `.slice(-7)]?0:o[s]=1;Object.keys(o).sort((a,b)=>o[b]-o[a]).map(c=>console.log(c+o[c]))}}
f('http://i.imgur.com/acPudA9.gif')

<input value="https://i.imgur.com/acPudA9.gif" onchange="console.log('-------');f(this.value)">

Інші тестові випадки, які я завантажив у imgur для підтримки CORS:

• https://i.imgur.com/OgV45Vc.png
• https://i.imgur.com/n3BhpJi.png

Здається, конкретні кольорові дані щодо цих двох змін незначно змінилися під час завантаження, але вони все одно друкують однакову кількість зустрічей для цих двох тестових випадків.

Pyth , 29 байт

jmj;_d_SrSm+\#.[\06.Hid256'Q8

Спробуйте в Інтернеті!

(Інтернет-перекладач не може прочитати зображення, тому я позбавив цю частину і ввів результат прочитання цього зображення, що є переліком кольорових трійків. Частина, відповідальна за читання зображення, - це ' , - одна двокрапка.)

Доведення функціональності 'однієї кишки

Mathematica 103 92 байт

{"#"<>IntegerString[255Round[List@@#],16,2],#2}&@@@DominantColors[#,9999,{"Color","Count"}]&

Приклад

Пояснення

DominantColorsзазвичай повертає список кольорів і рахунків, що представляють основні кластери на зображенні. Коли кількість потрібних кольорів перевищує кількість кольорів на зображенні, точні кольори пікселів повертаються. (Я припускаю, що на вхідному зображенні буде менше 10 000 кольорів.)

{"#"<>IntegerString[255Round[List@@#],16,2],#2} перетворює базові 10 кольорових значень у шістнадцяткові значення.

Примітка: на зображенні мандерили лише 5 кольорів. (Раніше я ColorQuantize[<image>,5]зменшував кількість кольорів у стандартному зображенні мандрилі.)

PowerShell v2 +, 187 байт

$a=New-Object System.Drawing.Bitmap $args[0]
$b=@{}
0..($a.Height-1)|%{$h=$_;0..($a.Width-1)|%{$b["#"+-join($a.GetPixel($_,$h).Name[2..7])]++}}
$b.GetEnumerator()|Sort value -des|FT -h -a

Повторно використовує майже весь код з моєї відповіді на тему Отримайте найбільш домінуючий колір . Тому, будь ласка, посилайтесь на це для повного пояснення.

Зміни тут в індексації $bв третьому рядку , щоб відповідати вимогам в явному вигляді вихідного формату, а в останньому рядку ми sortна valueв -descending порядку, а потім трубу Format-Tableз -HideTableHeaders і -AutoSize в якості параметрів. Насправді це дуже рідко використовуватиFT тут PPCG, оскільки висновок неявний в кінці виконання, але тут дуже корисно переконатися, що ми отримуємо лише правильний вихід деталей.

Приклади

Перший - "червоний" тестовий образ із виклику "Домінантний колір", другий - "перевірка" від цього виклику.

PS C:\Tools\Scripts\golfing> .\color-count.ps1 C:\Tools\Scripts\golfing\img\red.png

#ff0000 139876
#dcd9cf 3056  
#f2f1ed 1512  
#ffffff 1508  
#ffe6e6 1488  
#ffe3e3 8     
#eae8e2 4     
#fffbfb 4     


PS C:\Tools\Scripts\golfing> .\color-count.ps1 C:\Tools\Scripts\golfing\img\z07VA.gif

#ffffff 18042
#000000 1754 
#ff3300 204  

Tcl / Tk , 134 байти

console s
lmap s [concat {*}[[image c photo -fi $argv] d]] {dict inc D $s}
dict fo k\ v [lsort -int -s 2 -inde 1 -de $D] {puts $k\ $v}

dє для data.

console s
set I [image c photo -fi $argv]
set i 0
time {set j 0
time {dict inc D #[join [lmap s [$I g $i $j] {format %02X $s}] ""]
incr j} [image h $I]
incr i} [image w $I]
dict fo k\ v [lsort -int -s 2 -inde 1 -de $D] {puts $k\ $v}

wish sort_pix.tcl QTE4O.png

wish sort_pix.tcl 5s1Ob.png

wish sort_pix.tcl z07VA.gif

Мозок-Флак , 1110 байт

{{}({}[(()()()()()){}])}{}(<>)<>([]){{}({}()<({}()<({}()<>)>)>)<>([])}{}<>{({}<({}<({}<(()()<>)>)>)>)<>{(<>)<>(()()()){({}[()]<<>({}<([([(({})<>[({})]<>)])]<>)<>{({}()<([{}])<>({}<>)<>>)<>}{}<>{}<>>{})({}<({}<({}<>)<>({}<>)<>({}<>)<>>)<>({}<>)<>({}<>)<>({}<>)>)<>({}<({}<>)<>({}<>)<>>)<>({}<>)<>({}<>)>)}{}<>((){[()](<{}>)}{})((){[()](<{}({}())<>{}{}{}>)}{}){{}(<<>(()()()){({}[()]<({}<(([])<{{}({}<>)<>([])}{}<>>)<>>)<>{({}[()]<({}<>)<>>)}{}<>>)}{}>)}{}<>({}<({}<>)<>({}<>)<>({}<>)<>>)<>({}<>)<>({}<>)<>({}<>)<>}({}<(([])<{{}({}<>)<>([])}{}<>>)<>>)<>{({}[()]<({}<>)<>>)}{}(()()()()){((({}[()])<{({}[()]<({}<({}<>)<>>)>)}{}>)<{({}[()]<<>({}<>)>)}{}>)}{}<>}{}<>(()()()())([][()])({}(<>))<>([()]{()<(({})){({}[()])<>}{}>}{}<><{}{}>){({}[()]<(<(()()()())([][()])({}(<>))><>([()]{()<(({})){({}[()])<>}{}>}{}<><{}{}>)<{({}[()]<([([({}<({}<({}<({}<(({})<>)<>>)>)>)>)<><({}<>)>]{}<(())>)](<>)){({}())<>}{}({}<><{}{}>){{}<>(<({}<({}<({}<({}<({}<({}<({}<({}<>)>)>)>)<>>)>)>)>)<>({}<({}<({}<({}<<>>)>)>)>)>)}{}({}<({}<({}<({}<>)>)>)>)<>>)}{}<>{}{}{}{}>[()]){({}[()]<({}<({}<({}<({}<>)>)>)>)<>>)}{}<>>)}{}{({}[()]<>)<>}<>

Спробуйте в Інтернеті!

Ну, це була пригода. Виявляється, Brain-Flak не дуже добре обробляє зображення. Хто знав?

Почну, зазначивши, що це технічно не відповідає жорсткому запитуваному формату. Якщо ви хочете, щоб це було застосовано, дайте мені знати, і я спробую додати код перекладу. Наразі він виводить десяткові числа: кожне 4 число представляє колір у порядку ЧЕРВЕНОГО ЗЕЛЕНОГО СВІТОГО КУХНЯ.

Далі, введіть. Дозволені формати введення були більш гнучкими, тому я використовував найпростіший для Brain-Flak формат для розбору (який я міг знайти): Netpbm P6. На жаль, Brain-Flak не зміг розібрати десяткові числа у форматі P3, тому що всі зображення Netpbm починаються з символу, Pа Brain-Flak не може обробити десяткове введення з файлів, що містять нечислові символи. Отже, замість цього використовується P6, оскільки P6 зберігає інформацію про кольори як байти, які в режимі введення ASCII розглядаються як числа. Проблема залишилася, оскільки інформація про заголовок вимагала стандарт, тому вхідні дані є дійсними файлами Netpbm. не кодована корисно, але, на щастя, мені не потрібна була жодна інформація, тому вона просто відкидається. Ця програма не повністю дотримується стандарту Netpbm, оскільки не дозволяє нові рядки в заголовку, але нові рядки не

Останнє застереження, версія TIO насправді неправильно налаштована для "офіційної" роботи, оскільки (наскільки мені відомо) я не можу подавати файли як вхід на TIO, а також не можу подавати байти, що відповідають недрукуваному ASCII в прямому вході. Для офіційного функціонування -aпрапор потрібен для введення в якості необроблених байтів і -fдля отримання даних з файлу. Зразок введення посилання TIO замість цього було вручну переведено із прикладу на сторінці вікі Netpbm .

Крім того, я хотів би подякувати вікі Brain-Flak за надання корисних фрагментів коду для роботи. Зокрема, реалізація Bubble-Sort тут була важливою для останнього кроку, коли я підрахував кожен колір, оскільки я насправді не мав уявлення, з чого почати інакше. Це потребувало важких модифікацій, але я радий, що мені не довелося починати з нуля.

Ось нерозроблена та коментована версія коду. Brain-Flak трохи надто багатослівний, щоб включити корисне відформатоване пояснення прямо в цю публікацію, але нерозроблена версія TIO містить усе, що я включив би в один з кращим форматуванням, ніж я міг би тут керувати, тому, якщо вам цікаво, будь ласка, візьміть погляд.

Можливо, гольф ще треба зробити, моя попередня відповідь « Мозговий-Флак» пройшла через багато переглядів, але, сподіваємось, отримані уроки дали це кращою відправною точкою.

Пітон 2, 186 байт

import Image
I=Image.open(input()).convert('RGB')
w,h=I.size
r=['#'+('%0.2X'*3)%I.getpixel((i%w,i/h))for i in range(w*h)]
for a,b in sorted(set((r.count(v),v)for v in r))[::-1]:print b,a

Спробуйте в Інтернеті!

Відмова від відповідальності: Представлені результати є однорядними для зручності читання. Результати коду приводяться з розділенням простору та рядків відповідно до запитання.

Вихід для 10red 20blue 30black 40white:

[('#FFFFFF', 40), ('#000000', 30), ('#0000FF', 20), ('#FF0000', 10)]

Вихід для синього градієнта:

[('#718DFF', 19), ('#5571FF', 15), ('#8DAAFF', 11), ('#3855FF', 11), ('#AAAAFF', 7), ('#1C38FF', 7), ('#AAC6FF', 6), ('#8D8DFF', 6), ('#C6C6FF', 5), ('#C6E2FF', 4), ('#FFFFFF', 3), ('#E2E2FF', 3), ('#001CFF', 3)]

Виведення для тестового зображення

[('#FFFFFF', 18042), ('#000000', 1754), ('#FF3300', 204)]

Пояснення:

w,h=I.size # field size stores tuple of values of width and height of image

I.getpixel((i%w,i/h)) # returns tuple of base10 RGB values

('%0.2X'*3) # format string to convert int into hex

set((r.count(v),v)for v in r) # generate set of unique pairs count-color 

sorted(set(...))[::-1] # apply sorted(), as it sorts set of tuples by firts elements and reverse sort

print b,a  # swap values in tuples and print

Java (1.4+) , 483 428 байт

import java.util.*;class I {public static void main(String[] a) throws Exception {java.awt.image.BufferedImage i = javax.imageio.ImageIO.read(new java.io.File(a[0]));Map m=new HashMap();String s;for(Integer x=0,y=0,c;y<i.getHeight();y++)for(x=0;x<i.getWidth();m.put(s=x.toHexString(((c=i.getRGB(x++,y))&0xff0000)>>16)+x.toHexString((c & 0xff00)>>8)+x.toHexString(c&0xff),m.get(s)==null?1:(int)m.get(s)+1));System.out.print(m);}}

Спробуйте в Інтернеті! (Не працює в Інтернеті)

Безголівки:

import java.util.*;

class I {
    public static void main(String[] a) throws Exception {
        java.awt.image.BufferedImage i = javax.imageio.ImageIO
                .read(new java.io.File(a[0]));
        Map m = new HashMap();
        String s;
        for (Integer x = 0, y = 0, c; y < i.getHeight(); y++)
            for (x = 0; x < i.getWidth(); m
                    .put(s = x.toHexString(((c = i.getRGB(x++, y)) & 0xff0000) >> 16)
                            + x.toHexString((c & 0xff00) >> 8)
                            + x.toHexString(c & 0xff), m.get(s) == null ? 1
                            : (int) m.get(s) + 1))
                ;
        System.out.print(m);
    }
}

Вихід toString()карти на зразок цього:

{7c7c7c=6, 1d57a5=20468, 121212=7, d3d3d3=3, bdbdbd=9, 949494=2, 333=14, 626262=3, cacaca=2, 141414=5, fff=11, c9c9c9=1, e8e8e8=1, 919191=4, 161616=5, c2c2c2=1, 646464=7, 979797=12, fafafa=2, 808080=1, 7b7b7b=1, 484848=4, b9b9b9=2, f1f1f1=2, 6b6b6b=6, 363636=15, 262626=4, d8d8d8=2, 868686=4, 757575=1, 575757=3, a7a7a7=2, cecece=2, dcdcdc=2, c3c3c3=2, 1d1d1d=5, 727272=9, 656565=2, 3a3a3a=3, 7d7d7d=10, 393939=5, 797979=3, 222=31, 8f8f8f=2, 454545=4, 181818=9, 2e2e2e=2, 222222=1, 1c1c1c=19, b8b8b8=2, e1e1e1=5, 232323=5, 8a8a8a=3, 959595=7, 6a6a6a=9, 434343=7, 5c5c5c=3, 111=20, 909090=3, 424242=4, 212121=1, 1a1a1a=6, 202020=7, efefef=1, 565656=5, 6e6e6e=7, 767676=3, 323232=2, eee=5, 444=18, 2c62ab=1, 717171=2, b1b1b1=3, 6c6c6c=3, 545454=7, 515151=17, 2f2f2f=2, 4a4a4a=3, 888888=6, 6d6d6d=3, 898989=3, a3a3a3=5, 7e7e7e=9, ddd=9, b6b6b6=3, 2b2b2b=5, 313131=5, 8d8d8d=1, a2a2a2=2, 696969=3, a5a5a5=3, 4f4f4f=5, 828282=7, 191919=5, 606060=4, 6f6f6f=4, 8b8b8b=3, ebebeb=2, 555=19, 929292=3, 131313=11, 999999=5, d2d2d2=2, 444444=9, 474747=4, dddddd=1, 585858=8, 5a5a5a=3, 000=9887, afafaf=2, dfdfdf=3, 747474=3, 666666=4, a1a1a1=4, 2a2a2a=11, 4d4d4d=6, 818181=2, 878787=5, 215aa6=1, d9d9d9=4, b5b5b5=3, b4b4b4=3, 737373=4, aeaeae=3, bbb=15, 242424=4, 2d2d2d=8, 888=19, c1c1c1=1, 494949=9, dbdbdb=5, ccc=19, 5d5d5d=3, 5f5f5f=1, 414141=6, c8c8c8=3, aaa=16, 1e1e1e=3, 707070=2, 9e9e9e=2, 373737=7, 9d9d9d=2, 1b1b1b=4, 303030=7, 535353=10, 595959=2, 8e8e8e=3, 383838=5, 939393=18, 616161=2, 686868=6, dadada=1, e3e3e3=2, 5b5b5b=3, a4a4a4=5, 8c8c8c=5, a6a6a6=11, 292929=6, 4c4c4c=3, 151515=6, fefefe=2, 787878=2, 505050=2, e2e2e2=1, 1f1f1f=9, adadad=2, ababab=1, 5e5e5e=6, 252525=4, 4e4e4e=3, 282828=7, a8a8a8=4, 9c9c9c=3, aaaaaa=1, 101010=5, b7b7b7=2, 969696=6, 7f7f7f=4, 555555=2, a9a9a9=5, 343434=8, 999=17, 777777=3, ffffff=76669, f0f0f0=4, bbbbbb=1, 1e58a5=1, b3b3b3=4, 777=20, 636363=2, d4d4d4=1, 2c2c2c=5, 848484=1, 3c3c3c=3, bfbfbf=2, 3e3e3e=9, 333333=4, 7a7a7a=3, 858585=4, 4b4b4b=3, 272727=7, 111111=6, 666=13, 9b9b9b=1, bcbcbc=4, cfcfcf=2, 9a9a9a=1, 404040=21, 525252=3, 989898=4, 171717=5, 3b3b3b=2, c4c4c4=1, 3f3f3f=7, 464646=1, cdcdcd=2, b2b2b2=33, c5c5c5=2, bababa=2}

Будь ласка, не публікуйте 1.8 конкретних пропозицій щодо гольфів, якщо це не працює на більш старій Java, мені не хочеться.

Приклад: Lambdas не працює у більшості версій Java, ніж у них.

SmileBASIC, 165 байт

DEF C A
L=LEN(A)DIM C[L],N[L]FOR J=0TO L-1FOR I=0TO U-1ON A[J]-C[I]GOTO@L
NEXT
U=U+1@L
C[I]=A[J]INC N[I]NEXT
RSORT.,U,N,C
FOR I=0TO U-1?"#";HEX$(C[I],6),N[I]NEXT
END

Зображення подається у вигляді масиву 32-бітових кольорових значень ARGB (альфа-значення обрізається при перетворенні числа в шестизначну шістнадцяткову рядок)