(loop [arm 0 src n]. 16. (if (zero? src). 17. arm. 18. (let [q (quot src 10). 19. r (rem src 10). 20. n-arm (+ arm (power r exp))]. 21. (recur n-arm q)))))).
確定! 回上一頁