r5rs

0熱

1答えて

ここまでは私が今までに行ったことですが、エラーがあるので実行できませんので、動作しているかどうかわかりません。私はDrRacketでオブジェクト指向プログラミングを使用して、私はディスパッチメソッドを使用して、私が持っている別のプロシージャを呼び出す場合は、適切に呼び出されます。たとえば、まずスタックを作成してスタックにプッシュしてポップし、それを印刷することができます。 (define (ma

0熱

1答えて

DrRacketのイメージスワップを遅延させる方法は？

私はDrRacketで私のゲームのためのアニメーションを作ろうとしています。左のボタンを押したときに、私のイメージに実行中のアニメーション（脚を開く - >脚を閉じた状態）をします。イメージ交換を遅らせる方法はありますか？コンピュータはスワップをすばやく実行し、スワップが起こっていないことを認識しません。 - > (define (keyboard-function key) (cond

1熱

1答えて

定義構文私はここに概念的に一般的なアイデアを持っていると思う

を用いてスキームにおけるLETの実装を記述しますが、構文は (define-syntax mylet (syntax-rules () ((mylet definitions evaluation) ((lambda (map car definitions) evaluations) (map cdar definitions)))))

0熱

1答えて

追加モードでファイルに書き込む方法-scheme R5RS？

(call-with-output-file "b.txt" (lambda (output-port) (display "hello, world" output-port))) 追加モードでb.txtを開く方法。その結果、私の結果はテキストファイルに追加されます。私は以下の答えを見つけました。しかし、それは私が期待するものではありません。 Append in scheme 私は、「コ

0熱

2答えて

スキームプログラムはネストされたリストを評価していませんか？

私は最後にオペレータのリストを評価するスキームプログラムを書いています。例：（評価「（1 2 +）） - > 3 が、私は基本的な事業者のために働く機能を持っている（+、 - 、*、/）しかし、問題は、私は、ネストされたを持っているときに来ますリスト。例：（*（1（2 3 +」）を評価）） - >（何も）私は条件足りませんか？ (define (evaluate lis) (con

0熱

1答えて

ラケットのリストの奥行きを調べる

私はリストの深さを教えてくれる手続きをしようとしています。これは私がこれまで持っているものである：これは、うまく動作します (define (depth lst) (let recurse ((lst lst) (n 1)) (cond ((null? lst) '()) ((not (pair? (car lst))) (cons n (recu

-1熱

1答えて

2つの引数を取るforAllプロシージャを書く：系列の開始と終了の値とその系列に与えられた手続きを適用する

2つの引数、すなわち系列の開始値と終了値をとるforAll手続きを書こうとしています。結果として得られるクロージャーには、初期値だけでなく、系列のすべての要素に適用する操作という2つの引数も必要です。これは私が持っているもので、何かが欠けているように見えますが、私はクロージャの背後にあるコンセプトを理解していません。 (define (forAll n m) (if (>= n m)

-1熱

1答えて

プロシージャをシリーズに適用するクロージャを作成する

クロージャを返すプロシージャを作成しようとしています。自分のシリーズに何らかの手続きを適用できるようにしたい。これは私がこれまで持っていたもので、私のために働いていません。私はこれらの操作を行うことができるようにしたい (define (forAll n m) (lambda (op start) (op (op n start) (+ n 1) m))) ： (def

0熱

2答えて

リストに要素を追加する

Schemeに、xという要素の位置を既存のリストの位置に追加するプロシージャを実装しようとしています。これは私が思いついたものです： (define empty-list '()) (define (add i x L) (cond ((null? L) (set! L (list x))) ((= i 0)(set! L (cons x L))) (else

0熱

1答えて

ラケット変数メモリにこのコードを考えると

： (define (wrapper n) (define (sum-ints) (set! n (+ n 1)) (display n)(newline) (if (= n 3) n (+ n (sum-ints)))) (sum-ints)) 私は3の値にNをインクリメントするためのプロセスを期待していたn =