Rosetta Code

Bitmap/Histogram: Difference between revisions

Page Discussion

Bitmap/Histogram (view source)

Revision as of 23:51, 7 September 2012

111 bytes removed ,  11 years ago
m
→‎{{header|Haskell}}
Line 393:
import Bitmap.Netpbm
import Control.Monad.ST
import Data.Array.ST
 
main = do
Line 402 ⟶ 401:
 
histogram :: Color c => Image s c -> ST s [Int]
histogram i = doliftM f . getPixels where
hf <-= newArrayelems . accumArray (+) 0 (0, 255) 0. ::map ST(\i s-> (STArrayluminance si, Int Int1))
let increment i = readArray h i >>= writeArray h i . (+1)
getPixels i >>= mapM_ (increment . luminance)
getElems h
 
medianIndex :: [Int] -> Int
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/92507"