<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[goodluckforlove的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/goodluckforlove</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; goodluckforlove]]></copyright><item><title><![CDATA[Functional Programming in Scala第二章练习]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/46612971</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/46612971</guid><author>goodluckforlove</author><pubDate>Wed, 24 Jun 2015 00:21:40 +0800</pubDate><description><![CDATA[scala函数式编程练习]]></description><category></category></item><item><title><![CDATA[Functional Programming in Scala第三章练习]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/46612947</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/46612947</guid><author>goodluckforlove</author><pubDate>Wed, 24 Jun 2015 00:18:18 +0800</pubDate><description><![CDATA[scala函数式编程练习]]></description><category></category></item><item><title><![CDATA[jsoup在jre6和jre7的不同表现]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/10784747</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/10784747</guid><author>goodluckforlove</author><pubDate>Sat, 31 Aug 2013 21:17:48 +0800</pubDate><description><![CDATA[jsoup在jre7下能自动根据Content-Type转成utf-8, jsoup下则不会，需要自己动手转换。因此在jre6下能正常运行的程序，在jre7下不能正常运行了。]]></description><category></category></item><item><title><![CDATA[用 clojure实现【白话经典算法系列之十四】腾讯2012年实习生笔试加分题]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8752344</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8752344</guid><author>goodluckforlove</author><pubDate>Tue, 02 Apr 2013 17:05:35 +0800</pubDate><description><![CDATA[昨天见 【白话经典算法系列之十四】腾讯2012年实习生笔试加分题， 作为一个clojure爱好者，实现了一个clojure版本的。
题目：


给定一数组a[N]，我们希望构造数组b [N]，其中b[j]=a[0]*a[1]…a[N-1] / a[j]，在构造过程中，不允许使用除法：

要求O（1）空间复杂度和O（n）的时间复杂度；

除遍历计数器与a[N] b[N]外，不可使用新]]></description><category></category></item><item><title><![CDATA[nrepl emacs ac-nrepl 绝配]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8675109</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8675109</guid><author>goodluckforlove</author><pubDate>Thu, 14 Mar 2013 20:59:38 +0800</pubDate><description><![CDATA[用了Ideal的clojure插件以后，发现repl中没办法自动补全，这个问题很麻烦，因为在学习写clojure代码的过程中，很需要repl测试想法，函数等等。有emacs的nrepl之后，一切都变得美妙了。真的喜欢上nrepl了，一切都简单了。]]></description><category></category></item><item><title><![CDATA[4clojure第65个问题：黑盒测试序列类型]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8675079</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8675079</guid><author>goodluckforlove</author><pubDate>Thu, 14 Mar 2013 20:53:31 +0800</pubDate><description><![CDATA[(ns for-clojure.problem65)

(defn black-box-testing
  "黑盒测试：根据序列的特点判断序列的类型，不能使用类型判断等函数"
  [v]
  (cond
          (:a (conj v [:a 1])) :map
          (< (- (count (conj v 1 1)) (count v)) 2) :set]]></description><category></category></item><item><title><![CDATA[4clojure第118个问题：自己的map函数]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8670734</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8670734</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 21:58:47 +0800</pubDate><description><![CDATA[(fn m [f v]
  (cons (f (first v)) (lazy-seq 
                       	 (if (empty? (rest v))
                           []
                           (m f (rest v))))))这里在lazy-seq里面必须做(rest v)是否为空的判断，不]]></description><category></category></item><item><title><![CDATA[4clojure第54个问题：拆分序列]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8670199</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8670199</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 20:03:01 +0800</pubDate><description><![CDATA[(ns for-clojure.problem54)

(defn partition-a-sequence-1
  "拆分序列，把一个序列拆分成每部分x个元素，最后不足x元素的丢弃"
  [x v]
  (loop [r [];最终结果 
         m [];中间结果保存 
         v v]
    (if (= (count m) x)
      (if (empty? v]]></description><category></category></item><item><title><![CDATA[4clojure第135个问题：中缀计算器]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8670031</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8670031</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 19:31:32 +0800</pubDate><description><![CDATA[(ns for-clojure.problem135)

(defn infix-calculator
  "前缀计算机，从左到右执行，不论优先级"
  [& xs]
  (loop [r (first xs)
         xs (rest xs)]
    (if (empty? xs)
      r
      (recur ((first xs) r (second xs)) (nt]]></description><category></category></item><item><title><![CDATA[4clojure第97个问题：杨辉三角]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8667908</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8667908</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 13:02:04 +0800</pubDate><description><![CDATA[(ns for-clojure.problem97)
(defn pascals-triangle-1
  "杨辉三角"
  [n]
  (if (= n 1)
    [1]
  (loop [m 2 
         r [1]]
    (let [next-r (into [] (map #(apply + %) (partition 2 1(concat [0] r [0]))))]]]></description><category></category></item><item><title><![CDATA[4clojure第59个问题：创建自己的juxt]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8667805</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8667805</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 12:25:54 +0800</pubDate><description><![CDATA[(ns for-clojure.problem59)

(defn juxtaposition
  [& fns]
  (fn [& xs]
    (into []  (map #(apply % xs) fns))))

(= [21 6 1] ((juxtaposition + max min) 2 3 5 1 6 4))

(= ["HELLO" 5] ((juxtaposition #(]]></description><category></category></item><item><title><![CDATA[4clojure第58个问题：组合函数]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8667710</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8667710</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 11:57:33 +0800</pubDate><description><![CDATA[(ns for-clojure.problem58)
(defn fn-comp-1
  "创建一个函数的组合函数，此函数接受任何个数的函数，从右到左执行函数"
  [& fns]
  (fn [& init-paramters]
    (let [fns (reverse fns)
          result (apply (first fns) init-paramters)]]]></description><category></category></item><item><title><![CDATA[4clojure第56个问题从序列中找出不同的项并保持次序]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8667146</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8667146</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 10:38:47 +0800</pubDate><description><![CDATA[(ns for-clojure.problem56)

(defn find-distinct-items 
  "找出序列中不同的元素，并且要保持原来的次序不变"
  [v]
  (reduce #(if (some #{%2} %1) %1 (conj %1 %2)) [] v))

(find-distinct-items [:a :a :b :b :c :c])这里需要注意的是为什么用so]]></description><category></category></item><item><title><![CDATA[4clojure第55个问题：实现自己的序列频率统计函数]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8666934</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8666934</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 10:11:44 +0800</pubDate><description><![CDATA[(ns for-clojure.problem50)

(defn my-frequencies-1 
  "尾递归序列统计频率"
  [v] 
  (loop [v v r {}]
    (if (empty? v)
      r
      (let [ele (first v)
            rest-v (rest v)]
        (if (get r ele)]]></description><category></category></item><item><title><![CDATA[4clojure第50个问题根据类型拆分序列]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8666224</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8666224</guid><author>goodluckforlove</author><pubDate>Wed, 13 Mar 2013 00:04:44 +0800</pubDate><description><![CDATA[;Split by Type
 
;Difficulty:	Medium
;Topics:	seqs

;Write a function which takes a sequence consisting of items with different types and splits them up into a set of homogeneous sub-sequences. The in]]></description><category></category></item><item><title><![CDATA[4clojure第43个问题逆向交错（Reverse Interleave）]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8665501</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8665501</guid><author>goodluckforlove</author><pubDate>Tue, 12 Mar 2013 21:04:08 +0800</pubDate><description><![CDATA[Reverse Interleave

 




Difficulty:
Medium


Topics:
seqs





Write a function which reverses the interleave process into x number of subsequences.







(= (__ [1 2 3 4]]></description><category></category></item><item><title><![CDATA[compojure ring 笔记]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8644783</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8644783</guid><author>goodluckforlove</author><pubDate>Thu, 07 Mar 2013 08:07:56 +0800</pubDate><description><![CDATA[compojure.handler/site 要放在middleware的最外层 不然使用session验证时会出现 404错误（session middleware需要site导入）。
compojure.handler/site包含了一般网站所需要的中间件




site
(site routes & [opts])
Create a handler suitable for]]></description><category></category></item><item><title><![CDATA[用clojure实现《实用Common Lisp编程》中的单元测试框架]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8625776</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8625776</guid><author>goodluckforlove</author><pubDate>Fri, 01 Mar 2013 13:38:30 +0800</pubDate><description><![CDATA[(ns simple-test-frame.core)

(def ^:dynamic *test-name* nil)

(defn report-result
  [result form]
  (if result
    (println "pass ... " *test-name* ":" form)
    (println "fail ... " *test-name* ":" f]]></description><category></category></item><item><title><![CDATA[用clojure实现《实用Common Lisp编程》中的简单数据库：CD数据库]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8618685</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8618685</guid><author>goodluckforlove</author><pubDate>Wed, 27 Feb 2013 17:38:30 +0800</pubDate><description><![CDATA[(ns simple-cd-database.core)

(defn make-cd
  [title artist rating ripped]
  {:title title :artist artist :rating rating :ripped ripped})

(def db (atom []))

(defn add-record [cd] (swap! db conj cd))]]></description><category></category></item><item><title><![CDATA[编写像Ruby的代码]]></title><link>https://blog.youkuaiyun.com/goodluckforlove/article/details/8442786</link><guid>https://blog.youkuaiyun.com/goodluckforlove/article/details/8442786</guid><author>goodluckforlove</author><pubDate>Thu, 27 Dec 2012 12:52:27 +0800</pubDate><description><![CDATA[一， Ruby编程风格的核心思想：
1， The first is that code should be crystal clear—good code tells the reader exactly what
it is trying to do. Great code shouts its intent.
十分清楚 ：好的代码准备无误地告诉读者它要做什么。伟大的代码的叫喊出它的意图。]]></description><category></category></item></channel></rss>