PasteRack.org
Paste # 49195
2018-02-11 19:35:39

Forked from paste # 64590.

Fork as a new paste.

Paste viewed 81 times.


Embed:

test

  1. #lang racket
  2.  
  3. (define ('(1 2 3 4) xs)
  4.  
  5.             (cond [(null? xs) '()]
  6.  
  7.                   [(number? xs) xs]
  8.  
  9.                   [(list? xs) (cdr xs)]
  10.  
  11.                   [(boolean? xs) #t]
  12.  
  13.                   [#t #f]))

=>