PasteRack.org
Paste # 44478
2019-06-10 18:09:02

Fork as a new paste.

Paste viewed 221 times.


Embed:

  1. #lang racket
  2. (define (foo xexp)
  3.   (match xexp
  4.          [`(a ,(list-no-order '@ `(href ,url) _ ...) ,_) url]))

=>