Re: solving for pilog variables

(prove (goal '( (^ @X (- (-> @A) (-> @B) )) (equal @A 4) (equal @B 2) ))) -> NIL -> wasn't the "one" in this case On 27 November 2016 at 17:34, dean <deangwillia...@gmail.com> wrote: > Oopslet me try this > > (-> @X) in place of @X in the lisp c

Re: iterate over list until you find a match

Alex Thank you very much for this. Best Regards Dean On 23 November 2016 at 21:00, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > > I'm just wondering what my options are re doing this > > > > (de mmbr (Trgt L) > >(for Ele L > >

iterate over list until you find a match

I'm just wondering what my options are re doing this (de mmbr (Trgt L) (for Ele L (if (== Ele Trgt) (println "found so exit with true") (println "try next") ) ) (prinl "list exhausted so return false") ) (mmbr 'B '(A B C)) I only know how to

Re: iterate over list until you find a match

Alex, Cristophe I can see I've got quite a bit to learn. Thank you for drawing my attention to the way FOR and Lisp work. I wasn't expecting that at all but it looks very elegant. Thank you also for the extra examples. They do help. Best Regards Dean On 24 November 2016 at 15:35, Christophe

Re: solving for pilog variables

Ok I'll keep trying and thank you for the pointers. Best Regardsd Dean On 27 November 2016 at 07:33, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > > #(prove (goal '(equal 3 @X) )) > > 'goal' needs a list of clauses: > >: (prove (goal '((e

help with val

from ref.html "The CDR of a symbol cell is also called VAL, and the CAR points to the symbol's tail. " but val seems to equate to car from my tests so I'm confused : (set 'x 3) -> 3 : (car 'x) -> 3 : (val 'x) -> 3 : (cdr 'x) !? (cdr 'x) x -- List expected

Re: Pilog (Was: Subscribe)

Thank you very much Alex. On 15 November 2016 at 06:27, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > > /* > > I'm wondering where to cut the cake between prolog and pico/pilog > > and thought I'd post a quick example to illustrate i.e. > .. &

solving for pilog variables

I'm quite shaky on this so started with a simple example and added stuff. Unfortunately, I've come off the rails somewhere but am not sure wjy or what to do about it. Any advice...much appreciated. #(prove (goal '(equal 3 @X) )) #: (prove (goal '( (equal 3 @X) (member @X (1 2 4)) )))

Why print statement should determine whether I get an error or not

) statement and wonder if there are some very simple rules of thumb. Thank you in anticipation and best regards Dean (setq Lmnu '(mAin_mnu-some_fn (Settings Epic-set_epic Yr-set_yr Stmnt-set_stmnt Pg-set_pg ) (Pdfs All

Re: newbie trouble with bracketing

yes {} == scoping to me. Best Regards Dean On 9 December 2016 at 23:27, <andr...@itship.ch> wrote: > Hi dean > > No worries, no need to be sorry, we like to help :-) > Here a more lengthy and maybe easier explanation, though not simpler... > Feedback appreciated. > >

Re: newbie trouble with bracketing

ist. Best Regards Dean On 9 December 2016 at 21:07, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > On Fri, Dec 09, 2016 at 08:21:54PM +, dean wrote: > > #{ > > " is atom -- undefined if I wrap,,, prinl Ele " is atom" > > in

Re: newbie trouble with bracketing

Oops my mistake Nil's a typo in this cut-down "for the forum" post...it is NIL in the real thing. Irrespective..thank you for your better version. I also used if (atom Ele) but want to get familiar with the structures. Dean On 9 December 2016 at 21:59, dean <deangwillia...@gmail.com&

Re: newbie trouble with bracketing

they are helpful. I'm very grateful to both of you...Thank you and have a good rest of the weekend. Best Regards Dean On 10 December 2016 at 15:43, Christophe Gragnic < christophegrag...@gmail.com> wrote: > On Sat, Dec 10, 2016 at 10:48 AM, dean <deangwillia...@gmail.com> wrote: > &g

misunderstanding executing data as code

I dropped into the REPL and played until I got (some_fn) returned i.e. by (str (glue "" Fn)) i.e. -> (some_fn) I thought putting this in my program would call some_fn but it doesn't and I don't understand why. Thank you in anticipation Dean (setq Lmnu '(mAin_mnu-some_fn)) (de so

Re: misunderstanding executing data as code

or your solution. Alex Thank you for your solution and in the future I'll try to narrow my code and pp my functions. Best Regards Dean On 11 December 2016 at 07:52, Joh-Tob Schäg <johtob...@gmail.com> wrote: > You can produce a readable version of a function by (pp 'function) >

Re: help with list of capital letters as symbol property key

Thank you for the clarification. On 12 December 2016 at 06:19, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > > On 11 December 2016 at 20:06, Alexander Burger <a...@software-lab.de> > wrote: > > > > > On Sun, Dec 11, 2016 at 07:05:13

help extracting number from string

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: help with list of capital letters as symbol property key

Ok...I'm going to just going to use a list of lists for the index and a list of values i.e. two separate variables. On 12 December 2016 at 15:37, dean <deangwillia...@gmail.com> wrote: > Having thought about this I was intending to use the SAME list variable to > represent multiple p

Re: help with list of capital letters as symbol property key

This seems to work fine... (setq I '(() (a) (a b))) (setq V '(empty a_vlu ab_vlu)) (de vlu4key (Vlu 'I 'V) (setq Ix (index Vlu I)) (get V Ix) ) ? (setq K '(a)) -> (a) ? (vlu4key K I V) -> a_vlu ? (setq K '(a b)) -> (a b) ? (vlu4key K I V) -> ab_vlu On 13 December 2016 at

Re: help with list of capital letters as symbol property key

Vlu above misleads a bit because it represents Key...or K below (setq I '(() (a) (a b))) (setq V '(empty a_vlu ab_vlu)) (de vlu4key (K 'I 'V) (get V (index K I))) On 13 December 2016 at 11:35, dean <deangwillia...@gmail.com> wrote: > This seems to work fine... > (setq I '

Re: help with list of capital letters as symbol property key

Hi Alex I changed those 'Key 'Keys and 'Fn_to_call shortly after posting. There'll also be a 3rd list call 'Args. Because there are numerous associated bits and pieces they seem a good candidate for an object. Thank you for "pick" and the above corrections. Best Regards Dean On 13 Dec

Re: help with list of capital letters as symbol property key

Great!thank you very much indeed! Best Regards Dean On 14 December 2016 at 08:03, Alexander Burger <a...@software-lab.de> wrote: > On Wed, Dec 14, 2016 at 07:18:42AM +0000, dean wrote: > > : (setq LstA (chop 'dOg)) > > -> ("d" "O" "g&quo

Re: help with list of capital letters as symbol property key

Ok thank you for that On 16 December 2016 at 21:02, Joh-Tob Schäg wrote: > Maybe can hepl you with that it inserts 15 numbers with different keys and > prints the result after each insert or at least it should. Could not try it

Re: help with list of capital letters as symbol property key

the first few insertions in the example result in this structure (d (2 NIL 17 NIL A) (a b c)) # 'd' already existed and wonder a) if idx is a possible way of doing association lists and b) irrespective of the answer how the above tree comes from the insertions. Sorry if it's obvious and

Re: best way to create global list variable/symbol

uot;) > (c "readcar") #-> 1 > > I would really recommend you using objects though even though they are > basically the same under the hood. > Does that answer our question? > > > 2016-12-17 22:01 GMT+01:00 Alexander Burger <a...@software-lab.de>: > >

best way to create global list variable/symbol

#{Is it possible to change a list AND keep it's name the same at different program levels}# (setq L '(a)) (de doit_temp (L) (prog (setq L (append L '(b))) (prinl "inside of fn L is " L)) ) (de doit_perm (L) (setq NewL (append L '(b (doit_temp L) (prinl "outside of fn L is " L) (doit_perm L)

Re: help with list of capital letters as symbol property key

ke pointer equivalence rules this approach out and I'm just wondering if there is a way around this... Any thoughts much appreciated Best Regards Dean On 12 December 2016 at 08:51, dean <deangwillia...@gmail.com> wrote: > Thank you for the clarification. > > On 12 December 2016 a

Re: help with list of capital letters as symbol property key

Hi Alex Thank you very much for explaining that. Best Regards Dean On 11 December 2016 at 20:06, Alexander Burger <a...@software-lab.de> wrote: > On Sun, Dec 11, 2016 at 07:05:13PM +0000, dean wrote: > > In the tutorial '(X Y Z) in a get statement seemed to refer to several >

help with list of capital letters as symbol property key

In the tutorial '(X Y Z) in a get statement seemed to refer to several keys but I'd like a list of letters to be a single key. Is this not possible? (setq X "") (put 'X '(D E) 'some_value) : (get 'X '(D E)) -> NIL

newbie trouble with bracketing

#{ " is atom -- undefined if I wrap,,, prinl Ele " is atom" in yet another set of brackets i.e. it's already inside 4 sets of brackets inside the function lmnu_to_mnu_tbl(). The only reason I did the last enclosing brackets was that I wanted to add some additional statements after the

Re: differentiate between pg_up vs pg_down keys and delete vs

Thank you very much indeed for this On 13 January 2017 at 11:02, Danilo Kordic wrote: > Or simply: > $ pil > : [raw] > -> NIL > : [sys 'TERM] > -> "xterm" > : [setq PgDn "^[[6~" PgUp "^[[5~"] > -- > UNSUBSCRIBE:

Fwd: automatically generating test data

-- Forwarded message -- From: dean <deangwillia...@gmail.com> Date: 6 January 2017 at 08:50 Subject: automatically generating test data To: picolisp@software-lab.de Is this the best way of automatically generating a list of ("" "" etc. (de m

Fwd: differentiate between pg_up vs pg_down keys and delete vs

-- Forwarded message -- From: dean <deangwillia...@gmail.com> Date: 5 January 2017 at 15:55 Subject: differentiate between pg_up vs pg_down keys and delete vs backspace keys To: picolisp@software-lab.de So far I've been doing (setq Key_you_want ) and this has worke

Fwd: trapping key in case statement

-- Forwarded message -- From: dean <deangwillia...@gmail.com> Date: 5 January 2017 at 22:15 Subject: trapping key in case statement To: picolisp@software-lab.de I can match the (key) value of backspace to BS using 'if' but am not sure how to using 'case' (setq BS "^?&

Re: how to specify *.txt as an argument to ls

It's all running flawlessly. On 15 January 2017 at 10:11, dean <deangwillia...@gmail.com> wrote: > I seethank you very much for explaining that. > > > On 15 January 2017 at 09:49, Alexander Burger <a...@software-lab.de> wrote: > >> On Sat, Jan 14, 201

Re: how to specify *.txt as an argument to ls

I seethank you very much for explaining that. On 15 January 2017 at 09:49, Alexander Burger <a...@software-lab.de> wrote: > On Sat, Jan 14, 2017 at 10:12:35PM +0000, dean wrote: > > '`(chop "@.PDF") > > BTW what's the difference between the two leading ti

Re: differentiate between pg_up vs pg_down keys and delete vs

Mike Thank you for your postThe link says 404 dead page or something similar Best Regards Dean On 12 January 2017 at 17:37, dean <deangwillia...@gmail.com> wrote: > Hi Alex > I seeI seemed to get "^[" returned by -> but then got the PL prompt > ":"

Re: Fwd: automatically generating test data

Hi Alex I'm really pleased I asked. Thank you for putting me straight. Best Regards Dean On 12 January 2017 at 16:28, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > > Is this the best way of automatically generating a list of ("" "bbb

Re: Fwd: trapping key in case statement

Hi Alex Thank you very much for the explanation. Best Regards Dean On 12 January 2017 at 15:58, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > > I can match the (key) value of backspace to BS using 'if' but am not sure > > how to using 'case' > &g

Re: shorter way of assigning list elements to multiple symbols?

Hi Alex >(let ((A B C) (foo)) I am using pil64 so...That's great...Thank you very much indeed Best Regards Dean On 18 December 2016 at 21:05, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > > I'm sure I can only return multiple values from a function as a l

shorter way of assigning list elements to multiple symbols?

I'm sure I can only return multiple values from a function as a list. I can assign those values to multiple symbols in the calling function like this... (setq L (1 100 1000)) (setq A (get L 1) B (get L 2) C (get L 3)) but wonder if there's a shorter way. Thank you in anticipation. Dean

Re: best way to create global list variable/symbol

nce with picolisp. Best Regards Dean On 18 December 2016 at 07:05, Alexander Burger <a...@software-lab.de> wrote: > On Sat, Dec 17, 2016 at 11:51:04PM +0100, Joh-Tob Schäg wrote: > > There is no (efficient) way to find the symbol (1 2 3) is bound to. So > > would you have to know

Re: why does my thread appear to have been started by Willie Arnold who

me append it as > answer to your question to prevent others from waisting there time > responding... > > 2016-12-22 22:28 GMT+01:00 dean <deangwillia...@gmail.com>: > >> BTW I seem to have answered my own queston i.e. >> If I wrap an evaluated symbol in nest

Re: why does my thread appear to have been started by Willie Arnold

Hi Alex Thank you very much for the advice. Best Regards Dean On 23 December 2016 at 07:05, Alexander Burger <a...@software-lab.de> wrote: > Hi Dean, > > > then I can wrap as many parens as possible around an evaluated value so > > that I can append a nested list as an

why does my thread appear to have been started by Willie Arnold who

BTW I seem to have answered my own queston i.e. If I wrap an evaluated symbol in nested lists e.g. (list (list (str Some_sym) ) ) then I can wrap as many parens as possible around an evaluated value so that I can append a nested list as an element in another list. Cheers Dean

Re: shorter way of assigning list elements to multiple symbols?

Thank you very much Danilo On 23 December 2016 at 17:34, Danilo Kordic wrote: > When `continuation' is: > - `list' 3rd becomes 2nd. > - `[quote @ [mapc 'set '[R1 R2 R3] [rest]]]' 3rd becomes 1st. > -- > UNSUBSCRIBE:

how to specify *.txt as an argument to ls

To help work out how to call pdftohtml with arguments I thought I'd try to do "ls *.txt" in the form of (call 'ls "*.txt") but I've got something wrong. I have seen * specified as @ as in '`(chop "@.PDF") and that worked fine with match but not with ls. BTW what's the difference between the two

Re: how to specify *.txt as an argument to ls

Thank you very much for the explanation.

Re: Fixed-point scaling and lookup tables

>Picolisp's built-in functions for scaled arithmetic are brilliant That's music to my ears because I've been looking forward to working with those ever since I started Picolisp for solving systems of equations. Still working on acquiring the data at the moment but...getting there :), Thank you for

Re: Termux-Penti-PicoLisp

Thanks very much Alex. On 18 May 2017 at 07:00, Alexander Burger wrote: > On Thu, May 18, 2017 at 07:40:34AM +0300, Mike Pechkin wrote: > > cant play videos on windows 10 in chrome-firefox-opera > > Hmm, really? Here on Android with Firefox it works, and also on Debian >

<    1   2