Skip to content
Browse files

First thoughts in interface.

  • Loading branch information...
1 parent f3b8806 commit 5de8bc2f837890bbb2d9ca61e4625d94cd7be1e2 @sritchie sritchie committed Nov 20, 2011
Showing with 17 additions and 2 deletions.
  1. +17 −2 src/koans/tuples.clj
View
19 src/koans/tuples.clj
@@ -4,5 +4,20 @@
"We shall contemplate truth by testing reality, via equality."
(= __ [["truth."]])
- "To understand reality, we must compare our expectations against reality."
- (?= __ (<- [?x] (one-tuple ?x))))
+ "Queries produce results..."
+ (?= __ (<- [?x] (one-tuple ?x)))
+
+ "All sorts of sequences do the job."
+ (?= __ (<- [?x] ([[1]] ?x)))
+
+ "Lists, anyone?"
+ (?= __ (<- [?x] ((list [1]) ?x)))
+
+ "From whence do these tuples come?"
+ (?= [[4]] (<- [?x] (__ ?x)))
+
+ "Name something well to give it power."
+ (?= one-tuple (<- [?x] (one-tuple __)))
+
+ "The name itself doesn't matter, just that it match."
+ (?= one-tuple (<- [__] (one-tuple __))))

0 comments on commit 5de8bc2

Please sign in to comment.
Something went wrong with that request. Please try again.