いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

482:デフォルトの名無しさん
09/07/16 17:02:20
>>473
-- Haskell

comb :: Int -> [(Int,Int)]
comb n = comb' [1..n]
where
comb' :: [Int] -> [(Int,Int)]
comb' [] = []
comb' (x:xs) = map ((,) x) xs ++ comb' xs

main = print $ comb 3

次ページ

続きを表示

1を表示