紫苏炒黄瓜 发表于 2022-3-20 17:10:56

这有啥用？

(defun wuliao (a1 a2 / a1_s_n a2_s_n n_s n1 n2 zdgys)
        (setq n1 1)
        (while (/= (fix (* a1 n1)) (* a1 n1))
                (setq n1 (* n1 10))
        )
        (setq n2 1)
        (while (/= (fix (* a2 n2)) (* a2 n2))
                (setq n2 (* n2 10))
        )
        (if (> n1 n2)
                (setq n_s n1)
                (setq n_s n2)
        )
(setq zdgys
(gcd
(setq a1_s_n (fix (* a1 n_s)))
(setq a2_s_n (fix (* a2 n_s)))
)
)
        (list
                (/ a1_s_n zdgys)
                (/ a2_s_n zdgys)
        )
)

(wuliao 0.454 10.268)
返回 (227 5134)

比亚自提
我也不知道这有啥用。

伪书虫86 发表于 2022-3-20 22:55:27

wuliao=无聊？

muwind 发表于 2022-3-20 23:51:15

伪书虫86 发表于 2022-3-20 22:55
wuliao=无聊？

也许是物料 ^_^

mokson 发表于 2022-3-21 09:35:09

我只知道进行了四则数学运算。

xyp1964 发表于 2022-3-21 11:03:22

两个数的互质整数
(defun hzzs (a1 a2 / gys n1 n2 nm x); 两个数的互质整数
(setq        nm(apply 'max
                   (mapcar '(lambda (x)
                              (setq n1 1)
                              (while (/= (fix (* x n1)) (* x n1))
                                (setq n1 (* n1 10))
                              )
                              n1
                          )
                           (list a1 a2)
                   )
          )
        gys (gcd (setq n1 (fix (* a1 nm))) (setq n2 (fix (* a2 nm))))
)
(mapcar '(lambda (x) (/ x gys)) (list n1 n2))
)

紫苏炒黄瓜 发表于 2022-3-21 12:22:34

我也不清楚具体是什么功能，会用在哪里
就是听到这个需求，练练手。
页: [1]
查看完整版本: 这有啥用？