2009-07-22から1日間の記事一覧
皆既日食帯の軌跡が若干曲っているのは何故? 地球も月も動くから? 頭,混乱してきた.
import Data.List -- greedy algorithm next :: Integral a => a ->[a] -> [a] next c ms = bs ++ 1: genericReplicate n 0 where (as, bs) = genericSplitAt c ms n = c - sum as sequences :: Integral a => a -> a -> [[a]] sequences c n | c > n = [] |…