PasteRack.org
Paste # 87651
2019-01-01 20:18:02

Fork as a new paste.

Paste viewed 239 times.


Embed:

  1. #lang racket/base
  2.  
  3. (require syntax/parse)
  4.  
  5. (define (compile-num-list nums)
  6.   (syntax-parse nums
  7.     [(num) (list (syntax-e #'num))]
  8.     [(num "," nums ...) (cons (syntax-e #'num)
  9.                               (compile-num-list #'(nums ...)))]))
  10.  
  11. (module+ test
  12.   (require rackunit)
  13.   (check-equal? (compile-num-list #'(1 "," 2 "," 3)) '(1 2 3)))

=>