私は Haskell でいくつかのモナド処理を行っており、ゲームの決定木が与えられたギャンブル ゲームで勝つ確率を計算する関数を作成しました。予想とはわずかに異なる答えを返すことがあるという事実を除いて、それは魅力のように機能します。たとえば、コードを DOMjudge にアップロードすると、エラーが返され、正しい答えは 6004799503160661 % 36028797018963968 ではなく 1 % 6 である必要があり、これが関数が返すものです。実際に割ってみるとほぼ同じなのですが、答えが微妙に違う理由がわかりません。私はさまざまなタイプをいじっています（たとえば、Intの代わりにRealを使用しています）が、今のところうまくいきません。私はこのようなことに慣れていないので、これを理解できないようです。誰かが私を正しい方向に向けることができますか?
-コードを削除しました-