newlispfanclub.alh.net

Thank you @HPW. My description in the post made my query not clear. I just modified it. Would you please have look at it?

Source code and the newLISP executable can be linked together to build a self-contained application by using the -x command line flag. My script file(named "0.lsp" in Windows sys) contains the following code at the begining: (load "1.lsp") (load "2.lsp") So in this condition how to use "newlisp -x"...

Perfect explanation！ I learn a lot. Many thanks！

I want to run the dos command in win7 console by newlisp "exec" to clear secreen like this: but fails with a feedback ("\f").
Why? And how to deal with this?

PS: Alsodoes not work.

I think the following two examples say the same thing, but they give different results, why?

Example No. 1: Example No. 2:

@rickyboy Really really appreciate your works on my post and your valueable suggestions!!

Thank you so much for your help @rickboy!! I learned a lot from you. Based on your idea, I construct "myslice" as below: (define (myslice xs idx (len (if (< idx 0) (- idx) (- (length xs) idx)))) (if (or (>= idx (length xs)) (< idx (- (length xs)))) (if (list? xs) '() (string? xs) "") (begin (setq id...

I don't quite understand how the function slice works with negative "int-length" . The following example comes from the manual: (slice '(a b c d e f) 2 -2) → (c d) As explained in manual: If int-length is negative, slice will take the parameter as offset counting from the end and copy up to that off...

I have a table like this: (setq lst '(("header1" "header2" "header3") ( "11" "12" "13") ("21" "22" "23") ("31" "32" "33") ("41" "42" "43" ))) I want to get some continueous lines e.g. from the first line to the third line by this: (filter (and (>= $idx 1) (<= $idx 3)) lst) ;; '(( "11" "12" "13") ("2...

Many thanks all of you for these beautiful solutions!!

@fdb '(1 2) in my example means the position of elements in lst, not elements themselves. I think I give a poor example.

Here is a solution (probably not the only one, nor the best) : newLISP v.10.7.5 64-bit on Linux IPv4/6 UTF-8 libffi, options: newlisp -h > (select '(0 1 2 3 4) (difference (index true? '(0 1 2 3 4)) '(1 2))) (0 3 4) > ;; maybe clearer: > (let (lst '(0 1 2 3 4)) (select lst (difference (index true? ...

I have the following files in a directory: - newlisp.exe (newlisp v10.7.4(Win64-UTF8)) - main.lsp - 01-寻找当前目录下是否有所需文件.lsp In the main.lsp, the first line of code is: (load "01-寻找当前目录下是否有所需文件.lsp") When I run " newlisp main.lsp " in this directory of console, error message given: ERR: problem accessi...

The function "select" can be used to select multi-elements of a list at one time, for example: (select '(0 1 2 3 4) '(1 2)) ->(1 2) Yet what I want is to get all elements other than those "selceted", that is to say, I want to obtain (0 3 4) from above example. I tried with the function "filter" like...

cameyo wrote:

Code: Select all

(define (f converse-rate-list)
  (local (rate) (setq rate converse-rate-list))
)

I am almost sure that this is not what you are searching for... :-)
cameyo

I'd like to have a try this. Thank you.

@rickyboy What? Newlisp has a elisp style? It's a supprise!

To understand the meaning of function arguments, I give there arguments long names. However, it's so boring to use these long names in function body. I ttied like this: (define (f converse-rate-list (define rate converse-rate) ) body in which "rate" instead of converse-rate-list is use....) But it f...

@TedWalther
I'm very sorry. Now it does work and get the result I want.
I don't know why? Maybe I make some mistake?
newLISP-10.7.1 I use in Win7.
And many thanks for your prompt response!!

Here is my code:
I think the "if" expression should return a string ".csv", but I get nil.
Why is file-name-extension in the true part of the "if" expression not evaculated?