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*))
-