Re: Loosing elements in a sorted list

2016-12-15 Thread Alexander Burger
Hi Bruno, > But that might be because with 'by, the operation is not destructive. This is correct. 'sort' is destructive, and 'by' is not, because it builds a fresh, private list. > Is this normal operation of picolisp? I assumed its not, because I didn't > catch any reference to it in the

Re: Discrepancies in lib/misc.l between picoLisp and miniPicoLisp

2016-12-15 Thread Alexander Burger
Hi Christophe, > Trying to port tests to miniPicoLisp I needed to copy some > definitions from lib/misc.l from pico to mini, and this is what I found: > > 1) Many definitions don't appear in pico. Is it intented ? If so, why ? Don't appear in *mini*, you mean? Well, yes, it is "mini" after all

Re: help extracting number from string

2016-12-15 Thread Joe Bogner
how about : (extract format (chop 'ab33Cd)) -> (3 3) or : (format (pack (extract format (chop 'ab33Cd -> 33 On Thu, Dec 15, 2016 at 4:16 PM, dean wrote: > I've seen num? and chop but think I need something in the middle to turn a > character to a number. > >

Re: help extracting number from string

2016-12-15 Thread Joh-Tob Schäg
If i understood it correctly he wants to get all groups of number. "35f79" -> (35 79) Am 16.12.2016 09:28 schrieb "Joe Bogner" : > how about > > : (extract format (chop 'ab33Cd)) > -> (3 3) > > or > > : (format (pack (extract format (chop 'ab33Cd > -> 33 > > > On Thu,

Re: help extracting number from string

2016-12-15 Thread Joe Bogner
This is probably better: : (extract format (split (mapcar format (chop "35fabc79")) NIL)) -> (35 79) On Thu, Dec 15, 2016 at 7:57 PM, Joe Bogner wrote: > OK, how about this this? > > : (mapcar format (extract pack (split (mapcar format (chop "35fabc79")) > NIL))) > ->

Re: help extracting number from string

2016-12-15 Thread Joe Bogner
OK, how about this this? : (mapcar format (extract pack (split (mapcar format (chop "35fabc79")) NIL))) -> (35 79) : (mapcar format (extract pack (split (mapcar format (chop "35f79")) NIL))) -> (35 79) On Thu, Dec 15, 2016 at 7:36 PM, Joh-Tob Schäg wrote: > If i

help extracting number from string

2016-12-15 Thread dean
I've seen num? and chop but think I need something in the middle to turn a character to a number. Having said that I seem to have got close by accident...i.e. I was going to try and bend this...but it found a single integer as it was :) : (pick '((Ch) (and (= Ch (uppc Ch)) Ch)) (chop 'ab33Cd))

Re: Discrepancies in lib/misc.l between picoLisp and miniPicoLisp

2016-12-15 Thread Christophe Gragnic
On Thu, Dec 15, 2016 at 2:22 PM, Alexander Burger wrote: > Hi Christophe, > >> Trying to port tests to miniPicoLisp I needed to copy some >> definitions from lib/misc.l from pico to mini, and this is what I found: >> >> 1) Many definitions don't appear in pico. Is it

Re: help extracting number from string

2016-12-15 Thread Joh-Tob Schäg
I am just telling you pick can not help you here. In this case just write a coroutine. You can handle different reading modes (numbers vs strings) in there easily. Am 16.12.2016 06:24 schrieb "dean" : > I've seen num? and chop but think I need something in the middle to

Re: Loosing elements in a sorted list

2016-12-15 Thread Alexander Burger
On Wed, Dec 14, 2016 at 10:01:27PM -0500, John Duncan wrote: > This is because A still points at the cons that was the head of the list > before sorting. If you want to update it, you have to set A to the result > of sort. Yes. The point is that 'sort' is a "destructive" operation. See the

Discrepancies in lib/misc.l between picoLisp and miniPicoLisp

2016-12-15 Thread Christophe Gragnic
Hi, Trying to port tests to miniPicoLisp I needed to copy some definitions from lib/misc.l from pico to mini, and this is what I found: 1) Many definitions don't appear in pico. Is it intented ? If so, why ? 2) Discrepancy in the $dat implementation: mini (format (pack (car S)))