fork download
copy 
  1. (defmacro eval-when-compile [& body]
  2.   (binding [*compile-files* false]
  3.     (eval `(do ~@body)))
  4.   nil)
  5.  
  6. (eval-when-compile
  7.   (defmacro ! [x]
  8.     `(not ~x))
  9. )
  10.  
  11. (defn nor [x y]
  12.   (and (! x) (! y)))
  13.  
  14. (println [(nor true true) (nor true false) (nor false true) (nor false false)])
  15.  
Success #stdin #stdout 1.14s 220224KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[false false false true]
https://ideone.com/8mBm5N
language:
Clojure (clojure 1.10.0)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!