Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Messages - ssqq

Pages 1 2 3 4 ... 6
#16
Anything else we might add? / -nan is not number
August 01, 2016, 01:56:39 AM
-nan (NaN) should not return true with number?


Code Select

> (set 'nan (sqrt -1))
> (number? nan)
true ;; should return nil


Also advise with inf. I think all NaN and Inf are "error status" that may not throw error immediatly.

So they isn't value.
#17
newLISP in the real world / How to avoid stack overflow
August 01, 2016, 01:08:52 AM
I don't know how resume stack space in newLISP.



If I use one function do too much thiings, then the stack of function may occur stack overflow?



If i reject the return value when call other function, then would avoid stack overflow?



If anyone could give me some advise?
#18
newLISP in the real world / How to add stack size when -x code to executable file
July 31, 2016, 06:03:44 AM
Code Select
ERR: call or result stack overflow in function set : term

When I see this error, I think the stack size is too small. How to enlarge it in default?
#19
So, what can you actually DO with newLISP? / Re: Good tools for tidy and lint newlisp code
July 30, 2016, 12:14:59 AM
When we use newlisp write code, the interpreter could not do anything for us. Because newLISP must be rapidly, more and more.



So, we could do something for to more stable code:



1. un-used symbol:


Code Select

(define (foo x y) (+ x 1))


below code, symbol 'y' have not used, It's may not any dangrous. but:


Code Select

(define (foo x) (+ x y))

If we use an un-declare symbol, may be occure some accident.



If we could not find below error, may enlarge error:


Code Select

(define (foo x) (set 'y 10) (+ x y))

Now, all function in current Context would see this symbol, if you use this symbol, the value

may not be control by you.



all of it could not be find by newLISP interpreter, but Lint.lsp could do it.



> newlisp lint.lsp target.lsp

or you could compiler it in first.

> lint target.lsp
#20
newLISP in the real world / dangrous true?
July 27, 2016, 05:32:01 AM
if you use true? as checking function for list, be attention to: blank list -> '(), would not match it.


Code Select


> (true? '())
nil



If you often use it, advise you use :


Code Select

> (define (bool x) (if (nil? x) nil true))
> (for-all bool '(1 2 3 4 () 6))
#21
Anything else we might add? / Re: primitive function empty? could not accept array
July 24, 2016, 03:15:22 AM
in newLISP, no "true" hash, is just assoc-list. I just want simulate Hash, Array use newlisp.



Just like no Hash, List and symbol in C, but Lautz could write newLISP use C.



I write Spp language implement with newLISP, it have Array, Hash, List, Rule:


Code Select
> (my @array [])
[]
> (@array << :a)
[:a]
> (my %hash {1 : 2, 3 : 4})
{1 ; 2, 3 : 4}
> (%hash 1)
2
> (my @lst :(1 2 3))
(1 2 3)
#22
So, what can you actually DO with newLISP? / Good tools for tidy and lint newlisp code
July 24, 2016, 12:52:16 AM
I re-design these two tools now:



tidy newlisp:

could find loss ")" or more ")". while, letn, dotimes all indent two space.



https://github.com/songzan/newlisp-spp/blob/master/tools/lint.lsp">https://github.com/songzan/newlisp-spp/ ... s/lint.lsp">https://github.com/songzan/newlisp-spp/blob/master/tools/lint.lsp



usage: > newlisp tidy.lsp target.lsp



lint nelisp:

could check un-declare symbol and un-used symbol.



https://github.com/songzan/newlisp-spp/blob/master/toos/lint.lsp">https://github.com/songzan/newlisp-spp/ ... s/lint.lsp">https://github.com/songzan/newlisp-spp/blob/master/toos/lint.lsp



usage: newlisp lint.lsp target.lsp



or you could puts them in your bin path:


Code Select

newlisp -x lint.lsp lint
chmod 755 lint
sudo mv lint /usr/bin/lint
newlisp -x tidy.lsp tidy
chmod 755 tidy
sudo mv tidy /usr/bin/tidy
#23
So, what can you actually DO with newLISP? / Re: concurrent design for check
July 24, 2016, 12:44:00 AM
I design a function model to implement "return" from any depth block.



in general, when call (return sth) in function, current function namespace would find a return value have been ready.



when return expression is in deep block, return message would be receive by main process after serval value pass.



If I use concurrent, send a message to main process, then is simply.



But send message directly to main process would destroy block stack management, if return expression is at last expression of function, restore some management variable is too waste time.



So i think, order compute is better than concurent compute in this function module.
#24
So, what can you actually DO with newLISP? / concurrent design for check
July 23, 2016, 07:44:21 AM
I want check a variable value till another process send it to it, then do other thing. How to design it?


Code Select


(while (check-var-is-true) (do-some-thing))
#25
Anything else we might add? / Re: primitive function empty? could not accept array
July 22, 2016, 08:52:41 PM
I need make array, hash, list use newLISP. SO i do like follows:
Code Select

(define (is-blank-array x) (= x '()))

(define (is-list x) (list? x) (and (= (first x) "list") (list? (last x))))

(define (is-blank-hash x) (= x '(())))

(define (is-hash @x)
  (and (list? @x) (for-all is-pair @x)))

(define (is-pair @x)
  (and (list? @x) (= 2 (length @x)) (is-key (@x 0))))

(define (is-key @x) (or (string? @x) (number? @x)))
#26
Anything else we might add? / Re: array became list in silent
July 22, 2016, 08:43:11 PM
concat two element, invoid array became list in silent
Code Select

(define (concat) (apply _concat (args)))
(define (_concat @x @y)
  (cond
    ((atom? @x)
     (cond
       ((atom? @y) (cons @x @y))
       ((array? @y) (cons @x @y))
       ((list? @y) (push @y (list @x) -1))
       (true (error "error concat data"))))
    ((array? @x)
     (cond
       ((atom? @y) (cons @x @y))
       ((array? @y) (cons @x @y))
       ((list? @y) (push @x (list @y)))
       (true (error "error concat data"))))
    ((list? @x)
     (cond
       ((atom? @y) (cons @x @y))
       ((array? @y) (cons @x @y))
       ((list? @y) (list @x @y))
       (true (error "error concat data"))))
    (true (error "error concat data"))))
#27
Anything else we might add? / Re: primitive function empty? could not accept array
July 20, 2016, 09:40:04 PM
I think array should have empty array, Just like other language.



I think "Not empty array" is a design error.
#28
Anything else we might add? / array became list in silent
July 16, 2016, 04:22:46 AM
When I add a array to list, then index it, it would became list in silent.


Code Select

newLISP v.10.7.0 32-bit on Windows IPv4/6 libffi, options: newlisp -h

> (array? ((list 1 (array 3 '(1 2 3)) 3) 1))    
nil
> (list? ((list 1 (array 3 '(1 2 3)) 3) 1))    
true


I think array as value, when transfer to expression, it should be in definitely.



When I add a list to array, then index it, it also is list
Code Select

> (list? ((array 3 '(1 (2 3) 4)) 1))
true
#29
Anything else we might add? / primitive function empty? could not accept array
July 16, 2016, 03:21:41 AM
Code Select

> (empty? (array 2 '(1 2)))
ERR: list or string expected : (1 2)


I think any check function could accept any type of data.
#30
Anything else we might add? / Re: How to make destructive function
July 16, 2016, 03:19:00 AM
thanks, I think macro may be ok!
Pages 1 2 3 4 ... 6