diff options
| author | Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com> | 2020-07-26 18:22:44 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-07-26 18:22:44 +0800 |
| commit | 0801107ed8666794d35b3cb23f72bdfdad6d0120 (patch) | |
| tree | 0d97d87f0bc2cdbe81a08dc9bf3c1e551e2d3b6f /challenge-070 | |
| parent | 3fca1475f6afffcb7cdddaec7dbdc2ea0b521b67 (diff) | |
| download | perlweeklychallenge-club-0801107ed8666794d35b3cb23f72bdfdad6d0120.tar.gz perlweeklychallenge-club-0801107ed8666794d35b3cb23f72bdfdad6d0120.tar.bz2 perlweeklychallenge-club-0801107ed8666794d35b3cb23f72bdfdad6d0120.zip | |
Update and rename ch-2.lsp to challenge-070/cheok-yin-fung/common-lisp/ch-2.lsp
Diffstat (limited to 'challenge-070')
| -rw-r--r-- | challenge-070/cheok-yin-fung/common-lisp/ch-2.lsp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-070/cheok-yin-fung/common-lisp/ch-2.lsp b/challenge-070/cheok-yin-fung/common-lisp/ch-2.lsp new file mode 100644 index 0000000000..34828f265f --- /dev/null +++ b/challenge-070/cheok-yin-fung/common-lisp/ch-2.lsp @@ -0,0 +1,17 @@ +;; Perl Weekly Challenge 070 Task 2 Gray Code Sequence + +(setf n 4) +(setf a '(0 1)) +(setf m (- n 1)) + +(loop for i from 1 upto m do + (setf 2power (expt 2 i)) + (defun add2pow (terms) (+ 2power terms)) + (setf b (reverse a)) + (setf b (mapcar #'add2pow b)) + (setf a (append a b)) +) + +;; now the variable a stores the n-bit gray code sequence + +a |