2009-03-01から1ヶ月間の記事一覧

ひさしぶりにArrowLoopをつかってみた

ひさしぶりにArrowLoopをつかってみました。大分忘れていたな、という。いや覚えていたけど。 import Control.Arrow lengthA xs = loop ((snd&&&fst>>>app)&&&lengthA') (xs,0) where lengthA' = snd>>>\f -> cond (null.fst)>>>snd ||| ((tail***(+)1)>>>f)…