fork(1) download
copy 
  1. (define comp-exps
  2.  (lambda (x1 x2)
  3.   (cond ((or (atom? x1) (atom? x2)) (eq? x1 x2))
  4.         (#t (and (comp-exps (car x1) (car x2))
  5.                  (comp-exps (cdr x1) (cdr x2)))))))  
  6.  
  7. (display (comp-exps '(1 (2 3)) '(1 (2 3))))
Success #stdin #stdout 0s 18088KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
#t
https://ideone.com/czfwML
language:
Scheme (chicken 4.13)
created:
6 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!