22 lines
559 B
Scheme
22 lines
559 B
Scheme
|
(define (prompt-for-cd)
|
||
|
|
"Prompts
|
||
|
|
for CD"
|
||
|
|
(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))
|
||
|
|
(prompt-read "Artist")
|
||
|
|
(or (parse-integer (prompt-read "Rating") #:junk-allowed #t) 0)
|
||
|
|
(if x (format #t "yes") (format #f "no") ;and here comment
|
||
|
|
)
|
||
|
|
;; second line comment
|
||
|
|
'(+ 1 2)
|
||
|
|
(position-if-not char-set:whitespace line #:start beg))
|
||
|
|
(quote (privet 1 2 3))
|
||
|
|
'(hello world)
|
||
|
|
(* 5 7)
|
||
|
|
(1 2 34 5)
|
||
|
|
(#:use "aaaa")
|
||
|
|
(let ((x 10) (y 20))
|
||
|
|
(display (+ x y))
|
||
|
|
)
|
||
|
|
|
||
|
|
"asdad\0eqweqe"
|