Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/todesking/lisp.rs
Lisp in Rust
https://github.com/todesking/lisp.rs
lisp programming-language rust
Last synced: 23 days ago
JSON representation
Lisp in Rust
- Host: GitHub
- URL: https://github.com/todesking/lisp.rs
- Owner: todesking
- License: mit
- Created: 2021-01-03T18:49:22.000Z (about 4 years ago)
- Default Branch: master
- Last Pushed: 2023-01-20T22:56:36.000Z (about 2 years ago)
- Last Synced: 2024-11-13T12:59:48.617Z (3 months ago)
- Topics: lisp, programming-language, rust
- Language: Rust
- Homepage:
- Size: 304 KB
- Stars: 2
- Watchers: 3
- Forks: 0
- Open Issues: 4
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
# Lisp in Rust
Just a toy language.
* Basic syntax:
* Primitive: `42`, `true`
* Global variable definition: `(define x 1)`
* Application: `(f x y)`
* If: `(if cond then else)`
* Quote: `'(1 2 3)`
* Lambda: `(lambda (x y . rest) e1 e2)` / `(lambda rest e1 e2)`
* Modify local variable: `(set-local! x 1)`(simple value only) / `(unsafe-set-local! x '(1 2 3))`(unlimited and unsafe)
* Due to reference-counting based memory management, unsafe operations may produce cyclic reference and memor leakage.
* Modify global variable: `(set-global! x 123)`
* Error handling: `(catch-error handler expr)` where handler is `(lambda (error-kind payload) ...)`
* letrec: `(letrec (((var1 arg11 arg12) body1) ((var2 arg21) body2)) expr)`
* Quasiquote: \`(1 2 ,x ,@xs)(where x = `3`, xs=`'(4 5 6)`) = `(1 2 3 4 5 6)`
* Tail Call Optimization available
* Predefined functions:
* Basic arithmetic: `+`, `-`, `*`, `/`, `%`, `<`, `<=`, `>`, `>=`
* Equality: `eq?`
* List operations: `cons`, `list`
* User-controlled error: `(error error-kind payload)`
* [primitive functions](./src/predef.rs), [standard library](./src/predef.lisp), [additional functions](./src/repl.lisp)
## Usage
`cargo run --release` to run REPL.
```
LISP.rs> (define make-counter (lambda () ((lambda (x) (lambda () (set-local! x (+ 1 x)) x)) 0)))
=> ()
LISP.rs> (define counter-1 (make-counter))
=> ()
LISP.rs> (define counter-2 (make-counter))
=> ()
LISP.rs> (counter-1)
=> 1
LISP.rs> (counter-1)
=> 2
LISP.rs> (counter-2)
=> 1
LISP.rs> (counter-1)
=> 3
LISP.rs> (counter-2)
=> 2
LISP.rs> (fib 30) ; predefined function
=> 832040
Elapsed: 4208[ms]
```
Predefined `fib` definition:
```
(define fib (lambda (n)
(if (eq? n 0) 0
(if (eq? n 1) 1
(+ (fib (- n 1)) (fib (- n 2)))))))
```