github/darkfi
1
1
Fork 0
mirror of https://github.com/darkrenaissance/darkfi.git synced 2026-01-10 07:08:05 -05:00
Code Issues Packages Projects Releases Wiki Activity

conditionally select done

Browse Source
This commit is contained in:
plato
2021-03-10 18:48:35 +01:00
parent 45772956d0
commit d45d6f0bcf
1 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/examples/macro-test.lisp
View File

@@ -128,16 +128,20 @@
;; );
(defmacro! conditionally_select (fn* [u v condition] (
(let* [u-prime (gensym)] (
(let* [u-prime (gensym)
v-prime (gensym)] (
`(def! ~u-prime (alloc ~u-prime (* ~u ~condition)))
;; `(alloc ~v1 u)
;; `(alloc ~v2 v)
;; `(alloc ~condition ~condition)
`(def! ~v-prime (alloc ~v-prime (* ~v ~condition)))
`(enforce
(scalar::one ~u)
(scalar::one ~condition)
(scalar::one ~u-prime)
)
`(enforce
(scalar::one ~v)
(scalar::one ~condition)
(scalar::one ~v-prime)
)
)
))))
@@ -155,7 +159,7 @@
;; (println 'nonzero (zk-nonzero? param3))
;; (println 'not-small-order? (zk-not-small-order? param-u param-v))
(def! alloc-u (alloc "alloc-u" param-u))
;; (def! alloc-v (alloc "alloc-v" param-v))
(def! alloc-v (alloc "alloc-v" param-v))
(def! condition (alloc "condition" param3))
(println 'conditionally_select
(conditionally_select alloc-u alloc-v condition))