計算機科学のブログ

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 
%