RosettaCodeData/Task/Bitmap-Histogram/J/bitmap-histogram-1.j

4 lines
125 B
Plaintext

getImgHist=: ([: /:~ ~. ,. #/.~)@,
medianHist=: {."1 {~ [: (+/\ I. -:@(+/)) {:"1
toBW=: 255 * medianHist@getImgHist < toGray