0054132人目の素数さん垢版 | 大砲2018/08/18(土) 21:47:31.71ID:71FfZJbC ちがった。 m部屋n人空部屋なしの場合の数で a[m,n] = a[m,n-1]×m + a[m-1,n-1]×m *Main> let s m n = if m == n then (product [1..m]) else if m==1 then 1 else m*(s (m) (n-1)) + m*(s (m-1) (n-1)) *Main> s 6 12 953029440