2009-01-22から1日間の記事一覧
http://projecteuler.net/index.php?section=problems&id=184 三角形を頂点ではなく、頂点と原点を結ぶ直線で考えた。 import Data.Function (on) import Data.Map (fromListWith,toList) choose :: [a] -> Int -> [[a]] choose _ 0 = [[]] choose [] _ = []…
http://projecteuler.net/index.php?section=problems&id=184 三角形を頂点ではなく、頂点と原点を結ぶ直線で考えた。 import Data.Function (on) import Data.Map (fromListWith,toList) choose :: [a] -> Int -> [[a]] choose _ 0 = [[]] choose [] _ = []…