📄 fixnum-tests.scm
字号:
(define (fxo+ x y) (##core#inline "C_i_o_fixnum_plus" x y))(define (fxo- x y) (##core#inline "C_i_o_fixnum_difference" x y))(assert (= 4 (fxo+ 2 2)))(assert (= -26 (fxo+ 74 -100)))(assert (= 1073741823 (fxo+ #x3ffffffe 1)))(assert (not (fxo+ #x3fffffff 1)))(assert (= 4 (fxo- 6 2)))(assert (= -4 (fxo- 1000 1004)))(assert (= 2004 (fxo- 1000 -1004)))(assert (= -1073741824 (fxo- (- #x3fffffff) 1)))(assert (not (fxo- (- #x3fffffff) 2)))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -