0. #lang 2d racket
1. (require 2d/cond)
2.  
3. (define (same? a b)
4.   #2dcond
5.   ╔═════════════╦═══════════════════════╦═════════════╗
6.   ║             ║       (pair? a)       ║ (number? a) ║
7.   ╠═════════════╬═══════════════════════╬═════════════╣
8.   ║ (pair? b)   ║ (and (same? (car a)   ║     #f      ║
9.   ║             ║             (car b))  ║             ║
10.   ║             ║      (same? (cdr a)   ║             ║
11.   ║             ║             (cdr b))) ║             ║
12.   ╠═════════════╬═══════════════════════╬═════════════╣
13.   ║ (number? b) ║          #f           ║   (= a b)   ║
14.   ╚═════════════╩═══════════════════════╩═════════════╝)
15.  
16. (same? 1 2)
17. (same? 1 1)
18. (same? 1.0 1)
19. (same? 1 "1")
20. (same? '(1) 1)
21. (same? '(1 . (2 . 3)) '(1 . (2 . 3)))

=>

#f

#t

#t

2dcond: all of the y-direction questions were false (x

coordinate 2 was true)

#f

#t