diff options
| author | Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com> | 2020-05-08 20:20:19 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-05-08 20:20:19 +0800 |
| commit | 056dc1dcf18f3c417cce9d6cdf7cbfede9f2da26 (patch) | |
| tree | 1ec153d81ba3d86aadac084fbd451f6d6110f6f0 /challenge-059 | |
| parent | fe5f04e11db88e9cc57d20d5827396252efc0577 (diff) | |
| download | perlweeklychallenge-club-056dc1dcf18f3c417cce9d6cdf7cbfede9f2da26.tar.gz perlweeklychallenge-club-056dc1dcf18f3c417cce9d6cdf7cbfede9f2da26.tar.bz2 perlweeklychallenge-club-056dc1dcf18f3c417cce9d6cdf7cbfede9f2da26.zip | |
Delete ch-1.cl
Diffstat (limited to 'challenge-059')
| -rw-r--r-- | challenge-059/cheok-yin-fung/lisp/ch-1.cl | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/challenge-059/cheok-yin-fung/lisp/ch-1.cl b/challenge-059/cheok-yin-fung/lisp/ch-1.cl deleted file mode 100644 index e78c8e53c1..0000000000 --- a/challenge-059/cheok-yin-fung/lisp/ch-1.cl +++ /dev/null @@ -1,29 +0,0 @@ -;(setf *line* '(1 4 3 2 5 2)) -;(setf *K* 3) -(setf *line* '(5 6 3 2 7 9)) -(setf *K* 6) - -(setf *small* nil) -(setf *large* nil) - -(defun newas (R) - (append *small* (cons R nil)) -) - -(defun newal (R) - (append *large* (cons R nil)) -) - -(defun biway (R) - (if (> *K* R) - (setf *small* (newas R )) - (setf *large* (newal R )) - ) -) - -(loop for R in *line* - do (biway R) -) - -(print (append *small* *large*)) - |