PasteRack.org
Paste # 59219
2024-10-18 02:27:07

Fork as a new paste.

Paste viewed 151 times.


Embed:

  1. #lang racket
  2.  
  3. (display "Hello, World!") ; Outputs the string
  4. (newline) ; Moves to the next line
  5.  
  6. (define q1 (list 1 (list (list 2) 3) 4))
  7. (define q2 (cons 1 (cons (cons (cons 2 empty) (cons 3 empty)) (cons 4 empty))))
  8.  
  9. (write q1) ; Displays q1 in a readable list format
  10. (newline) ; Moves to the next line
  11. (write q2) ; Displays q2 in a readable list format
  12. (newline) ; Moves to the next line
  13.  
  14. (define q3 (cons q1 q1))
  15. (write q3)

=>

Hello, World!

(1 ((2) 3) 4)

(1 ((2) 3) 4)

((1 ((2) 3) 4) 1 ((2) 3) 4)