Memasukkan

Nama file dalam format grafik raster pilihan Anda. Format yang dipilih harus mendukung setidaknya 8 bit per saluran dan 3 saluran.

Keluaran

File dalam format yang sama, dengan dimensi dan piksel yang sama dengan yang pertama, tetapi pikselnya dikelompokkan berdasarkan urutan berapa kali terjadinya, diurutkan dari kiri ke kanan, atas ke bawah.

• Jika warna-warna piksel tertentu muncul beberapa kali sama, urutannya tidak ditentukan.
• Anda tidak boleh menimpa file input (gunakan nama file yang berbeda untuk output).
• Setiap dan semua perpustakaan pemrosesan gambar pihak ketiga diizinkan.

Contoh

Akan memberikan hasil yang mirip dengan:

Terutama di bagian bawah gambar beberapa variasi dapat terjadi, karena ikatan yang berbeda antara warna dengan frekuensi yang sama.

J, 94 81 byte

Sebuah fungsi mengambil nama file PNG (tanpa saluran transparansi) dan menulis hasilnya dalam nama file input yang diawali dengan "o".

f=.3 :0
load'graphics/png'
(($a)$#/|:\:~(#,{.)/.~,a=.readpng y)writepng'o',y
)

metode

• Buat daftar setiap nomor warna dan jumlah penampilannya
• Urutkan daftar berdasarkan jumlah penampilannya
• Gandakan setiap angka warna sama dengan penampilannya
• Bentuk kembali daftar baru dengan bentuk gambar asli

Mathematica, 125 123 byte

Export["a"<>#,i=ImageData@Import@#;Image@ArrayReshape[Join@@ConstantArray@@@SortBy[Tally[Join@@i],-Last@#&],Dimensions@i]]&

Ini mendefinisikan fungsi yang tidak disebutkan namanya yang mengambil nama file dalam format gambar umum dan menulis hasilnya ke file dengan nama yang sama tetapi diawali dengan a. Hasilnya terlihat sedikit berbeda dari OP, karena Mathematica SortBymemutus ikatan dengan urutan urutan default, sehingga bit bawah tempat banyak ikatan terlihat terlihat lebih rapi:

Implementasinya sendiri sangat mudah:

• ImageData untuk mendapatkan kisi nilai warna.
• Join untuk meratakan array.
• Tally untuk menghitung kemunculan setiap warna.
• SortBy[...,-Last@#&] untuk mengurutkan berdasarkan frekuensi dari tertinggi ke terendah.
• ConstantArraydan Joinuntuk memperluas penghitungan lagi.
• ArrayReshapeuntuk memulihkan bentuk gambar asli (diperoleh dengan Dimensions).
• Image untuk mengubah data kembali ke objek gambar.

FYI, 22 byte digunakan pada file I / O. Versi setara yang mengambil dan mengembalikan objek gambar muncul pada 103 byte:

(i=ImageData@#;Image@ArrayReshape[Join@@ConstantArray@@@SortBy[Tally[Join@@i],-Last@#&],Dimensions@i])&

Python2 / PIL, 244 226 225 223 222 202 186 182 170 159

from PIL.Image import*
s=raw_input();i=open(s);g=list(i.getdata());i.putdata(sum([[c[1]]*-c[0]for c in sorted((-g.count(r),r)for r in set(g))],[]));i.save(2*s)

Changelog

<p><b>Edit 1:</b> saved 18 bytes with new algorithm.</p>
<p><b>Edit 2:</b> saved 1 byte with remembering that Python 2 has int division without <code>from __future__ import division</code>. Whoops.</p>
<p><b>Edit 3:</b> saved 2 bytes by swapping <code>cmp</code> for <code>key</code>.</p>
<p><b>Edit 4:</b> saved 1 byte by clever unpacking. <code>w=i.size[0]</code> -> <code>w,h=i.size</code></p>
<p><b>Edit 5:</b> moved <code>list()</code> to an earlier position, drastically improving runtime. No length change.</p>
<p><b>Edit 6:</b> saved 20 bytes by remembering that there is also sequence sorting in Python. Probably slower, but also produces images more like the the Mathematica one.</p>
<p><b>Edit 7:</b> saved 16 bytes by changing <code>putpixel</code> to a list and <code>putdata</code>. Under 200!</p>
<p><b>Edit 8:</b> saved 4 bytes by changing <code>range(...)</code> to <code>...*[0]</code> since we don't need the values.</p>
<p><b>Edit 9:</b> saved 12 bytes by converting the <code>for</code> loop to a <code>sum</code>.</p>
<p><b>Edit 10:</b> saved 11 bytes by noticing that the image size doesn't matter anymore (since edit 7). Whoops v2.0.</p>

Versi lebih pendek oleh stokastic , 123

from PIL.Image import*
s=raw_input();i=open(s);d=list(i.getdata());i.putdata(sorted(d,key=lambda D:d.count(D)));i.save(2*s)

Yah, setidaknya mari kita coba, meskipun sudah dikalahkan.

Ini sangat lambat, Panda diproses selama beberapa menit di laptop saya.

Menghemat dengan nama file dengan nama file asli diulang dua kali.

Python, 1197 byte

# -*- coding: utf-8 -*-
from __future__ import division
from collections import Counter
import png
from sys import argv,exit
script,file_name,output_file_name=argv
def group(s,n):
    return zip(*[iter(s)]*n)
def flatten(list_of_lists):
    result=[]
    for lst in list_of_lists:
        result.extend(lst)
    return result
def group_list(old_list,tuples_per_list):
    new_list=[]
    i=1
    appended_row=[]
    for item in old_list:
        appended_row.extend(flatten([item]))
        if i==tuples_per_list:
            new_list.append(appended_row)
            i=1
            appended_row=[]
        else:
            i+=1
    return new_list
input_image=png.Reader(file_name)
image_data=input_image.read()
width=image_data[0]
height=image_data[1]
pixels=list(image_data[2])
if image_data[3]["alpha"]:
    ints_per_colour=4
elif image_data[3]["greyscale"]:
    ints_per_colour=2
else:
    ints_per_colour=3
colours=Counter(colour for row in pixels for colour in group(row,ints_per_colour)).most_common()
pixel_list=flatten([element]*count for element,count in colours)
ordered_rows=group_list(pixel_list,width)
f=open(output_file_name,"wb")
png_object=png.Writer(width,height,greyscale=image_data[3]["greyscale"],alpha=image_data[3]["alpha"])
png_object.write(f,ordered_rows)
f.close()

The pngmodul I digunakan .

C # 413

Program lengkap. Lulus nama file pada baris perintah, output disimpan dalam format yang sama dengan file "o".

Tidak menggunakan beberapa fitur linq yang rapi, seperti SelectMany dan Enumerable.Range, karena programnya akan lebih bersih tetapi lebih lama.

using System.Collections.Generic;using System.Linq;using System.Drawing;
class P{
static void Main(string[]a){
var d=new Dictionary<Color,int>();var b=new Bitmap(a[0]);
int n,x,y,w=b.Width,h=b.Height;
for (x=w;x-->0;)for(y=h;y-->0;){var p=b.GetPixel(x,y);d[p]=d.ContainsKey(p)?d[p]+1:1;}
y=h;foreach(var q in d.OrderBy(v=>v.Value)){for(n=q.Value;n-->0;){
if(x<=0){x=w;--y;}b.SetPixel(--x, y, q.Key);}}b.Save("o");
}}

Formating courtesy of VS2010 yang dapat dibaca

using System.Collections.Generic;
using System.Linq;
using System.Drawing;

class P
{
    static void Main(string[] a)
    {
        var d = new Dictionary<Color, int>();
        var b = new Bitmap(a[0]);
        int n,x,y,w = b.Width, h=b.Height;

        for (x = w; x-- > 0;)    
            for (y = h; y-- > 0;)
            {
                var p = b.GetPixel(x, y);
                d[p] = d.ContainsKey(p) ? d[p]+1 : 1;
            }
        y = h;
        foreach (var q in d.OrderBy(v => v.Value))
        {
            for (n = q.Value; n-- > 0; )
            {
                if (x <= 0)
                {
                    x = w;
                    --y;
                 }
                 b.SetPixel(--x, y, q.Key);
            }
        }
        b.Save(a[0]+".");
    }
}

Python 2: 191 byte

Inilah usaha saya. Saya pikir saya mungkin bisa menghemat ruang dengan menggunakan Counter, tetapi tidak berakhir sekecil jawaban Pietu1998.

from collections import Counter
from PIL import Image
i=Image.open(raw_input())
s=reduce(lambda x,y:x+y,map(lambda(a,b):[a]*b,Counter(i.getdata()).most_common()))
i.putdata(s)
i.save("o.png")

Output dari Panda