PasteRack.org
Paste # 74718
2018-02-12 15:54:07

Fork as a new paste.

Paste viewed 31 times.


Embed:

listatoms

  1. #lang racket
  2.  (define (listatoms l)
  3.     (cond ((null? l) '())
  4.           ((symbol? l) (cons l '()))
  5.           (#t (append (listatoms (car l)) (listatoms (cdr l))))))

=>