#実装を考えるためのものというのはないかもしれないなぁ。
#YhcとかHeliumとかかなぁ。それでも大きい気がするなぁ。
#RWH読書会:そろそろ開始
#mkPalindrome xs = xs ++ reverse xs
#mkPalindrome = s (++) reverse
#where s f g x = (f x) (g x)
#これだとxsを2度たどることになる
#xsをたどるのを1度だけにするには
#mkPalindrome = uncurry id . foldl f (id,[])
# where f (g, xs) x = (g . (x:), x:xs)
#まぁ1パスにしたところで、効率は変んないけど。
#へたするを悪くなるのか。。。
haskell-ja > Archives > 2009/05/17