diff options
| author | Myoungjin JEON <jeongoon@gmail.com> | 2020-11-08 17:18:05 +1100 |
|---|---|---|
| committer | Myoungjin JEON <jeongoon@gmail.com> | 2020-11-08 17:18:05 +1100 |
| commit | 6d5e19b49f0b99b704b519230430fa2306dcad7d (patch) | |
| tree | e1a9606d6a316aa8f82f9729f06136f6919b40c3 /challenge-085 | |
| parent | ceb64190ab10f13b85b2b8d6796a381e86b24a8e (diff) | |
| download | perlweeklychallenge-club-6d5e19b49f0b99b704b519230430fa2306dcad7d.tar.gz perlweeklychallenge-club-6d5e19b49f0b99b704b519230430fa2306dcad7d.tar.bz2 perlweeklychallenge-club-6d5e19b49f0b99b704b519230430fa2306dcad7d.zip | |
[ch-085/jeongoon] ch-2.lsp: removed unnececsary code
Diffstat (limited to 'challenge-085')
| -rw-r--r-- | challenge-085/jeongoon/common-lisp/ch-2.lsp | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/challenge-085/jeongoon/common-lisp/ch-2.lsp b/challenge-085/jeongoon/common-lisp/ch-2.lsp index 5dc88c91d5..6803b2e1af 100644 --- a/challenge-085/jeongoon/common-lisp/ch-2.lsp +++ b/challenge-085/jeongoon/common-lisp/ch-2.lsp @@ -24,10 +24,11 @@ (defvar *max-power-factor* (isqrt *target*)) (loop for a from *max-power-factor* above 1 - do(loop for b from (floor (log *target* a)) above 1 - do(let ((c (expt a b))) - (when (= c *target*) - (format t "1 as ~d^~d = ~d~%" a b *target*) - (quit))))) + do(let* ((b (floor (log *target* a))) + (c (expt a b))) + (when (= c *target*) ;; problem with log precision + ;; need to check directly. + (format t "1 as ~d^~d = ~d~%" a b *target*) + (quit)))) (format t "0") |