PasteRack.org
Paste # 82481
2015-08-12 00:26:22

Fork as a new paste.

Paste viewed 611 times.


Embed:

SRFI 42 comprehensions vs Racket comprehensions

  1. #lang racket
  2. (require srfi/42)
  3.  
  4. ;; SRFI 42
  5. (list-ec (: i 5) (* i i))
  6. ;; Racket
  7. (for/list ((i (in-range 5)))    ; or simply ((i 5))
  8.   (* i i))
  9.  
  10. ;; SRFI 42
  11. (list-ec (: n 1 4) (: i n) (list n i))
  12. ;; Racket
  13. (for*/list ((n (in-range 1 4))
  14.             (i (in-range n)))   ; or simply ((i n))
  15.   (list n i))

=>

'(0 1 4 9 16)

'(0 1 4 9 16)

'((1 0) (2 0) (2 1) (3 0) (3 1) (3 2))

'((1 0) (2 0) (2 1) (3 0) (3 1) (3 2))