ZipN - One of the Eight Stones

ZipN - One of the Eight Stones

率直な感想…構文木を作るコード書くのめんどくさすぎ… 自分で書こうと思っても全然書けない。 慣れの問...概要を表示 率直な感想…構文木を作るコード書くのめんどくさすぎ… 自分で書こうと思っても全然書けない。 慣れの問題なのだろうか…? 2004-12-27 「構文木」というのを意識しすぎなのだと思います。 例3 任意個のzip (引用略) zip3 = $(zipN 3)と書ければ嬉しいという話。 の zipN と zipWithN を書いてみました。 {-# OPTIONS -fth #-} module ZipN where import Language.Haskell.TH zipN n = [| $(zipWithN n) $(tupN n) |] zipWithN n = [| \f x -> $(g (n - 1)) (map f x) |] where g 0 = [| id |] g n = [| \x y -> $(g (n - 1)) (zipWith ($) x y) |] tu

• haskell