On Jun 18, 3:45 pm, Richard Newman <holyg...@gmail.com> wrote:
> > (defn substring? [str1 str2]
> > (let [c1 (count str1)
> > c2 (count str2)]
> > (and (<= c1 c2)
> > (or (= str1 (subs str2 0 c1))
> > (substring? str1
> > (subs str2 1 c2))))))
>
> This should be a little faster:
>
> (defn substring? [#^String s1 #^String s2]
> (not (= -1 (.indexOf s2 s1))))
>
> user=> (substring? "foo" "foobar")
> true
> user=> (substring? "bar" "Baz")
> false
Ah, true -- I've not used Java's string API for a while, and forgot
about indexOf. Thanks.
--
Michel
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
