ルート探索 - 趣味的にっきルート探索(1) - バリケンのRuby日記 - RubyistをHaskellで書いてみました。最近こればっかりな気もしますが。 やっぱり再帰ものは書きやすいです。バリケンさんのコードをそのまま移植できました。副作用のないバージョンも2つ書いてみましたので、参考まで。 module Main (main) where import Data.Maybe (fromJust) routeMap :: [(String, [String])] routeMap = [("A", ["B", "D"]), ("B", ["A", "C"]), ("C", ["A", "D"]), ("D", ["B", "C"])] -- 関数の中で出力する場合。 routeComb1 :: String -> String -> [(String, [String])] -> IO () routeComb
