whosa 发表于 2022-7-5 17:51:16

 
我试图编辑这个Lisp程序，以获得像12.34米的结果，但没有工作。
 
我修改了这个字符串
 
(setq d (rtos (/ (abs (apply '- (mapcar 'last (mapcar '(lambda (x) (trans x 1 0)) p)))) 1000.) 2 2 )

whosa 发表于 2022-7-5 17:58:20

固定的
 
(setq d (rtos (abs (/ (apply '- (mapcar 'last (mapcar '(lambda (x) (trans x 1 0)) p))) 1000.)) 2 2))
                                        )
页: 1 [2]
查看完整版本: buble上的高度