レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。

あれくま作業中 58作目

910：あれななしさん：2013/11/10(日) 00:01:48 ID:Cw2v9im6: let rec combinations count lst =
if count = 0 then
[[]]
else if List.length lst < count then
[]
else
match lst with
| [] -> []
| hd :: tl ->
(List.map (fun l -> hd :: l) (combinations (count - 1) tl)) @
(combinations count tl)
;;

掲示板管理者へ連絡無料レンタル掲示板