12345678910111213141516171819 |
- # key: lc
- # name: list-comprehension
- #
- # (use-modules (srfi srfi-42))
- #
- # https://en.wikipedia.org/wiki/List_comprehension
- # https://en.wikipedia.org/wiki/Comparison_of_programming_languages_(list_comprehension)
- # --
- (define list-comprehension
- (list-ec (: a 11) (: b 11) (: c 11)
- (if (and (= (+ (* a a)
- (* b b))
- (* c c))
- (= (+ a b c)
- 24)
- (< b c)
- (< a b))
- (list a b c)
- '())))
|