application/octet-stream
•
2.48 KB
•
73 lines
(1 1)
('asd 'asd)
(:asd :asd)
(1 (if #t 1 2))
(2 (if #f 1 2))
(123 #d123)
(6 #b0110)
(10 #b1010)
(15 #b11_11)
(7 #b01,11)
(192 #b1100_0000)
(255 #xFF)
(255 #xFf)
(160 #xa0)
(31 #x1_F)
(30 #x1,E)
(50 #x32)
(256 #x100)
(0 #o)
(7 #o7)
(10 #o12)
(26 #o32)
(4294967295 #b11111111_11111111_11111111_11111111)
(4294967295 #xFFFFFFFF)
(2 (- (+ 1 #b10) 1))
(8 (- (+ 1 #o10) 1))
(16 (- (+ 1 #x10) 1))
(32 (+ #x10#x10))
(32 (+ #x10(+ 0#x10)))
(0 (bit-and #xf0 #x0F))
(-31 #x-1F)
(255 (bit-or #xf0 #x0F))
(255 (bit-or #xfF #xFF))
(255 (bit-xor #xf0 #x0F))
(240 (bit-xor #xff #x0F))
('(3) (let ((test-string "3")) (read test-string) (read test-string)))
(:read-error (try (fn (err) (car err)) (read "#b1111-0000")))
(:read-error (try (fn (err) (car err)) (read "#x1-F")))
(:read-error (try (fn (err) (car err)) (read "#o12378")))
(:read-error (try (fn (err) (car err)) (read "#d1F")))
(:read-error (try (fn (err) (car err)) (read "#qwe")))
(:read-error (try (fn (err) (car err)) (read "\"\\z\"")))
(:read-error (try (fn (err) (car err)) (read "123kg")))
(:read-error (try (fn (err) (car err)) (read "123.123m")))
(:read-error (try (fn (err) (car err)) (read "123.123.123")))
;(:read-error (try (fn (err) (car err)) (read "#xF.F")))
;(:read-error (try (fn (err) (car err)) (read "#o7.7")))
;(:read-error (try (fn (err) (car err)) (read "#b1.1")))
(:read-error (try (fn (e) (car e)) (read "#inf")))
(:read-error (try car (read/single "9999999999999999999")))
(:read-error (try car (read/single "1000000000000000000")))
(999999999999999999 (read/single "999999999999999999"))
(100000000000000000 (read/single "100000000000000000"))
(:read-error (try car (read "(. b)")))
(:read-error (try car (read "(a .)")))
(:read-error (try car (read "(#;a . b)")))
(:read-error (try car (read "(a . #;b)")))
(:read-error (try car (read "(#;x #;y . z)")))
(:read-error (try car (read "(#; #;x #;y . z)")))
(:read-error (try car (read "(#; #;x . z)")))
(123 (def i-assaultmegablaster 123) i-assaultmegablaster)
(:dies-ist-ein-test-ob-lange-symbole-funktionieren :dies-ist-ein-test-ob-lange-symbole-funktionieren)
('(1) (read "#;(\"asd\") 1"))
('(1) (read "#;(asd) 1"))
('(1) (read "#;(asd (123)) 1"))
('(1 2) (read "1 #;(asd (123)) 2"))
('(1) (read "1 #;(asd (123))"))
(5 (eval (cons 'do (read "(+ 1 #;(* 2 3) 4)"))))
('(x z) (eval (cons 'do (read "(list 'x #;'y 'z)"))))
(12 (eval (cons 'do (read "(* 3 4 #;(+ 1 2))"))))
(16 (eval (cons 'do (read "(#;sqrt abs -16)"))))
('(a . c) (eval (cons 'do (read "'(a . #;b c)"))))
('(a . b) (eval (cons 'do (read "'(a . b #;c)"))))
