newLISP Fan Club

Ah; I looked up rDNS for 168.235.93.184 and got 168-235-93-184.cloud.ramnode.com rather than newlispfanclub.com, which would be the origin of an email.

This morning I got a blurb here about the pains of sending emails to addresses @gmail.com, detailing a bit about how finicky they, Google, are.

Whilst that is true, I've held this email address some 20 years mostly because their spam filtering has been quite outstanding. During that time I have set up some number of MTA (typically small and smallish ones), and like apparently this forum, come to realize both that in order to deliver to @gmail.com addresses all the "ducks" need to be in perfect order, and that getting attention and assistance by Google staff to figure out the "ducks" is near impossible.

This forum is close to perfect in its setup apart from lacking its reverse DNS setup, which I believe is one of the "ducks", i.e. one thing that @gmail.com is finicky about.

(And if it'd be of any help. I'm more than happy to be a trial target for MTA configuration trials.)

maybe check out

https://web.archive.org/web/20230000000000*/http://www.newlisp.org/downloads/manual_frame.html">https://web.archive.org/web/20230000000 ... frame.html">https://web.archive.org/web/20230000000000*/http://www.newlisp.org/downloads/manual_frame.html

I'm confused about why you appear confuse... of course (string ""a""b"") is the same as (string ""   a   ""  b  ""); the string function packs together the stringifying of its arguments ignoring any (optional) whitespace between them. No strangeness involved afaict.

.. and you should dazzle me with the code as well :)



I had a hard time avoiding brute-force, which I thought too boring, but then it started to take too much time for me so I gave up.



Ralph.

Yes it's a bug in the handling of the "incoming cell data" for an ffi_type_float at nl-import.c:814.

That current line is

Code Select Expand

floatV = (float) *(double *)&cell->aux;
and should be replaced with the following

Code Select Expand

floatV = (float) ((cell->type == CELL_FLOAT)? *(double *)&uint64V : uint64V);
which corresponds to how it's handled in the pack function.

My fully repeatable test is:

Code Select Expand

> (push x x)
(?)
> (x 0 0)

ERR: list reference changed
> x

Same behaviour in "newLISP v.10.7.5 64-bit on Linux IPv4/6 UTF-8 libffi, options: newlisp -h"

tried to edit, to wrap the sym term into an eval, but the server doesn't let me...

1) a "hashmap" is a context without default functor, i.e.

Code Select Expand

(and (context? S) (nil? (sym (term S) S nil)))

2) using the symbol as functor results in its list if entries, i.e.

Code Select Expand

(apply S)

Yes, quite challenging. Especially with the (implied) constraint that f is restricted to integers, as arguments and values (otherwise it's all too easy). Perhaps the following is  acceptable?

Code Select Expand

(define (f n)
  (if (= n) 0 (> n)
      (if (odd? n) (inc n) (- (dec n)))
      (if (odd? n) (dec n) (- (inc n)))))

Ah. I didn't think about that. One might make a bitsL function for that, eg:

Code Select Expand

; Compute "bits" for bigint and int
(constant 'MAXINT (pow 2 62))                                                    
(define (prep s) (string (dup "0" (- 62 (length s))) s))
(define (bitsL n)
    (if (<= n MAXINT) (bits (int n))
      (string (bitsL (/ n MAXINT))
              (prep (bits (int (% n MAXINT))))))) but then I'm less sure about the gain in speed.

Interesting.



To gain speed, you could specialize the power-of-2 test into the following

Code Select Expand

(nil? (find "1" (1 (bits n))))
That method is 1-2 magnitudes faster than "proper math's", and using bits for ilog2 as well, it could become the following, faster run function:

Code Select Expand

(define (run2 program start step)
  (dotimes (x step)
    (let (b (bits x))
       (or (find "1" (1 b)) (print (dec (length b)) ", ")))
    (setq start (fractran program start)))
  'stop)

:)

println ? did you mean string ?



btw, cron scripts are run in $HOME so it would append to $HOME/ltcbtc.txt

A script file needs to tell which interpreter to use at it's first line, so it'd be like

Code Select Expand

#!/usr/local/bin/newlisp
(append-file "ltcbtc.txt" (println pairs (date (date-value) 0 "%y%m%d%H%M%S")))
if you have installed newlisp at there.



Alternatively you make an embedded executable with the script; something like

Code Select Expand

$ newlisp -x winny.lsp herbie ; chmod a+x herbie  and then use that in crontab.

Code Select Expand

* * * * * /home/joe/winny/herbie.