Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/vrmiguel/ceceio
Embeddable tree-walk interpreter for a "mostly lazy" Lisp-like scripting language.
https://github.com/vrmiguel/ceceio
Last synced: 4 months ago
JSON representation
Embeddable tree-walk interpreter for a "mostly lazy" Lisp-like scripting language.
- Host: GitHub
- URL: https://github.com/vrmiguel/ceceio
- Owner: vrmiguel
- Created: 2022-08-06T03:49:18.000Z (over 2 years ago)
- Default Branch: main
- Last Pushed: 2022-08-20T00:47:43.000Z (over 2 years ago)
- Last Synced: 2023-03-08T22:22:00.376Z (almost 2 years ago)
- Language: Rust
- Homepage:
- Size: 85 KB
- Stars: 7
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
# ceceio
Embeddable tree-walk interpreter for a "mostly lazy" Lisp-like scripting language. Just a work-in-progress testbed for now.
## Sample usage
```rust
use ceceio::Interpreter;
let mut interp = Interpreter::new();
assert!(interp
.parse_and_eval(
"(def fibonacci
(fn [n]
(cond
(= n 0) 1
(= n 1) 1
(+ (fibonacci (- n 1)) (fibonacci (- n 2))))))",
)
.is_ok());
assert_eq!(
interp.parse_and_eval("(fibonacci 5)").unwrap(),
8.0.into()
);
assert!(
interp.parse_and_eval("(def one-to-five '(1 2 3 4 5))").is_ok()
);
assert_eq!(
interp
.parse_and_eval(
"(count (fn [x] (= (% x 2) 1)) one-to-five)"
)
.unwrap(),
3.0.into()
);
assert_eq!(
interp.parse_and_eval("(/ (* 2 3) (- 5 6 7))").unwrap(),
(-0.75).into()
);
assert_eq!(
interp.parse_and_eval("(def x 5)").unwrap(),
5.0.into()
);
assert!(
interp.parse_and_eval("(def twice (fn [x] (+ x x)))").is_ok()
);
assert_eq!(
interp.parse_and_eval("(= (twice x) (* x 2) 10.0)").unwrap(),
true.into()
);
assert_eq!(
interp
.parse_and_eval("(= (* x x x x x) 3125.0)")
.unwrap(),
true.into()
);
assert!(interp
.parse_and_eval("(def id (fn [x] x))")
.is_ok());
assert_eq!(
interp.parse_and_eval("(= (id 2) 2)").unwrap(),
true.into()
);
assert_eq!(
interp
.parse_and_eval("(= (id :success) :success)")
.unwrap(),
true.into()
);
assert!(interp
.parse_and_eval("(def double (fn [x] (+ x x)))")
.is_ok());
assert_eq!(
interp.parse_and_eval("(= (double 2) (* 4 1))").unwrap(),
true.into()
);
assert!(interp
.parse_and_eval("(def even? (fn [x] (= (% x 2) 0)))")
.is_ok());
assert_eq!(
interp.parse_and_eval("(even? 2)").unwrap(),
true.into()
);
assert_eq!(
interp.parse_and_eval("(even? 3)").unwrap(),
false.into()
);
```