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



When I want to output in .txt format, output file can be very large. Is it possible to, for example, after 100 mb, creates a new output files also in .txt? Thanks a lot!

Hi.

If you want to split output of your script into chunks of fixed size, try
Where `gen.lisp' is your program, `-l10' each chunk is of 10 lines length, `-d' -- use numeric suffixes, `-' -- read from standard input, `name' -- prefix for created files. Read `man split' for details.

If you need more control over file names or something, try the following (almost equivalent) command
Read `man dd', `help for', `man printf' for details.

I apologize if I misunderstood your question.

Thanks a lot, you have helped me. 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

Hi.

The simplest aproach is to filter out unnecessary words:
'-i' stands for 'case-insensitive', '-v' means to invert match. So we remove words with either 'ZY' or 'YZ'.

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?

Could you actually post your questions in only one thread? It is hard to follow the discussion when you post everything twice. Thank you.

the other thread is here

Please post your thread in only one forum. Posting a single thread in the most relevant forum will make it easier for members to help you and will keep the discussion in one place. This thread is being closed because it is a duplicate.