newlispfanclub.alh.net

cameyo

Maybe this:

(setq a '(((+ 6 2) (a) 2) ((- 2 5) (b) 5)))
;-> (((+ 6 2) (a) 2) ((- 2 5) (b) 5))
(dolist (el a)
 (setf (first (a $idx)) (eval (first el)))
)
a
;-> ((8 (a) 2) (-3 (b) 5))

cameyo

Try this:

Code: Select all

(map (fn (x) (eval (first x))) mytable)
;-> (97 98)

cameyo

Hi fdb,
I have installed VS Code and your extension in a new PC.
'Alt+L' and 'Alt+Z' don't work in my system.
I'll try it on Mac this weekend.
Thanks for your work
cameyo

cameyo

I have tried the extension on windows. The syntax highlighting is nice. The command 'alt+z' and 'alt+l' don't work on my system. The errors are: "Command 'newlisp.eval' not found" and "Command 'newlisp.evalFile' not found" (see image: https://imgur.com/a/w3QBMws ) To eval newlisp statements i do the...

cameyo

Some proofs:
https://www.quora.com/How-would-I-prove ... s-modulo-9

cameyo

After starting a new newLISP REPL...all works ok :-)
It is not the first time that I get strange results after using the debugger.
I'd like to have a command/method to test the integrity/correctness of current REPL session.
cameyo

cameyo

Code: Select all

(setq lst '((2 4) (3 1)))

(= (lst 0 0) (lst 0 0))
;-> true

(!= (lst 0 0) (lst 0 0))
;-> (nil nil)

(= (lst 0 0) (lst 1 0))
;-> (nil nil)

(= (first (first lst)) (last (first lst)))
;-> (nil nil)

I was expecting nil, instead i got (nil nil).
Where am I doing wrong?
Thanks.

cameyo

Yes, rickyboy. A very elegant solution.
Thanks for the italian translation :-)

cameyo

Given a number n, find the sum of its digits until sum becomes single digit.

Code: Select all

Example: n = 7865 = 7 + 8 + 6 + 5 = 26 ==> 2 + 6 = 8

Code: Select all

(define (digitSum n)
  (if (zero? n) 0
    (if (zero? (% n 9)) 9
      (% n 9))))

(digitSum 236753647864)
;-> 7

cameyo

Hi fdb,
with notepad++ i never write text on REPL.
Left Shift + Enter -> Evaluate current line
Rigth Shift + Enter -> Evaluate current selection
Alt + F1 Open local newlisp help for selected keyword.
cameyo

cameyo

Thanks fdb!!!
I use notepad++, but i'd like to use VSCode on mac :-)
I'll try it as soon as possible.
It's possible to execute the current line on newLISP REPL?
It's possible to execute the active selection on newLISP REPL?
Thanks again.
cameyo

cameyo

Hi rickyboy and ralph.ronnquist,
you're very friendly and competent.
And yes, newLISP is fun.
Have a nice day.
cameyo

cameyo

Hi rickyboy,
the sublist must contains only contiguous elements.
But your functions are useful anyway :-)

cameyo

I need more time to understand all this...

cameyo

Maximum Product Sublist Given a list that contains both positive and negative integers, find the product of the maximum product sublist. (define (maxProd lst) (local (n maxprod pos neg) (setq n (length lst)) (setq pos (array n '(0))) (setq neg (array n '(0))) (setq (pos 0) (lst 0)) ; pos[i] contains...

cameyo

Thanks to all. I have learned a lot.

cameyo

damn :-)

cameyo

I use this function to group the elements of a list: (define (take n lst) (slice lst 0 n)) (define (drop n lst) (slice lst n)) (define (group-by-num n lst) (if (null? lst) '() (cons (take n lst) (group-by-num n (drop n lst))) ) ) (setq lst '(0 1 2 3 4 5 6 7 8 9)) (group-by-num 2 lst) ;-> ((0 1) (2 3...

cameyo

Wow!!!
Thanks fdb

cameyo

The magic of "map" :-)

cameyo

I use the following function to calculate the maximum nesting deep of a list: (define (nesting lst) (cond ((null? lst) 0) ((atom? lst) 0) (true (max (+ 1 (nesting (first lst))) (nesting (rest lst)))) ) ) (nesting '(a (((b c (d)))) (e) ((f)) g)) ;-> 5 Is there a better/faster way to do this? Thanks.

cameyo

Grazie mille
Thank you so much

cameyo

Appunti sul linguaggio newLISP
00) Indice
01) newLISP in generale
02) Funzioni varie (44)
03) newLISP 99 problemi (28)
04) Rosetta code (26)
05) Project eulero (50)
06) Problemi vari (53)
07) Domande per assunzione di programmatori (28)
08) Librerie (4)
09) Appendici

cameyo

Thanks Lutz.
newLISP anywhere :-)

cameyo

Thanks Lutz.

Code: Select all

> (setq a 1)
;-> 1
> (context 'A1)
;-> A1
A1> (symbols)
;-> ()
A1> a
;-> nil
A1> (symbols)
;-> (a)

newlispfanclub.alh.net

Search found 183 matches

Re: How to partially evaluate elements in a hash-table

Re: How to partially evaluate elements in a hash-table

Re: newLISP language support for Visual Studio Code

Re: newLISP language support for Visual Studio Code

Re: Sum of digits

Re: Equal and Not Equal

Equal and Not Equal

Re: Sum of digits

Sum of digits

Re: newLISP language support for Visual Studio Code

Re: newLISP language support for Visual Studio Code

Re: Maximum Product Sublist

Re: Maximum Product Sublist

Re: Group the elements of a list

Maximum Product Sublist

Re: Group the elements of a list

Re: Group the elements of a list

Group the elements of a list

Re: Nesting level of a list

Re: Nesting level of a list

Nesting level of a list

Re: Stable Release newLISP v.10.7.5

Re: Italian notes on newlisp

Re: newLISP in a browser - new version

Re: Contexts and global variables