任何一个数都可以分解成多个质数的乘积，试试...

newer

任何一个数都可以分解成多个质数的乘积，用LISP能有多少种写法？

iLisp

用递归就头疼

/db_自贡黄明儒_

2. ;;http://bbs.xdcad.net/thread-676926-1-1.html
   
3. ;;借用ii_j的函数
   
4. (defun w1 (n / L LST)
   
5.   (setq lst (prime n))
   
6.   (foreach x lst
   
7.     (cond ((member (/ n (* x 1.0)) lst) (setq l (cons x l))))
   
8.   )
   
9.   l
   
10. )

;;http://bbs.xdcad.net/thread-676926-1-1.html<br /> ;;借用ii_j的函数<br /> (defun w1 (n / L LST)<br />   (setq lst (prime n))<br />   (foreach x lst<br />     (cond ((member (/ n (* x 1.0)) lst) (setq l (cons x l))))<br />   )<br />   l<br /> )