buble上的高度

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))
                                        )

[编程交流] buble上的高度