というわけで。 高速化を試してみました。 まず、read関数はコストが大きいらしいので、これをfromIntegralに置き換え。 また、preservingMatrixを消してやることで1秒近い時間短縮に成功。 そこで、一度、画像ロードにかかる時間、 及び、画像描画にかかる…

入院初日。 試験からも寄席からも開放され、しばしの休息。 というわけで。 久々にHaskell！！ やりかけになっていた、OpenGLを使ってHaskellでの画像描画実行結果 ソースコードはこちら の、 ・Gui.hs ・Interface.hs ・ImageReader.hs の3ファイルただ。た…

これも同じく、蟻本P.43に掲載されていた問題。 仕事の終了時間、開始時間のデータセットが与えられたとき、 最多でいくつの仕事を行えるか、というもの。 module TimeScheduling where import Data.List s = [1,2,4,6,8] -- 仕事の開始時刻 t = [3,5,7,9,10…

蟻本P.35に掲載されていた問題。 要は、二次元配列で渡されたマップ情報を読んで、近傍8座標で繋がっている領域数の数え上げ。ソースコードはこちら(x,y) -> (0,0),(0,1).. のように、順に横方向に探索をかけ、領域が存在したら、 その近傍4点に関して再帰的…