2007-06-09から1日間の記事一覧
なんとなくできてしまったので。 bfs :: (a -> [b]) -> [a] -> [b] bfs f queue = foldr (?a b -> f a ++ b) [] queue
与えられた関数のリストを与えられた1つの値に対して適用する関数ってのはないのだろうか。こんなの。 f :: [a -> b] -> a -> [b] f (fun:funlist) x = fun x : f funlist x f [] _ = [] Main> f [?x->x+1, ?x->x+2] 0 [1,2] Main> みたいな関数はないのだろ…