2012-01-05から1日間の記事一覧
唐突に Haskell が書きたくなったので 久々に Haskell 入門! [ソース] prime :: [Int] -> [Int] prime [] = [] prime (x:xs) | (>) (x*x) $ maximum xs = [x] ++ xs | otherwise = (++) [x] $ prime $ filter (\ y -> (/=) 0 $ mod y x) xs main = print $ …
唐突に Haskell が書きたくなったので 久々に Haskell 入門! [ソース] prime :: [Int] -> [Int] prime [] = [] prime (x:xs) | (>) (x*x) $ maximum xs = [x] ++ xs | otherwise = (++) [x] $ prime $ filter (\ y -> (/=) 0 $ mod y x) xs main = print $ …