scheme

0熱

1答えて

皆様の現在のリストから最初の値を切り捨ててください。自分のカスタムオブジェクトを引数としてとり、そのオブジェクトのリストから最初の引数を取り出し、それを返してオブジェクトから削除します。コードは次のとおりです。 (define (make-source sequence . xs) (let ((a (if (not (null? xs)) xs (lis

0熱

3答えて

別の関数でschemeを使用して関数を呼び出す方法は？

私はスキームを学んでいるので、飛行機の人数と飛行機の座席数に基づいて飛行機の数を計算する2つの機能を持つプログラムを実行しています。すべてが問題ない限り、問題は私が別の関数で関数を使用しようとするとき、私はそれを行う方法がわかりません。まず機能：私は、各プレーンのための$ 1000のための手数料を配置する第二の機能で (define calculate-aeroplanes (lamb

1熱

1答えて

スキーム - このような出力をどのように説明しますか？

だから私は与えられている以下の定義： (define head car) (define (tail stream) (force (cdr stream))) (define (addL x y)(cons-stream (+ (head x) (head y))(addL (tail x) (tail y)))) (define fibs(cons-stream 1(cons-st

0熱

2答えて

first：空でないリストを期待します

私のプログラムを起動すると、エラーがfirst: expects a non-empty list与えられ続けています：(make-subject (make-person 22 'm 'MW17K) (list 220 301 189 272 311))私は理由を見つけることができません。 (define (idk sub) (cond [(empty? sub) empty

1熱

1答えて

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

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

0熱

1答えて

テキストフィールドに表示するリストを追加する％Racketで

テキストフィールドに表示する必要がある "derivedSentences"という名前の文字列のリストを受け取る関数があります。それはこのようなものですと (for-each (lambda (singlesentence) (send derivationPanelTextField set-value singlesentence) ) derivedSenten

1熱

1答えて

スキーム "mcar：契約違反"

(define (create-polygon ptlist) (if (null? ptlist) 0 (append (list (make-seg (car ptlist) (cadr ptlist))) (create-polygon (cdr ptlist))))) 私の問題は、このプログラムを実行しようとすると契約違反エラーが発生することです。私はあなたが車や

-2熱

1答えて

リストに再帰的に追加する

問題は、p1、p2、p3、p4と呼ばれるポリゴンコーナーについての完全な座標リストがあることです。（p1、p2）（p2、p3）（p3、p4）（p4、p1）そして、これらのリストを再帰的に新しいリストに追加する必要があります（p1 p2 p3 p4）

0熱

1答えて

スキームリスト操作エラー

(define (create-polygon ptlist) (if (null? ptlist) '() (cons (cons (car ptlist) (cadr ptlist)) (create-polygon (cdr ptlist))))) (define (newlist ptlist) (append ptlist (car ptlist)))

0熱

3答えて

ユーザーがリストに何も入れていないかどうかを確認する方法は？スキームプログラミング

(define (min list) (cond ((empty? (car list) '"It is empty")) <- Problem is here. Code work without this line. ((empty? (cdr list)) (car list)) ;to check list is empty ((< (car list) (m