can you help me about this???


#!/usr/bin/clisp

(defparameter *character-set* "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
;(defparameter *character-set* "ABC") ; < --- this line is for testing

(defparameter *word-length* 10)
;(defparameter *word-length* 4) ; < --- this line is for testing

(defparameter *character-list*
(coerce *character-set* 'list))

(defun final-char (in-string)
(cond
((> (length in-string) 0)
(elt in-string (1- (length in-string))))
(t
nil)))

(defun new-char-list (in-string)
(let ((result))
(mapcar
(lambda (candidate)
(cond
((not (eql candidate (final-char in-string)))
(push candidate result))))
*character-list*)
(nreverse result))
)

(defun extend-string (in-string desired-length)
(mapcar
(lambda (new-char)
(let ((new-string (concatenate 'string in-string (string new-char))))
(cond
((> (length new-string) desired-length))
((>= (length new-string) desired-length)
(format t "~a~%" new-string))
(t
(extend-string new-string desired-length)))))
(new-char-list in-string)))

(extend-string "" *word-length*)



Is it possible that the program above, changes to: two characters that I wish can't be to each other in word.. example : I don't want that z and y be a neighbors:

abczyab unacceptable
abyzaba unacceptable
abyazab acceptable

you can pipe it to grep

When I run 2 codes at the same time (./gen.lisp | split -l100000 -d - list &);(./gen.lisp | grep -iv 'zy\|yz' &)
I don't get what I want. I get only the words starting at z and y. Is there a way to start the two codes simultaneously and work well?

Why do you run the script twice? I don't understand what you want to accomplish. Maybe something like

will run the script, remove all lines that contain zy or yz and splits the output into 100MB files

Thanks a lot. You realy help me. I'm not good at programming. That's why I runed the script 2 times...