PasteRack.org
Paste # 622
2018-06-14 15:05:23

Forked from paste # 75313.

Fork as a new paste.

Paste viewed 132 times.


Embed:

  1. #lang racket
  2.  
  3. (for/list ([i '("foo" "bar" "spam" eggs)]
  4.            #:when (string? i))
  5.   (string-upcase i))
  6.  
  7. (for*/list ([i '("foo" "bar" "spam" eggs)]
  8.             [v (in-value (match i
  9.                            [(? string? s) (string-upcase s)]
  10.                            [_ #f]))]
  11.             #:when v)
  12.   v)

=>

'("FOO" "BAR" "SPAM")

'("FOO" "BAR" "SPAM")