On Dec 17, 2008, at 8:09 PM, Chouser wrote:

But I can't deny that golfing is fun!

Yes it is!

(defn enc[s e](apply str(map(into{}(for[[o _ n](partition 3 4 e)][o n]))s)))

Nice job as usual, Chouser!

Here's my stroke--now shown to have landed well into the rough:

(defn enc[p t](let[a apply m map s str](a s (m(a hash-map(m frest(re- seq #"(.)[,|]*"t)))(m s p)))))

--Steve

Attachment: smime.p7s
Description: S/MIME cryptographic signature

Reply via email to