| Author |
can dylan do this?
|
|
| dillogimp@gmail.com 2007-04-15, 7:00 pm |
| hi
I'm stuck in the middle of my program with scheme.
I'm looking at other language that might be easier for solving my
problem
Here is my problem: (I'm using scheme's amb)
(define (solve-gen tt)
(define hd 2)
(let ((n (number-between 1 tt))
(v (number-between 1 tt))
(l (number-between 1 tt))
)
(assert (= (+ n l v) tt) )
(let ((g (number-between 1 l))
(c (number-between 0 1))
)
(assert (= (+ g c) l) )
(list n v l g c)
;; I need to do
;; (make-list n (number-between 0 hd))
)
)
)
;; (make-list n (number-between 0 hd))
This code won't work and but requires macro that can dynamically
generate code like:
(list (number-between 0 hd) (number-between 0 hd) (number-between 0
hd) ... )
;; need to generate (number-between 0 hd) n times at run time
can dylan easily do this?
Thanks.
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|