scheme

-2熱

1答えて

私は再帰関数を実装しようとしている（和CERO）それは整数のリスト与えられ、それが0 を合計連続した番号のすべての可能なsecuencesを印刷します実施例1：（合計ゼロ「（4 2 -3 -1 0 4）） =>（-3 -1 0 4）（0）例2：（合計ゼロ「（3 4 -7 3 1 3 1 -4 -2 -2）） =>（3 4 -7）（4 -7 3）（-7 3 1 3）（3 1-4）（3

4熱

1答えて

Whence、@ quasiquote-splicingの略語？

スキームにおいて、,はquasiquoteの略語であり、,@はquasiquote-splicingの略語です。 @はどこから来たのですか？操作のニーモニックであることを意図していますか、他のコンテキストで@と一貫していますか、それとも何か他の組み合わせですか？

0熱

1答えて

スキームランレングス符号化

：原子Lのリストを取る関数（エンコードL）を書き込み、ランレングスは、（出力形式のペアのリストであることがリストは、コード値の長さ）ここで、最初の要素は値で、2番目は値がエンコードされたリストで発生する回数です。例えば： (encode '(1 1 2 4 4 8 8 8)) ---> ((1 2)(2 1)(4 2)(8 3)) これは今のところ私が持っているコードです： (define

1熱

2答えて

これはなぜSchemeで評価されないのですか？

私はSchemR言語を試してみるためにDrRacket環境を使用しています。次のように私は合計+ 1を定義した： (define sum+1 '(+ x y 1)) 次の式は評価されない理由は、私が思っていた： (let ([x 1] [y 2]) (eval sum+1)) をこれを行うことは、正しい値を返すのに対し： (define x 1) (define y 2) (eval

0熱

1答えて

スキームエラー：#tは関数ではありません[サブセット?,（anon）]

2つのエラーが表示され、ここで何か分かりません。最初は入力が両方のセットであるときに来る。これは私に与えられるエラーです： Error: #t is not a function [subset?, (anon)] 2番目は、AまたはSがセットではなく、そのelseステートメントです。私はこれを取得： (define (is-set? L) (if (list? L) (

1熱

2答えて

先頭と末尾に2つの文字列で1つの文字列を上書きする関数を作成します。

私は奇妙な言語のラケットを使用して先頭と最後に2つの文字列を上書きします。例えば (define overwrite (s beg end)... 、(overwrite "catapult" "dog" "blah")べき出力"dogablah" (overwrite "greenbeans" "munk" "grub")べき出力"munknbgrub"。場合によっては、上書きによって中央

3熱

2答えて

は、だから私はDrRacketを使用して、以下のように定義構造体を持っています

DrRacket（またはスキーム）でこの形式のツリーを形成 (define v (make-thing (make-thing (make-thing 1 2) (make-thing 3 4)) (make-thing (make-thing 5 6) (make-thing 7 8)))) 2の累乗で1,2,4,

0熱

1答えて

チキンスキームのエラー処理

私は基本的なポートスキャナを作っています。閉じたポートに接続し、開いているポートに接続すると「開く」と印刷すると、「閉じた」と印刷しようとしています。今、私はこれをやっている：それは（netcatをしてテストしている）必要があるとき (condition-case (tcp-connect (list-ref host 0) port) [(exn) (print "closed"

-2熱

1答えて

Racket：リスト内の要素を再帰的に比較する

この関数は、リスト（文字列または整数の完全なものであるため、その 'if'文で始まる）を取得し、昇順であるかどうかを確認する必要があります。最後の再帰呼び出しのように、「car」が最終要素であるため、「cadr」には何も付いていないので、これをクラッシュさせないようにする方法はわかりませんでした。 (define (my-sorted? lst) (if (number? (car l