DouKaku?beta

Comment detail

隣り合う二項の差 (Nested Flatten)
srfi-42 の comprehension を使ってみました。 
1
2
3
4
5
6
(use srfi-42)
(define (diff xs)
  (list-ec (:do ((x (car xs)) (y (cdr xs)))
                (not (null? y))
                ((car y) (cdr y)))
           (- (car y) x)))

:parallelで複数の変数に対してループを回せます。
1
(define (diff xs) (list-ec (:parallel (: x xs) (: y (cdr xs))) (- y x)))

なるほどです。どうもありがとうございます。
:parallel は知っていたのに気付かなかったのが残念です。

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]