となる整数ベクトルのとる格子点を再帰的な関数で作る 計算させてみないで作る方がよいのでこれこそHaskellが得意そうだが grid.multinom<-function(L,k){ ret<-list() if(k==1){ ret[[1]]<-c(L) }else{ cnt<-1 for(i in 0:L){ tmp<-grid.multinom(L-i,k-1) …