Initial data commit

Task/Bitmap-Read-a-PPM-file/J/bitmap-read-a-ppm-file-1.j

@@ -0,0 +1,10 @@
+require 'files'
+
+readppm=: monad define
+  dat=. fread y                                           NB. read from file
+  msk=. 1 ,~ (*. 3 >: +/\) (LF&=@}: *. '#'&~:@}.) dat     NB. mark field ends
+  't wbyh maxval dat'=. msk <;._2 dat                     NB. parse
+  'wbyh maxval'=. 2 1([ {. [: _99&". (LF,' ')&charsub)&.> wbyh;maxval  NB. convert to numeric
+  if. (_99 0 +./@e. wbyh,maxval) +. 'P6' -.@-: 2{.t do. _1 return. end.
+  (a. i. dat) makeRGB |.wbyh                              NB. convert to basic bitmap format
+)

Task/Bitmap-Read-a-PPM-file/J/bitmap-read-a-ppm-file-2.j

@@ -0,0 +1,3 @@
+myimg=: readppm jpath '~temp/myimg.ppm'
+myimgGray=: toColor toGray myimg
+myimgGray writeppm jpath '~temp/myimgGray.ppm'