From 056dc1dcf18f3c417cce9d6cdf7cbfede9f2da26 Mon Sep 17 00:00:00 2001
From: Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com>
Date: Fri, 8 May 2020 20:20:19 +0800
Subject: Delete ch-1.cl

---
 challenge-059/cheok-yin-fung/lisp/ch-1.cl | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 challenge-059/cheok-yin-fung/lisp/ch-1.cl

(limited to 'challenge-059')

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