Hash join: Difference between revisions

Content added Content deleted

Inline

@@ Line 56: / Line 56: @@
      (let ((val (car (gethash i *hash-table*))))
        (loop for (a b) in val do
-	    (format t "{~a ~a} {~a ~a}~%"  a b i r))))
+	    (format t "{~a ~a} {~a ~a}~%"  a b i r))))</lang>
-</lang>
 {{out}}