extend is destructive, so in place extending the list. if you do not want this use append
- Welcome to newLISP Fan Club.
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.
#2
newLISP in the real world / Re: List of indexes
May 12, 2021, 11:04:59 AMCode Select (define (index-list lst)
(setq mylist '())
(define (h-index-list lst agg)
(dolist (x lst)
(setq mv (append agg (list $idx)))
(push mv mylist -1)
(if (list? x)
(h-index-list x mv)))
mylist)
(h-index-list lst '())) #3
Anything else we might add? / Re: Manipulating byte strings
December 29, 2020, 05:37:47 AMHope this helps!
#4
newLISP in the real world / Re: Get rid of (some of) the parentheses with sublisp!
October 28, 2020, 02:34:01 PMCode Select
(define (down txt)
(replace {))+}
txt
(string ")" (char (+ 0x2080 (length $it)₄
0)₂
(define (up txt)
(replace {)[₂|₃|₄|₅|₆|₇|₈|₉]}
txt
(dup ")" (- (char ($it 1)₂ 0x2080)₂
2048)₂
(define (down-file file)
(write-file file
(down (read-file file)₄
(define (up-file file)
(write-file file
(up (read-file file)₄
#5
newLISP in the real world / Get rid of (some of) the parentheses with sublisp!
October 27, 2020, 03:24:55 PMCode Select
(define (initial-clauses str)
(set 'start (array rows columns (map int (explode str))))
(for (row 0 (sub1 rows))
(for (col 0 (sub1 columns))
(when (> (start row col) 0)
(push (string (to-var row col (sub1 (start row col))) " 0")
problem)))))
And below if run through sublisp:
Code Select
(define (initial-clauses str)
(set 'start (array rows columns (map int (explode str)₄
(for (row 0 (sub1 rows)₂
(for (col 0 (sub1 columns)₂
(when (> (start row col) 0)
(push (string (to-var row col (sub1 (start row col)₃ " 0")
problem)₅
And the code run through itself
Code Select
(define (sublisp txt)
(set 'offset 0x2080)
(for (x 9 2 -1)
(replace (dup ")" x)
txt
(string ")" (char (+ offset x)₅
(print (string txt)₂
nil)
Now if someone hacks into newlisp to change this back before it gets translated you could even execute it! ;-)
#6
newLISP Graphics & Sound / Re: is newlisp GS / guiserver abandoned ?
September 29, 2020, 11:29:38 AMYou can still download it, but as stated on
The Java based GUI server shipped until newLISP v.10.7.3:http://newlisp.org/code/guiserver-1.67.tgz"> . It contains an editor and demo files showing how to write graphics programs using guiserver.lsp and guiserver.jar.//http://newlisp.org/code/guiserver-1.67.tgz
#7
newLISP in the real world / Re: using ref data
September 01, 2020, 10:45:49 AMthe best way to get the data would be to map over the results and use implicit indexing.
So ref-all would give you a list of indices, probably the data you're looking for is one level up in this structure, then I would do:
Code Select
(map (fn(x) (itunes-data (chop x))) (ref-all "Brian Eno" itunes-data))
#8
Whither newLISP? / Re: "place" in the function "inc"
August 29, 2020, 10:18:59 AMYour lambda list says :(define (sum (x 0)) (inc 0 x))
after you do (sum 1) your lambda list is :
(define (sum (x 0)) (inc 1 x)), so the 0 has become a 1.
after you do another (sum 1) your lambda list is :
(define (sum (x 0)) (inc 2 x)), so the 1 has become a 2.
#9
Whither newLISP? / Re: "place" in the function "inc"
August 26, 2020, 07:30:05 AMCode Select
> (set 'places '(0 0 0))
(0 0 0)
> (inc (places 1))
1
> places
(0 1 0)
>
See also setq which also updates places.
The example from Code Patterns illustrates that a function is also a list (a lambda list) and you can also update that list with inc.
#10
So, what can you actually DO with newLISP? / Re: Newlisp bindings for DuckDB
August 25, 2020, 09:06:28 AMI've added a pivot command to the bindings, which allows for generating pivot tables (like in excel) over tables with millions of records, which is not possible in excel. Have a look at
#11
newLISP in the real world / Re: Find single number
August 13, 2020, 12:45:07 PM #12
newLISP in the real world / Re: Find single number
August 11, 2020, 11:44:51 PMI would do something like this, using a hash table:
Code Select
(define (find-number lst)
(define Myhash:Myhash) ; hash table creation, O(1) lookup time
(set ' total 0)
(dolist (n lst)
(if (Myhash n)
(dec total n) ; decrease when already added before
(begin
(Myhash n true)
(inc total n)))) ; if not in hash table increase
(delete 'Myhash) ; first to delete contents and namespace
(delete 'Myhash) ; second to delete symbol
total)
(find-number '(1 2 3 4 5 3 2 1 5))
-> 4
#13
So, what can you actually DO with newLISP? / Newlisp bindings for DuckDB
August 05, 2020, 03:30:02 PMI've added newLISP bindings for DuckDB at
So what is DuckDB? Have a look at their website:
They state that :
In practice it is almost like SQLITE (only much faster!) so the API I made is almost the same as the sqlite3.lsp standard module. Only exception is that BLOB's are not supported (yet) (They are in DuckDB but IMHO of little use for the expected things you would do with it).
What also doesn't work (yet) is prepared SQL statements/parameter bindings so no protection against SQL injection attacks however since this will mostly be used as a single person DB this is probably not a big issue but maybe I'll add it later, the DuckDB dynamic library supports it.
What is different from the SQLITE module is that there is a *very* fast CSV import & export command, on my laptop it creates a table and imports 1.5M records within a second!
Furthermore DuckDB is a columnar database (as opposed to SQLITE which is a row based db), which means that is is *much* faster for select statements with lots of aggregations, windows functions etc. What I was also looking for is a PIVOT statement, (think about MS Excel pivot tables) but this isn't supported as it needs dynamic column creation which is only possible (AFAIK) with some dynamic SQL creation so that is what I've also created on top of this API. I haven't included this in this API but will make a separate module for that.
#14
Whither newLISP? / Re: where is the value which is assigned by setq to a symbol?
July 23, 2020, 12:11:14 PM #15
So, what can you actually DO with newLISP? / Newlisp bindings for Termbox
July 13, 2020, 02:23:22 PMI made Newlisp bindings to the Termbox library. With these bindings you can easily create text-based user interfaces in Newlisp. You can find it at