list - ループ内の各反復で複数の値を返すマップのような関数

Question

これを変換する賢明な方法はありますか:

(for ([cos-t (stream-map cos t-range)]
      [sin-t (stream-map sin t-range)])
  ...)

このようなものに：

(for ([(cos-t sin-t) (... t-range)]
  ...)

そのようにリストを作成することはできないため、実際にはマップ関数ではありません。上記のことをより簡単に行う方法を探しています。

Answer 1

必要なものは、フォームを使用して既に入手できますfor。関数を使用して、次のin-parallelように 2 つのシーケンスを結合します。

(for ([(cos-t sin-t) (in-parallel (stream-map cos t-range)
                                  (stream-map sin t-range))])
  (displayln (+ cos-t sin-t)))