2006-08-23から1日間の記事一覧
まだ途中。富豪的な発想で。やっぱりこれじゃあダメだよねぇ。 module Main (main) where import Data.List import System type Points = [[Int]] point :: (Int,Int) -> (Int,Int) -> Points point (p,q) (r,s) = sequence $ [[p..(r-1)],[q..(s-1)]] makeP…
まだ途中。富豪的な発想で。やっぱりこれじゃあダメだよねぇ。 module Main (main) where import Data.List import System type Points = [[Int]] point :: (Int,Int) -> (Int,Int) -> Points point (p,q) (r,s) = sequence $ [[p..(r-1)],[q..(s-1)]] makeP…
