Search found 145 matches

by kanen
Thu Feb 14, 2019 10:38 pm
Forum: Anything else we might add?
Topic: Raising An Artificial Intelligence (blog)
Replies: 1
Views: 5197

Raising An Artificial Intelligence (blog)

I haven't posted in a very long time, but I thought I'd share a sneak preview of the blog I just finished, where I do mention Lisp and NewLISP when discussing AI and the Stock Market.

https://medium.com/@iamKanen/cb97aabd966d

-Kanen [fan of newLISP since 2004]
by kanen
Thu Aug 04, 2016 9:49 pm
Forum: newLISP in the real world
Topic: intersect bug?
Replies: 4
Views: 5743

intersect bug?

Code: Select all

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)
by kanen
Thu Nov 05, 2015 5:00 am
Forum: newLISP newS
Topic: newLISP v.10.6.4 development
Replies: 12
Views: 16495

Re: newLISP v.10.6.4 development

Issue in release notes -- it's

Code: Select all

/usr/local
and not

Code: Select all

/ust/local/
as the notes suggest.
by kanen
Fri May 01, 2015 7:06 pm
Forum: newLISP in the real world
Topic: userland packet filter in iptables
Replies: 8
Views: 7536

Re: userland packet filter in iptables

Here is some old code of mine, I just discovered: http://www.newlisp.org/code/nfq.tgz The included nfq-test.c came from the net and helped to write nfq.lsp. I remember this code! I sent an example over when we were porting to OpenWRT and Linux and trying to troubleshoot speed issues. NFQ has many o...
by kanen
Fri Mar 13, 2015 5:24 pm
Forum: newLISP newS
Topic: We are hiring newLisp programmers....
Replies: 4
Views: 20220

We are hiring newLisp programmers....

We are actively looking a newLisp programmer at our small network security startup -- http://www.TrustPipe.com. You can work from remote. You need to really know newLisp and be able to write socket code, database interfaces, web connectivity and interface with C through (import) on occasion. Knowing...
by kanen
Thu Mar 12, 2015 6:13 pm
Forum: newLISP and the O.S.
Topic: OpenWRT errors with 10.6.2
Replies: 3
Views: 10017

Re: OpenWRT errors with 10.6.2

It works. The newLisp sources are on our servers, but... cd openwrt/devel mkdir newlisp cd newlisp wget http://dev.kanen.me/trusted/Makefile Then... change back to your openwrt directory and enable newLisp... cd ../.. make menu_config Under Base System , find newLisp and hit "y" to enable it. then, ...
by kanen
Thu Mar 12, 2015 4:21 am
Forum: newLISP and the O.S.
Topic: OpenWRT errors with 10.6.2
Replies: 3
Views: 10017

Re: OpenWRT errors with 10.6.2

I may have figured it out. If so, I'll post my OpenWRT Makefile and the upstream .tgz needed to get newLisp 10.6.2 to compile on the latest OpenWRT (14.07 or even trunk).

The OpenWRT build system is just complicated.
by kanen
Wed Mar 11, 2015 2:17 am
Forum: newLISP and the O.S.
Topic: Benchmarking newLISP
Replies: 28
Views: 26678

Re: Benchmarking newLISP

> total time: 1947.244
> Performance ratio: 0.79 (1.0 on MacOSX 10.9, 2.3GHz Intel Core i5, newLISP v10.6.0-64-bit)

This is on the Mac Pro 2013 Recycle Bin computer. :)
by kanen
Wed Mar 11, 2015 2:11 am
Forum: newLISP and the O.S.
Topic: OpenWRT errors with 10.6.2
Replies: 3
Views: 10017

OpenWRT errors with 10.6.2

I'm porting 10.6.2 to OpenWRT (both Intel x86 and MIPS) and I keep getting the error below with the makefile_openwrt below. Any suggestions? nl-filesys.c: In function 'p_spawn': nl-filesys.c:1498:42: error: 'MAP_ANON' undeclared (first use in this function) PROT_READ | PROT_WRITE, MAP_SHARED | MAP_A...
by kanen
Tue Dec 30, 2014 8:31 pm
Forum: newLISP in the real world
Topic: Problem with (json-parse) false/nil
Replies: 5
Views: 4512

Re: Problem with (json-parse) false/nil

The problem with this approach is that you now have to have an edge-case for JSON importing, which you'd not have to have in an S-Expression. Which makes JSON a different animal when converted to Lisp. If this is the case, the manual should be very clear about it.
by kanen
Mon Dec 29, 2014 11:40 pm
Forum: newLISP in the real world
Topic: Problem with (json-parse) false/nil
Replies: 5
Views: 4512

Problem with (json-parse) false/nil

JSON understands only "false", but Lisp understands only "nil" and they are not the same. false should translate from JSON to nil in Lisp... Create a file called test.json: { "name": false, "age": 32, "employed": true, "address": { "street": "701 First Ave.", "city": "Sunnyvale, CA 95125", "country"...
by kanen
Tue Nov 18, 2014 2:25 am
Forum: newLISP in the real world
Topic: (save) files line breaks?
Replies: 2
Views: 3603

Re: (save) files line breaks?

(pretty-print 8192 " ") fixes it!

Thanks!
HPW wrote:Hello,

You may have a look at command 'pretty-print'.

Regards
by kanen
Mon Nov 17, 2014 6:21 pm
Forum: newLISP in the real world
Topic: (save) files line breaks?
Replies: 2
Views: 3603

(save) files line breaks?

Whenever I save a file, the line breaks are set to some strange 80 columns or similar. I'd like lines to break more reasonably and based on (set) statements instead. Otherwise, these files have strange line-breaks and I cannot read them outside newLisp Example: (setf foo (rand 1000 100000)) (save "f...
by kanen
Fri Nov 14, 2014 9:22 pm
Forum: newLISP in the real world
Topic: (silent) during runtime?
Replies: 3
Views: 4436

Re: (silent) during runtime?

Very helpful, on *nix systems (of course)! I was hoping for something in newLisp that was more like (silent) and would allow me to do this across all platforms (like Windows, Linux, BSD, OS X). I suppose I could suppress output conditionally by platform... I assume that newLISP only captures the sta...
by kanen
Fri Nov 14, 2014 6:38 pm
Forum: newLISP in the real world
Topic: (silent) during runtime?
Replies: 3
Views: 4436

(silent) during runtime?

I'd like to run something like (exec "ls") and also have the result return to a variable, but not display to the screen at runtime. This works; #!/usr/bin/newlisp (silent (setf res (exec "ls"))) (println "Exiting") (exit) But, this displays output to the screen: #!/usr/bin/newlisp (setf tarme (strin...
by kanen
Fri Sep 19, 2014 5:34 pm
Forum: newLISP and the O.S.
Topic: (net-service) on Windows?
Replies: 1
Views: 4129

(net-service) on Windows?

Is it possible to use (net-service) on Windows?

I've tried a few different ways to do this and none of them seem to work properly.

Anyone?
by kanen
Mon Sep 08, 2014 9:52 pm
Forum: newLISP in the real world
Topic: Syllables
Replies: 5
Views: 5564

Re: Syllables

You guys are very helpful. With a little training and some newLisp magic, I figured it out and created a giant table from my results. (set 'phonetics '( ("AABERG" 2) ("AACHEN" 2) ("AACHENER" 3) ("AAKER" 2) ("AALSETH" 2) ("AAMODT" 2) ("AANCOR" 2) ("AARDEMA" 3) ("AARDVARK" 2) ... )
by kanen
Sun Sep 07, 2014 7:59 pm
Forum: newLISP in the real world
Topic: Syllables
Replies: 5
Views: 5564

Syllables

I'm doing something which requires me to understand how many syllables are in a word I've retrieved.

Anyone have any experience figuring this out in newLisp?
by kanen
Tue Aug 20, 2013 3:33 am
Forum: newLISP in the real world
Topic: Lists within lists and finding things...
Replies: 2
Views: 2751

Lists within lists and finding things...

I'm trying to figure out if any of the items in a bigger list are in a smaller list. I've tried a bunch of options, but none of them are fast enough. (setf big-list '( ((5 0 0 0 3 14 0 1 0 0 1 0 0 0 0 0 0) 1006) ((8 97 108 45 106 105 110 97 110 3 110 101 116 0 0 1 0 1) 1001) ((8 97 49 45 106 105 110...
by kanen
Mon Jul 29, 2013 3:25 pm
Forum: newLISP in the real world
Topic: Inserting into a nested list (with assoc)
Replies: 4
Views: 3412

Re: Inserting into a nested list (with assoc)

Thanks!

I've never even used (set-ref) before, in all my years of newLisp. Everyday, as they say... you learn a thing.
by kanen
Mon Jul 29, 2013 5:26 am
Forum: newLISP in the real world
Topic: Inserting into a nested list (with assoc)
Replies: 4
Views: 3412

Inserting into a nested list (with assoc)

I have a list: (set (global 'me) '( (80 (1010 ((84 114 117 115 116 80 105 112 101 73 115 65 119 101 115 111 109 101))) ) (25 (1010 ((84 114 117 115 116 80 105 112 101 73 115 65 119 101 115 111 109 101))) ) )) I can get to it fairly easily; (assoc 80 me) ; returns all "80" results (assoc (list 80 101...
by kanen
Mon Dec 31, 2012 5:52 am
Forum: newLISP in the real world
Topic: Encrypt output transform, help please?
Replies: 8
Views: 5323

Re: Encrypt output transform, help please?

We posted the last at the same second, see the difference of "b" and "c" in pack/unpack. Right, but I'm still asking: What the best way to pack enc_str back into \000 format for (encrypt). I'm using this function, which gets an enc_str like "001003024" but it doesn't work on non UTF-8 systems, sadl...
by kanen
Mon Dec 31, 2012 3:51 am
Forum: newLISP in the real world
Topic: Encrypt output transform, help please?
Replies: 8
Views: 5323

Re: Encrypt output transform, help please?

So, the question is... (setf enc_str "067020093000014001022091071092094008065017083090010089067030020084002084018094006091029018016000092085067042093051080017023064052051093080") (setf enc_str (join (map char (map (fn (x) (int x 0 10)) (explode enc_str 3))))) How do I turn this into something that w...
by kanen
Mon Dec 31, 2012 12:32 am
Forum: newLISP in the real world
Topic: Encrypt output transform, help please?
Replies: 8
Views: 5323

Re: Encrypt output transform, help please?

Figured it out -- I think. (edit: spoke too soon... a text_enc of "\090\060\000\009" maps to (90 60) and the 9 gets removed. So I have to use the original, very long: (join (map (fn (x) (format "%03d" x)) (unpack (dup "c" (length text_enc)) text_enc)) ) I return the JavaScript happy version this way...
by kanen
Sun Dec 30, 2012 10:00 pm
Forum: newLISP in the real world
Topic: Encrypt output transform, help please?
Replies: 8
Views: 5323

Re: Encrypt output transform, help please?

cormullion wrote:Perhaps Base64 encode/code it while its' travelling ?
Doesn't solve the problem that JavaScript only wants it as a string of integers.