2006-11-25から1日間の記事一覧
import List divid :: [a] -> [([a], [a])] divid xs = zip (inits xs) (tails xs) perm :: [a] -> [[a]] perm [] = [] perm [x] = [[x]] perm xs = concat $ map (\(h, t:ts) -> map (\ys -> t : ys) $ perm ( h ++ ts)) $ init $ divid xs isSorted :: Ord…
おおきく振りかぶってl 1-6、舞姫 (テレプシコーラ) 1-9、バルバラ異界 1-4 asin:4063143422:detail