chez-scheme

1熱

1答えて

スキームを使う私は以下の関数を使う必要があります。（すべての引数は、自然数は[0、INFされている）） (define safe-div (lambda (num denom safe) (if (zero? denom) safe (div num denom)))) ただし、この機能はかなり頻繁に呼び出され、）（速度が賢明十分機能していません。

5熱

1答えて

RR ' - NN' = 1を解くためのユークリッドアルゴリズム。モンゴメリアルゴリズムを用いたモジュラ剰余計算によるPythonまたはPetite ChezスキームでのFermatテストの実装

これは、Schemeを使って教えた初級プログラミングのクラスでは個人的な挑戦ですが、 Pythonの例に満足しています。は、私はすでに次のようにスキームでべき乗剰余のバイナリメソッドを実装しました： (define (pow base expo modu) (if (zero? expo) 1 (if (even? expo) (mod (expt