racket

0熱

1答えて

リストの最初の単語をすべて抽出します。例：（最初の「ハローワールドASD fdas QWERTY）リターン：F qをW H。例えば (define (first-char lst) (map (lambda (w) (string->symbol (string (string-ref (symbol->string w) 0)

0熱

1答えて

ラケットを使用してクロック速度を制御するにはどうすればよいですか？

ラケットを使って10から0までカウントダウンするプログラムを書こうとしました。それは機能しましたが、カウントが速すぎると、1周に1秒をカウントする設定時間を実装する方法がありますか？私はそれに取り組んでいますが、とにかく見つけることができませんでした。あなたの時間をありがとう。これまでのコードは次のとおりです。 ;; Functions: ;; countdown -> countdown

0熱

1答えて

空ではないハッシュテーブルの契約方法

ラケットはnon-empty-listofと契約していますが、non-empty-hashofと契約していません。それを構築する方法はありますか？

0熱

1答えて

再帰的な契約は

型付きラケットのRecタイプは、再帰的な型を作るための簡単な方法です： #lang typed/racket/base (define (deep (n : Integer)) : (Rec T (U Integer (List T))) (if (zero? n) n (list (deep (- n 1))))) は、再帰的な契約をする同様の方法はあります

1熱

1答えて

Sxmlとxexpとの違いは何ですか？なぜ私はどちらを使うべきですか？

Racketは多数のxml関連フォーマットをサポートしています。その中で構造定義に基づく2つの異なるxexpライブラリとリストに基づくsexpライブラリがサポートされています。特別な検証やDTDを使用せずに、リッチテキスト用の簡単なxmlベースの交換フォーマットを定義して読み書きする必要があります。その目的は、他の実装言語と互換性のあるフォーマットを作成し、今後の自分の作業のための証明となるよう

1熱

2答えて

Racketプログラミング言語の空でないディレクトリを削除

Racketで空でないディレクトリを削除するには？ dirは"/ユーザ/りんご/ライブラリ/ Application Support /葵"である私はこのAPI を呼び出し（削除-ディレクトリdir）、。 exnが見つかった：＃（構造体：exn：失敗：ファイルシステム：errnoディレクトリを削除できません）パス：/ Users/apple/Library/Application Suppor

0熱

1答えて

ラケット。リストからペアのリストを作成する

リストからペアのリストを作成したいのですが、cdrは常に同じです。たとえば、(make-pair '(1 2 3 4 5))は'((1.a)(2.a)(3.a)(4.a)(5.a))を返します。これは私が開発しているコードですが、うまくいかず、デバッグ方法がわかりません。 (define (make-pair lst) (if (null? (car lst)) '()

0熱

2答えて

DrRacket - セット内で最大の番号を探す

(for judges ([judge1 judge2 judge3 judge4 judge5 judge6 judge7 judge8]) (define i 0) (define j 1) (cond [(< judges[i] judges[j]) (cond [(equal? judges[j] judges(length)) (

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) 私は末尾再帰を使用してみましたが、私

0熱

2答えて

畳んだラケット契約の目的は何ですか？

私はラケットガイドを歩くと、ちょうどこのページ仕上がっています： https://docs.racket-lang.org/guide/contracts-first.html を生じた契約は、私は私の目を信じることができなかったほど複雑である： (provide (contract-out [argmax (->i ([f (-> any/c real?)] [lov (a