Text only | Text with Images

newLISP Fan Club

Forum => newLISP in the real world => Topic started by: kanen on August 04, 2016, 02:49:07 PM

Title: intersect bug?
Post by: kanen on August 04, 2016, 02:49:07 PM
Code Select
newLISP v.10.7.0 64-bit on Linux IPv4/6 UTF-8 libffi, options: newlisp -h

> (setf a '(4 5 3 6 7))
(4 5 3 6 7)
> (setf b '(3 1 2 0 5))
(3 1 2 0 5)
> (setf c '(4 0 1 2 5))
(4 0 1 2 5)
> (setf d '(0 1 2 0 5))
(0 1 2 0 5)
> (intersect a b c d)
(5 3)
Title: Re: intersect bug?
Post by: rrq on August 04, 2016, 04:30:09 PM
I'll bet you were thinking about that like (or similar to):
Code Select
(intersect (intersect a b) (intersect c d)) and not as
Code Select
(intersect a b true) which newlisp did :-)
Title: Re: intersect bug?
Post by: ssqq on August 05, 2016, 01:04:51 AM
Quote
intersect

syntax: (intersect list-A list-B)

syntax: (intersect list-A list-B bool)


If you want intersect more list:


Code Select

> (set '@lst '((1 2 3 4) (2 3 4 5) (3 4 5 6) (4 5 6 7)))
((1 2 3 4) (2 3 4 5) (3 4 5 6) (4 5 6 7))
> (map (curry apply intersect) (explode @lst 2))
((2 3 4) (4 5 6))
> (apply intersect (map (curry apply intersect) (explode @lst 2)))
(4)
Title: Re: intersect bug?
Post by: rickyboy on August 05, 2016, 05:08:59 AM
Quote from: "ssqq"If you want intersect more list:


Code Select

> (set '@lst '((1 2 3 4) (2 3 4 5) (3 4 5 6) (4 5 6 7)))
((1 2 3 4) (2 3 4 5) (3 4 5 6) (4 5 6 7))
> (map (curry apply intersect) (explode @lst 2))
((2 3 4) (4 5 6))
> (apply intersect (map (curry apply intersect) (explode @lst 2)))
(4)

Or more simply:


Code Select
> (set '@lst '((1 2 3 4) (2 3 4 5) (3 4 5 6) (4 5 6 7)))
((1 2 3 4) (2 3 4 5) (3 4 5 6) (4 5 6 7))
> (apply intersect @lst 2)
(4)
With kanen's example:


Code Select
> (setf a '(4 5 3 6 7))
(4 5 3 6 7)
> (setf b '(3 1 2 0 5))
(3 1 2 0 5)
> (setf c '(4 0 1 2 5))
(4 0 1 2 5)
> (setf d '(0 1 2 0 5))
(0 1 2 0 5)
> (apply intersect (list a b c d) 2)
(5)
Title: Re: intersect bug?
Post by: Lutz on August 05, 2016, 06:13:27 AM
The intersect function only takes 2 lists, but you could use apply with a reduce  2 parameter to work on more lists:


Code Select

> (setf a '(4 5 3 6 7))
(4 5 3 6 7)
> (setf b '(3 1 2 0 5))
(3 1 2 0 5)
> (setf c '(4 0 1 2 5))
(4 0 1 2 5)
> (setf d '(0 1 2 0 5))
(0 1 2 0 5)
>
> (apply intersect (list a b c d) 2)
(5)
> (setf a '(0 5 3 6 7))
(0 5 3 6 7)
> (apply intersect (list a b c d) 2)
(0 5)
> (setf a '(0 5 3 1 7))
(0 5 3 1 7)
> (apply intersect (list a b c d) 2)
(0 5 1)


Older LISPs have a function reduce to do the same. In newLISP that functionality is part of the apply function.



http://www.newlisp.org/downloads/newlisp_manual.html#intersect

http://www.newlisp.org/downloads/newlisp_manual.html#apply
Text only | Text with Images