練習問題　

　白玉3個、赤玉3個、黒玉3個の計9個の玉をランダムに1列に並べるとき、同じ色が隣合わない並べ方は何通りあるか？

apply(permuteGeneral(c(1,2,4),freq=c(3,3,3)),1,\(x) all(diff(x)!=0)) |> sum()

を入力してリターンキーを押すだけ。瞬時に答が返ってくるから、時間の無駄とは感じないなぁ。
判定プログラムを作るのがそれなりに楽しいが数値解が返ってこなくちゃ意味がないな。
The　proof of the pudding is in the eating.