IO ()さんのアドバイスにより、拡張ユークリッドの互除法と加速互除法を合体させられました。 ……というより、除算アルゴリズムから見て、どうみてもdiv1の定義が間違ってるのにそれを見逃していたってどうなんだ……orz では、載せます。 -- 剰余の絶対値が少…

id:Ozy:20060603#p2 id:Ozy:20060604#p1から。何となく気になったんで、Haskellで実装。……まあもっと簡単になるとは思うけど。以下、組合せを求めるのに必要な部分のみ抜粋。 dfoldl _ z [] _ = z dfoldl _ z _ [] = z dfoldl f z (x:xs) (y:ys) = dfoldl f …