Add amb and distinct?

d-.scm

@@ -13,8 +13,12 @@
    argmin
    iterate
    upply
+   distinct?
    generator
-   macro-expand))
+   macro-expand
+   amb
+   amb-reset
+   amb-require))
 
 (define-syntax ~>
   (syntax-rules ()
@@ -77,6 +81,12 @@
   (let ([arm-f (apply compose fs)])
     (cmp (arm-f a) (arm-f b))))
 
+(define (distinct? . a)
+  (if (or (null? a) (null? (cdr a)))
+      #t
+      (and (not (any (lambda (x) (eq? (car a) x)) (cdr a)))
+	   (apply distinct? (cdr a)))))
+
 ;; Shamelessly ripped from https://wingolog.org/archives/2013/02/25/on-generators
 (define (make-generator f)
   (define tag (make-prompt-tag))
@@ -100,3 +110,25 @@
 
 ;; Why wasn't this included?
 (define macro-expand (compose tree-il->scheme macroexpand))
+
+;; This is the "classic" implementation of McCarthy's `amb'
+;; Would rather it use delimited continuations, but I'm too dumb
+(define (*fail*) (error "Could not satisfy amb"))
+(define-syntax amb
+  (syntax-rules ()
+    [(amb) (*fail*)]
+    [(amb a) a]
+    [(amb a b ...)
+     (let ([fail0 *fail*])
+       (call/cc
+	(lambda (cc)
+	  (set! *fail*
+		(lambda ()
+		  (set! *fail* fail0)
+		  (cc (amb b ...))))
+	  (cc a))))]))
+(define (amb-reset)
+  ;; Shouldn't be necessary, but prompts are hard and I'm dumb dumb dummy
+  (set! *fail* (lambda () (error "Could not satisfy amb"))))
+(define (amb-require pred)
+  (or pred (amb)))