scheme

1熱

5答えて

(foo)が一度だけ表示されるように、以下の式を書き換えることはできますか？それはひどくはないが、(foo)へのこれらの繰り返しの呼び出しは、コードを読みにくくする。 (cond (a (x) (foo)) (b (y) (foo)) (else (z) (bar)))

0熱

1答えて

リストにリストを挿入するScheme

数字バイナリのリストを作成したいのですが、バイナリ（1と0のリスト）を作成する関数を作成しましたが、これらのリストをリストに導入しようとすると、 (define make (lambda (bin s) (if (= s 0) (display bin) (make (cons (random 2) bin) (- s 1))))) (define inser

0熱

1答えて

リストのリストをノーマルリストのリスト

リストのリストで作られたペアから 'ノーマル'リストを返すスキーム関数を作ろうとしています。私はこのようなものに変更しようとしている。このような何かに ((((((() 1) 2) 3) 4) (12 13 14)) ((((() 8) 9) 10) 11) (5 6 7)) を： (1 2 3 4 12 13 14 8 9 10 11 5 6 7) 私は末尾再帰を使用してみましたが、私

1熱

1答えて

残りの引数を持つ型付きラケットのZip関数

任意の数のリストを一緒にジップする関数の構文に苦しんでいます。私は現在持っている：評価を次のエラーが発生 (define (zip . [lsts : (Listof Any) *]) (apply map (inst list Any) lsts)) ：これら以来 Error: struct:exn:fail:syntax /Applications/Racket v6.6/collects/r

-2熱

2答えて

より多くの関数を定義することなくkサイズの置換を作成する

リストとkを取得し、kのサイズで置換を取得するScheme関数（1つの関数 - 重要）を実装することが可能です。 k = 2は、{1,1}、（1,2）、（1,3）、（2,1）、（2,2）、.....}（9つのオプション）を出力する。

0熱

1答えて

ブロック構造の内部定義

(define (sqrt x) (define (good-enough? guess x) (< (abs (- (square guess) x)) 0.001)) (define (improve guess x) (average guess (/ x guess))) (define (sqrt-iter guess x) (if (go

2熱

1答えて

どのように私はコードインジェクションを防ぐのですか？

私はドッカーコンテナについて何かをチェックするスクリプトを書いています。どのコンテナであるかはユーザの入力に依存する。シェルでdocker inspect $nameを呼び出した結果を取得するには (define pipes (process (string-append "docker inspect " name))) ：だから私は、このようなコードを持っています。これをコードインジェクシ

0熱

1答えて

チキンスキームのcoopsオブジェクトシステムのdefine-genericの目的は何ですか

goopsライブラリ（http://wiki.call-cc.org/eggref/4/coops）のdefine-genericの目的は何かを理解しようとしています。私はCLOSも知らない）。私はこの方法でクラスやメソッドを定義することができ： (define-class <complex>() (x y)) (define-method (sum (a <complex>) (b <co

2熱

2答えて

スキーム

のリストの最後に新しい項目を追加するリストの最後に新しい項目を追加する必要があります。ここに私が試したものです： (define my-list (list '1 2 3 4)) (let ((new-list (append my-list (list 5))))) new-list 私が見ることを期待： (1 2 3 4 5) をしかし、私は受け取る：てみましょう：不正な構文（結

-6熱

2答えて

スキームプログラミングエクササイズ

私はスキームが新しく、私は提案されたエクササイズを解決しようとしています。 2つの関数を取り、述語（引数としても渡される）が#tを返すときに最初の関数を適用するプロシージャ "filteredmap"を記述します。述語が#fを生成するときに第2の関数を適用する。例： > (filteredmap even? (lambda (x) (+ x 1)) (lambda (x) (*