0. ; For more info, see: https://docs.racket-lang.org/2d/index.html
1.  
2. #lang 2d racket
3. (require 2d/cond)
4.  
5. (define (same? a b)
6.   #2dcond
7.   ╔═════════════╦═══════════════════════╦═════════════╗
8.   ║             ║       (pair? a)       ║ (number? a) ║
9.   ╠═════════════╬═══════════════════════╬═════════════╣
10.   ║ (pair? b)   ║ (and (same? (car a)   ║     #f      ║
11.   ║             ║             (car b))  ║             ║
12.   ║             ║      (same? (cdr a)   ║             ║
13.   ║             ║             (cdr b))) ║             ║
14.   ╠═════════════╬═══════════════════════╬═════════════╣
15.   ║ (number? b) ║          #f           ║   (= a b)   ║
16.   ╚═════════════╩═══════════════════════╩═════════════╝)
17.  
18. (same? 1 2)
19. (same? (list* 1 2 3) (list* 1 2 (+ 1 2)))
20. (same? 1 (list* 1 2))
21. ; use `list*` instead of `list` because the example doesn't
22. ; understand the implicit null at the end of a list.

=>

#f

#t

#f