Of course. I'm not sure what I was thinking. Thank you.
On Oct 9, 7:47 pm, Shawn Hoover <shawn.hoo...@gmail.com> wrote:
> On Fri, Oct 9, 2009 at 10:37 PM, Mark Tomko <mjt0...@gmail.com> wrote:
> > ; a returns a new similarity function that applies the provided
> > transform function
> > ; before comparing a pair of collections
> > (defn make-coll-similarity-fn [coll-transform]
> > (fn [coll1 coll2] coll-similarity [coll1 coll2 coll-transform]))
>
> > ; makes an n-gram similarity function using the provided value for 'n'
> > (defn make-n-gram-similarity [n] (make-coll-similarity-fn (make-n-gram-
> > fn n)))
>
> > Then use my new similarity function generator:
>
> > (def bigram-similarity (make-coll-similarity-fn (make-n-gram-fn 2)))
>
> > (bigram-similarity "abcde" "abc")
>
> > I get the following:
>
> > ["abcde" "abc" #<similarity$make_n_gram_fn__114$fn__116
> > org.ricercata.similarity$make_n_gram_fn__114$fn__...@219ba640>]
>
> > I must be missing something obvious, but I can't see it.
>
> It looks like you're missing parens in make-coll-similarity-fn. It does
> nothing with coll-similarity and then returns a vector. Should it be more
> like this?
>
> (defn make-coll-similarity-fn [coll-transform]
> (fn [coll1 coll2] (coll-similarity coll1 coll2 coll-transform)))
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
