这有啥用？

紫苏炒黄瓜

(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

wuliao=无聊？

muwind

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

也许是物料 ^_^

mokson

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

xyp1964

两个数的互质整数
(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))
)

紫苏炒黄瓜

我也不清楚具体是什么功能，会用在哪里
就是听到这个需求，练练手。