DouKaku?

（foldl ではなく）正格評価する foldl' を使ったバージョンです。
m は本質的でないので勝手に「札には 0 から n-1 までの数字が書かれていて
0 からスタート」という問題にしました。

さらに効率アップする規則がないか少し考えたんですが見つけられませんでした。
（c が k よりかなり大きいときは r `divMod` (k-1) した方が得ですが
あまり本質的ではないですね）

ただし k == 2 のときは面白い規則があり「たけしのコマネチ大学数学科」
でも取り上げられたようです。