HaskellのI/O バイナリデータの操作 JPEGのグリッチング IO型を通常のの変数に変更
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON 25(バイナリデータの操作)、25.2(JPEGのグリッチング)のクイックチェック25-2の解答を求めてみる。
コード
import System.Environment
import qualified Data.ByteString as ByteString
import qualified Data.ByteString.Char8 as BC
main :: IO ()
main = do
args <- getArgs
let fileName = head args
imageFile <- BC.readFile fileName
let glitched = imageFile
let glitchedFileName = mconcat ["glitched_", fileName]
BC.writeFile glitchedFileName glitched
print "all done"
入出力結果(Terminal, Zsh)
% runghc glitcher.hs lovecraft.jpg
"all done"
% ls *lovecraft.jpg
glitched_lovecraft.jpg lovecraft.jpg
% diff lovecraft.jpg glitched_lovecraft.jpg
%