同じように配列に対する線形探索を書いた。Haskell のリストをわざわざメモリ上に保存しなおしているという無駄があるがサンプルなので気にしないことにする。 linearSearch :: (Eq a, Storable a) => a -> [a] -> IO (Bool, Int) linearSearch target xs = …

今度はスタックのサイズは固定、要素もIntのみで、状態モナドを止めてみた。スタック自身でポインタを管理する。これで複数のスタックを使える。ほぼCの構造体になったと思うがわたしはCを書けないので自信なし。 import Foreign.Ptr import Foreign.Marshal…