scheme.scm 559 B

123456789101112131415161718192021
  1. (define (prompt-for-cd)
  2. "Prompts
  3. for CD"
  4. (prompt-read "Title" 1.53 1 2/4 1.7 1.7e0 2.9E-4 +42 -7 #b001 #b001/100 #o777 #O777 #xabc55 #c(0 -5.6))
  5. (prompt-read "Artist")
  6. (or (parse-integer (prompt-read "Rating") #:junk-allowed #t) 0)
  7. (if x (format #t "yes") (format #f "no") ;and here comment
  8. )
  9. ;; second line comment
  10. '(+ 1 2)
  11. (position-if-not char-set:whitespace line #:start beg))
  12. (quote (privet 1 2 3))
  13. '(hello world)
  14. (* 5 7)
  15. (1 2 34 5)
  16. (#:use "aaaa")
  17. (let ((x 10) (y 20))
  18. (display (+ x y))
  19. )
  20. "asdad\0eqweqe"