ผลิตจำนวน 2014 จากภาพ


11

ในการท้าทายปี 2014 Michael Stern แนะนำให้ใช้ OCR เพื่อแยกวิเคราะห์รูปภาพของจำนวน 2014ในปี 2014 ฉันต้องการที่จะท้าทายนี้ในทิศทางที่แตกต่าง ใช้ OCR ในตัวจากภาษา / ไลบรารีมาตรฐานที่คุณเลือกออกแบบภาพที่เล็กที่สุด (เป็นไบต์) ซึ่งแยกวิเคราะห์ลงในสตริง ASCII "2014"

รูปภาพดั้งเดิมของ Stern คือ 7357 ไบต์ แต่ด้วยความพยายามเพียงเล็กน้อยก็สามารถบีบอัดได้อย่างไม่สูญเสียไปถึง 980 ไบต์ ไม่ต้องสงสัยเลยว่ารุ่นขาวดำ (181 ไบต์) ทำงานได้ดีกับรหัสเดียวกัน

กฎ: แต่ละคำตอบควรให้ภาพขนาดของมันเป็นไบต์และรหัสที่จำเป็นสำหรับการประมวลผล ไม่อนุญาต OCR ที่กำหนดเองด้วยเหตุผลที่ชัดเจน ... ! อนุญาตรูปแบบภาษาและรูปภาพที่เหมาะสม

แก้ไข:เพื่อเป็นการตอบสนองต่อความคิดเห็นฉันจะขยายสิ่งนี้เพื่อรวมไลบรารี่ที่มีอยู่ก่อนหน้านี้หรือแม้แต่http://www.free-ocr.com/สำหรับภาษาเหล่านั้นที่ไม่มี OCR


9
มีกี่ภาษาหรือไลบรารีมาตรฐานที่มี OCR ในตัว หรือคุณตั้งใจจะ "ไลบรารี่มาตรฐาน" ที่นี่เพื่อหมายถึง "ไลบรารี่ใด ๆ ที่ไม่ได้ถูกสร้างขึ้นสำหรับความท้าทายนี้โดยเฉพาะ"
Peter Taylor

3
แพลตฟอร์มการพัฒนาอื่นที่ไม่ใช่ Mathematica มี OCR ในตัวหรือไม่
Michael Stern

คุณควรสร้างมาตรฐานพูดอะไรบางอย่างเช่น "use free-ocr.com " หรือocr ที่เข้าถึงได้ง่าย
Justin

คำตอบ:


10

เชลล์ (ImageMagick, Tesseract), 18 ไบต์

file=golf_2014
echo -n UDQKMTMgNQruqCqo6riKiO6I | base64 -d > $file.pbm
convert -border 2x2 -bordercolor white -resize 300% -sharpen 0 -monochrome $file.pbm $file.png
tesseract $file.png $file digits
cat $file.txt
rm $file.pbm $file.png $file.txt

ภาพมีขนาด 18 ไบต์และสามารถทำซ้ำได้ดังนี้:

echo -n UDQKMTMgNQruqCqo6riKiO6I | base64 -d > 2014.pbm

ดูเหมือนว่านี้ (นี่เป็นสำเนา PNG ไม่ใช่ต้นฉบับ):

2014

หลังจากประมวลผลด้วย ImageMagick แล้วจะมีลักษณะดังนี้:

2014 ใหญ่

ใช้ ImageMagick เวอร์ชั่น 6.6.9-7, Tesseract เวอร์ชั่น 3.02 ภาพ PBM ถูกสร้างใน Gimp และแก้ไขด้วย hex editor


jp2aรุ่นนี้ต้องใช้

file=golf_2014
echo -n UDQKMTMgNQruqCqo6riKiO6I | base64 -d > $file.pbm
convert -border 2x2 -bordercolor white -resize 300% -sharpen 0 -monochrome $file.pbm $file.png
tesseract $file.png $file digits
cat $file.txt
convert -background black -fill white -border 2x2 -bordercolor black -pointsize 100 label:$(cat $file.txt) $file.jpg
jp2a --chars=" $(cat $file.txt) " $file.jpg
rm $file.pbm $file.png $file.txt $file.jpg

มันแสดงผลแบบนี้:

    2014444444102         01144444102              214441                 214441     
   1             1      24           1            04    4                0     4     
  1    410201     0    0    410004    1       2014      4              21      4     
 24   42     0    4    4    0     1    0    24          4             04       4     
  22222      1    1   0    42     0    4    2   4100    4            1   41    4     
            1    42   0    4      2     2   2412   0    4          24   420    4     
          04    42    0    1      2     2          0    4         0   40  0    4     
       204    42      0    1      2     2          0    4       24   42   0    4     
     21     12        0    4      0    42          0    4      2     411114     1112 
    04   412          24    0     1    0           0    4      0                   0 
  24     1111111110    1    42  21    4            0    4      200011111001    40002 
  4               4     04    44     42            0    4                 0    4     
 0                4      214       10              0    4                 0    4     
  22222222222222222         222222                  22222                  22222     

น่าประทับใจมาก 3 ไบต์สำหรับส่วนหัว, 5 ไบต์สำหรับขนาดของรูปภาพ, 10 ไบต์สำหรับบิตแมป รูปแบบมีการอธิบายไว้ที่นี่: netpbm.sourceforge.net/doc/pbm.html
Charles

5

Java + Tesseract 53 ไบต์

เนื่องจากฉันไม่มี Mathematica ฉันตัดสินใจที่จะทำให้กฏเล็กน้อยและใช้Tesseractเพื่อทำ OCR ฉันเขียนโปรแกรมที่แสดง "2014" ลงในภาพโดยใช้แบบอักษรขนาดและรูปแบบต่าง ๆ และค้นหารูปภาพขนาดเล็กที่สุดที่ได้รับการยอมรับว่าเป็น "2014" ผลลัพธ์ขึ้นอยู่กับแบบอักษรที่มี

นี่คือผู้ชนะในคอมพิวเตอร์ของฉัน - 53 ไบต์โดยใช้แบบอักษร "URW Gothic L": 2014

รหัส:

import java.awt.Color;
import java.awt.Font;
import java.awt.FontMetrics;
import java.awt.Graphics2D;
import java.awt.GraphicsEnvironment;
import java.awt.image.BufferedImage;
import java.io.BufferedReader;
import java.io.File;
import java.io.FileReader;
import java.io.IOException;

import javax.imageio.ImageIO;

public class Ocr {
    public static boolean blankLine(final BufferedImage img, final int x1, final int y1, final int x2, final int y2) {
        final int d = x2 - x1 + y2 - y1 + 1;
        final int dx = (x2 - x1 + 1) / d;
        final int dy = (y2 - y1 + 1) / d;
        for (int i = 0, x = x1, y = y1; i < d; ++i, x += dx, y += dy) {
            if (img.getRGB(x, y) != -1) {
                return false;
            }
        }
        return true;
    }

    public static BufferedImage trim(final BufferedImage img) {
        int x1 = 0;
        int y1 = 0;
        int x2 = img.getWidth() - 1;
        int y2 = img.getHeight() - 1;
        while (x1 < x2 && blankLine(img, x1, y1, x1, y2)) x1++;
        while (x1 < x2 && blankLine(img, x2, y1, x2, y2)) x2--;
        while (y1 < y2 && blankLine(img, x1, y1, x2, y1)) y1++;
        while (y1 < y2 && blankLine(img, x1, y2, x2, y2)) y2--;
        return img.getSubimage(x1, y1, x2 - x1 + 1, y2 - y1 + 1);
    }

    public static int render(final Font font, final int w, final String name) throws IOException {
        BufferedImage img = new BufferedImage(w, w, BufferedImage.TYPE_BYTE_BINARY);
        Graphics2D g = img.createGraphics();
        float size = font.getSize2D();
        Font f = font;
        while (true) {
            final FontMetrics fm = g.getFontMetrics(f);
            if (fm.stringWidth("2014") <= w) {
                break;
            }
            size -= 0.5f;
            f = f.deriveFont(size);
        }
        g = img.createGraphics();
        g.setFont(f);
        g.fillRect(0, 0, w, w);
        g.setColor(Color.BLACK);
        g.drawString("2014", 0, w - 1);
        g.dispose();
        img = trim(img);
        final File file = new File(name);
        ImageIO.write(img, "gif", file);
        return (int) file.length();
    }

    public static boolean ocr() throws Exception {
        Runtime.getRuntime().exec("/usr/bin/tesseract 2014.gif out -psm 8").waitFor();
        String t = "";
        final BufferedReader br = new BufferedReader(new FileReader("out.txt"));
        while (true) {
            final String s = br.readLine();
            if (s == null) break;
            t += s;
        }
        br.close();
        return t.trim().equals("2014");
    }

    public static void main(final String... args) throws Exception {
        int min = 10000;
        for (String s : GraphicsEnvironment.getLocalGraphicsEnvironment().getAvailableFontFamilyNames()) {
            for (int t = 0; t < 4; ++t) {
                final Font font = new Font(s, t, 50);
                for (int w = 10; w < 25; ++w) {
                    final int size = render(font, w, "2014.gif");
                    if (size < min && ocr()) {
                        render(font, w, "2014win.gif");
                        min = size;
                        System.out.println(s + ", " + size);
                    }
                }
            }
        }
    }
}

ฉันเปลี่ยนกฎเพื่ออนุญาตรายการนี้และรายการที่คล้ายกัน ขนาดไฟล์ที่น่าประทับใจ
ชาร์ลส์

1

Mathematica 753 100

f[n_,format_]:=
Module[{filename},
Print["raster: ",n," by ", n];
filename="2014At"<>ToString[n]<>"."<>format;
Print["filename:  ",filename];
Print["format: ",format];
Print["raster image: ",rasterImg=Rasterize[Style[2014,"OCR A Std"],
RasterSize->n,ImageSize->1n,ImageResolution->6n]];
Export[filename,rasterImg];
Print["Actual imported image: ",img=Switch[format,"PDF"|"HDF",Import[filename][[1]],
_,Import[filename]]];
Print["Identified text: ",TextRecognize[ImageResize[img,Scaled[3]]]];
Print["filesize (bytes): ",FileByteCount[filename]]]

กรณีที่ดีที่สุดของฉันจนถึง:

f[24, "PBM"]

อย่างมีประสิทธิภาพ


1

Mathematica, 78 ไบต์

เคล็ดลับในการชนะสิ่งนี้ใน Mathematica อาจจะเป็นการใช้ฟังก์ชั่น ImageResize [] ดังต่อไปนี้

ก่อนอื่นฉันสร้างข้อความ "2014" และบันทึกลงในไฟล์ GIF เพื่อเปรียบเทียบอย่างเป็นธรรมกับโซลูชันของ David Carraher 2014ข้อความที่มีลักษณะเหมือน สิ่งนี้ไม่ได้รับการปรับปรุงให้ดีที่สุด แต่อย่างใด มันเป็นเพียงเจนีวาในขนาดตัวอักษรขนาดเล็ก; แบบอักษรอื่นและขนาดที่เล็กกว่าอาจเป็นไปได้ TextRecognize ตรง [] จะล้มเหลว แต่ TextRecognize [ImageResize []]] ไม่มีปัญหา

filename = "~/Desktop/2014.gif";
Print["Actual imported image: ", img = Import[filename]]
Print["Identified text: ", 
 TextRecognize[ImageResize[img, Scaled[2]]]]
Print["filesize (bytes): ", FileByteCount[filename]]

ผล

การใช้แบบอักษรขนาดตัวอักษรระดับการปรับขนาด ฯลฯ อาจทำให้ไฟล์ที่เล็กลงทำงานได้


ขนาดไฟล์ที่น่าประทับใจมาก
DavidC

คุณสามารถครอบตัดภาพออกจากเส้นขอบสีขาวเพื่อทำให้มีขนาดเล็กลงและทำให้มีช่องว่างระหว่างตัวเลขน้อยลง
หวด

@ แน่นอนว่าการตัดขอบสีขาวนั้นจะนำไปถึง 78 ไบต์
Michael Stern
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.