github/darkfi
1
1
Fork 0
mirror of https://github.com/darkrenaissance/darkfi.git synced 2026-04-28 03:00:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

fixing map and zkcons syntax

Browse Source
This commit is contained in:
ada
2020-11-04 19:38:07 +01:00
parent 82321d3645
commit f7877f0ea3
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/lisp.rs
View File

@@ -277,7 +277,8 @@ fn eval(mut ast: MalVal, mut env: Env) -> MalRet {
let value = eval_ast(&a2, &env)?;
match value {
List(ref el, _) => {
zkcons_eval(el.to_vec(), &a1, &env);
println!("{:?}", el);
//zkcons_eval(el.to_vec(), &a1, &env);
}
_ => println!("invalid format"),
}

13
lisp/new.lisp
View File

@@ -9,12 +9,19 @@
;; (sub lc0 x)
;; )
;; )
(zkcons! circuit (map (fn* [b] (
(map (fn* [b] (
(zkcons! circuit (
(add lc0 one)
(sub lc0 b)
(add lc1 x)
(add lc1 x))
;; 'enforce)
)) bits))
))) bits)
;; (zkcons! circuit (map (fn* [b] (
;; (add lc0 one)
;; (sub lc0 b)
;; (add lc1 x)
;; 'enforce)
;; )) bits))
;; (def! enforce-loop-const (map (fn* [b] (
;; (add lc0 one)
;; (sub lc0 b)