diff options
| author | Andrew Shitov <andy@shitov.ru> | 2020-12-04 16:56:32 +0100 |
|---|---|---|
| committer | Andrew Shitov <andy@shitov.ru> | 2020-12-04 16:56:32 +0100 |
| commit | 78eed9e7149ff1d126fc5cb1bd59e3961c1ff5a2 (patch) | |
| tree | 55f4ad25f509f7126eaf2d3ea690fced2df50679 /challenge-089/ash/lisp | |
| parent | a2a75dcba0a606d0b251959490c8d701de91c972 (diff) | |
| download | perlweeklychallenge-club-78eed9e7149ff1d126fc5cb1bd59e3961c1ff5a2.tar.gz perlweeklychallenge-club-78eed9e7149ff1d126fc5cb1bd59e3961c1ff5a2.tar.bz2 perlweeklychallenge-club-78eed9e7149ff1d126fc5cb1bd59e3961c1ff5a2.zip | |
Blog post
Diffstat (limited to 'challenge-089/ash/lisp')
| -rw-r--r-- | challenge-089/ash/lisp/ch-1.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-089/ash/lisp/ch-1.lisp b/challenge-089/ash/lisp/ch-1.lisp index 4bcdcceb36..ffa62769dd 100644 --- a/challenge-089/ash/lisp/ch-1.lisp +++ b/challenge-089/ash/lisp/ch-1.lisp @@ -10,7 +10,7 @@ (loop for x from 1 to n do ( loop for y from (+ 1 x) to n - do (setq s (+ s (gcd x y))) + do (setq s (+ s (gcd x y))) ) ) |