2020-02-10から1日間の記事一覧
(* r個のe乗数でn通りに表せる最初の数 *) (* 関数型 *)f[r_, e_, n_, m_: 10] := Quiet@Check[Cases[Tally[Sort[Total /@ Union[Sort /@ Tuples[Range[m]^e, r]]]], {_, n}]1, 1, f[r, e, n, 2 m]] (* 手続き型 *)g[r_, e_, n_, m_: 10] := Catch[Block[{a …
(* r個のe乗数でn通りに表せる最初の数 *) (* 関数型 *)f[r_, e_, n_, m_: 10] := Quiet@Check[Cases[Tally[Sort[Total /@ Union[Sort /@ Tuples[Range[m]^e, r]]]], {_, n}]1, 1, f[r, e, n, 2 m]] (* 手続き型 *)g[r_, e_, n_, m_: 10] := Catch[Block[{a …