repl.it
@rayhu007/

lisp-atom

Scheme

No description

fork
loading
main.scm
1
2
3
4
5
6
7
8
9
(define atom?
  (lambda (x)
    (and (not (pair? x)) (not (null? x)))))

(atom? (quote ()))

(defun atom? (x) 
  (not (listp x)))
BiwaScheme Interpreter version 0.6.4 Copyright (C) 2007-2014 Yutaka HARA and the BiwaScheme team
?