DouKaku? Add tags

Add tags

Add tags to the following comment

comb の方にも和の制約を入れたら手元のマシンで
magic 5 のケースが４倍速になりました。

comb :: Int -> Int -> [Int] -> [([Int],[Int])]
comb s _ xs | s < 0 = []
comb s 0 xs | s == 0    = [([],xs)]
            | otherwise = []
comb _ _ [] = []
comb s k (x:xs) = [ (x:ys,zs) | (ys,zs) <- comb (s-x) (k-1) xs ]
                ++[ (ys,x:zs) | (ys,zs) <- comb s     k     xs ]

comb' :: Int -> Int -> [Int] -> [([Int],[Int])]
comb' s 0 xs | s == 0    = [([],xs)]
             | otherwise = []
comb' _ _ []             = []
comb' s k (x:xs) = [ (x:ys,zs) | (ys,zs) <- comb (s-x) (k-1) xs ]

Add tags

Tags:
The input will be splited to tags with space.

DouKaku?

Add tags

Add tags

Index

Feed

Other

Link

Pathtraq