DZone Snippets: compare code

Compare two bitmap objects

mstampar (Miroslav Stampar) — Tue, 24 Apr 2007 22:34:24 GMT



        private bool PicsIdentical(Bitmap bmp1, Bitmap bmp2)

        {

            bool retVal = true;



            if (bmp1.Size != bmp2.Size)

                retVal = false;

            else

            {

                for (int x = 0; x < bmp1.Width; x++)

                {

                    for (int y = 0; y < bmp1.Height; y++)

                    {

                        if (bmp1.GetPixel(x, y) != bmp2.GetPixel(x, y))

                        {

                            retVal = false;

                            break;

                        }

                    }

                }

            }

            return retVal;

        }

Is a value between two other values?

gregg.irwin (Gregg Irwin) — Wed, 01 Mar 2006 03:52:31 GMT



between?: func [

    value bound-1 bound-2

    /exclusive

    /local low-bound high-bound

][

    set [low-bound high-bound] sort reduce [bound-1 bound-2]

    either exclusive [

        all [(value > low-bound) (value < high-bound)]

    ][

        ;-- Inclusive comparison

        all [(value >= low-bound) (value <= high-bound)]

    ]

]

Compare two files

gregg.irwin (Gregg Irwin) — Mon, 23 Jan 2006 02:07:40 GMT



    compare: func [a b /binary] [

        a: checksum either binary [read/binary a] [read a]

        b: checksum either binary [read/binary b] [read b]

        equal? a b

    ]