いろんな言語で宿題スレ

いろんな言語で宿題ス ..

507:デフォルトの名無しさん
09/07/17 23:49:23
>>494
>>496

import Data.List (sort)

h :: (Ord a) => Int -> [a] -> [[a]]
h 1 xs = map (\ls -> [ls]) xs
h n xs = concat $ map (\x -> map (\ys -> x:ys) (h (n-1) (filter (>= x) xs))) xs

t496 :: Int -> [[Int]]
t496 n = filter ((==10) . sum) $ h n [1..9]

main = print $ t496 3

次ページ