Here is the implementation:
(define (fresh/nf n f)
(letrec
((app-f/v*
(lambda (n v*)
(cond
((zero? n) (apply f (reverse v*)))
(else (call/fresh
(lambda (x)
(app-f/v* (- n 1) (cons x v*)))))))))
(app-f/v* n '())))
https://github.com/jasonhemann/microKanren/blob/master/miniKanren-wrappers.scm#L81
Thanks in advance!
Amirouche
--
You received this message because you are subscribed to the Google Groups
"minikanren" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at https://groups.google.com/group/minikanren.
For more options, visit https://groups.google.com/d/optout.
