NewLisp

NewLisp is an open source programming language created in 1991 by Lutz Mueller.

Source code:

git clone https://github.com/kosh04/newlisp

#195on PLDB

33Years Old

476Repos

Try now: TIO

newLISP is an open source scripting language in the Lisp family of programming languages developed by Lutz Mueller and released under the GNU General Public License.. Read more on Wikipedia...

NewLisp website
NewLisp Wikipedia page
NewLisp is developed on GitHub and has 87 stars
NewLisp docs
There are at least 476 NewLisp repos on GitHub
NewLisp first developed in http://kosh.sdf.org
file extensions for NewLisp include nl, lisp, lsp and kif
NewLisp on Twitter
The Google BigQuery Public Dataset GitHub snapshot shows 774 users using NewLisp in 812 repos on GitHub
There are 1 Project Euler users using NewLisp
Explore NewLisp snippets on Rosetta Code
Pygments supports syntax highlighting for NewLisp
GitHub supports syntax highlighting for NewLisp
newlisp.org was registered in 1999
See also: (17 related languages)Lisp, Common Lisp, Scheme, Pascal, C, Tcl, S-expressions, XML, UTF-8, TCP, UDP, Linux, Solaris, SQLite, SMTP, FTP, OpenGL

Example from hello-world:

#!/usr/bin/newlisp
(print "Hello World\n")
(exit)

Example from Linguist:

#!/usr/bin/env newlisp

(constant 'NUM 8)

(define (intersects? q1 q2)
	(or 
		(= (q1 0) (q2 0)) 
		(= (q1 1) (q2 1))
		(= (abs (- (q1 0) (q2 0))) (abs (- (q1 1) (q2 1))))))

(define (variant? alist)
	(set 'logic nil)
	(cond
		((= (length alist) 1) true)
		((> (length alist) 1)
			(while (> (length alist) 1)
				(set 'q (pop alist -1))
				(dolist (el alist)
					(push 
						(intersects? 
							(list q (inc (length alist)))
							(list el (+ 1 $idx)))
					logic -1)))
			(not (apply or logic)))))

(define (fork-by-line alist)
	(let (res '())
		(dolist (i (sequence 1 NUM))
			(set 'tmp alist)
			(push i tmp -1)
			(setf res (push tmp res -1)))
		res))

(define (find-variants num)
	(let (res '())
		(cond 
			((< num 1) 
				(begin (println "num < 1") (exit)))
			((= num 1) 
				(dolist (i (sequence 1 NUM)) (push (list i) res -1)))
			((> num 1) 
				(dolist (v (find-variants (dec num))) 
					(set 'passed (filter variant? (fork-by-line v)))
					(if (not (empty? passed)) (extend res passed)))))
		res))
		
(set 'solutions (find-variants NUM))
(println (length solutions))
;;(exit)

Feature	Supported	Token
Line Comments	✓
Print() Debugging	✓	print
Comments	✓
Semantic Indentation	X

NewLisp - Programming language

Language features