{"id":328,"date":"2012-08-17T21:21:37","date_gmt":"2012-08-17T11:21:37","guid":{"rendered":"http:\/\/juliangamble.com\/blog\/?p=328"},"modified":"2013-12-27T10:35:18","modified_gmt":"2013-12-26T23:35:18","slug":"the-little-schemer-in-clojure-chapter-5-the-multichapter-chapter","status":"publish","type":"post","link":"https:\/\/juliangamble.com\/blog\/2012\/08\/17\/the-little-schemer-in-clojure-chapter-5-the-multichapter-chapter\/","title":{"rendered":"The Little Schemer in Clojure – Chapter 5 – The Multichapter Chapter"},"content":{"rendered":"

This is the fifth Chapter of a series of posts about porting\u00a0The Little Schemer<\/a>\u00a0to Clojure. You may wish to\u00a0read the intro<\/a>.<\/em><\/p>\n

Ok – so far we’ve introduced lists [Ch1]<\/a>, we’ve pulled things out of lists [Ch2]<\/a>, we’ve built lists [Ch3]<\/a>\u00a0and we’ve assembled a minimal numeric tower[Ch4]<\/a>. The assumption behind all of these was that we were only reading or making one change at a time. This time we’ll extend our capabilities to handle multiple items. To put it another way – this chapter is all about the ‘find all’ and the ‘replace all’.<\/p>\n

We’ll start with some revision – we’ll go back to our old friend member<\/code>.<\/p>\n

\r\n(def member?\r\n  (fn [a lat]\r\n    (cond\r\n      (null? lat) false\r\n      true (or\r\n        (= (first lat) a)\r\n        (member? a (rest lat)))) ))\r\n\r\n(println (member? 'sweet '(potato wedges with sweet chilli sauce))) ; \/\/=> true\r\n(println (member? 'sweet '(potato wedges with sweet sweet chilli sauce))) ; \/\/=> true\r\n<\/pre>\n
Now the particular point we’re looking at now is that this function will stop at the first occurrence of a<\/code> in lat<\/code>. Now we’ll go back to another old friend rember<\/code>.<\/p>\n
\r\n(def rember\r\n  (fn [ a lat]\r\n    (cond\r\n      (null? lat) '()\r\n      true (cond\r\n        (= (first lat) a) (rest lat)\r\n        true (cons (first lat)\r\n          (rember\r\n            a (rest lat)))))))\r\n\r\n(println (rember 'banana '(apple banana orange))) ; \/\/=> (apple orange)\r\n(println (rember 'banana '(apple banana banana orange))); \/\/=> (apple banana orange)\r\n<\/pre>\n
Again – the point was that only the first occurrence is dealt with – this chapter is about how we will to address that. So let’s start with multirember<\/code>:<\/p>\n
\r\n(def multirember\r\n  (fn [a lat]\r\n    (cond\r\n      (null? lat) '()\r\n      true (cond\r\n             (= (first lat) a) (multirember a (rest lat))\r\n             true (cons (first lat) (multirember a (rest lat)))))))\r\n\r\n(println (multirember 'sweet '(potato wedges with sweet sweet chilli sauce))); \/\/=> (potato wedges with chilli sauce)\r\n<\/pre>\n
The main difference is that we keep calling the function until the end of the lat, even if the result is found.<\/p>\n
Now let’s do multiinsertR<\/code>:<\/p>\n
\r\n(def multiinsertR\r\n  (fn [new old lat]\r\n    (cond\r\n      (null? lat) '()\r\n      true (cond\r\n             (= (first lat) old) (cons (first lat) (cons new (multiinsertR new old (rest lat))))\r\n             true (cons (first lat) (multiinsertR new old (rest lat)))))))\r\n\r\n(println (multiinsertR 'hot 'with '(with potato wedges with chilli sauce))); \/\/=> (with hot potato wedges with hot chilli sauce)\r\n<\/pre>\n
Too easy! Now let’s do multiinsertL<\/code>:<\/p>\n
\r\n(def multiinsertL\r\n  (fn [new old lat]\r\n    (cond\r\n      (null? lat) '()\r\n      true (cond\r\n             (= (first lat) old) (cons new (cons old (multiinsertL new old (rest lat))))\r\n             true (cons (first lat) (multiinsertL new old (rest lat)))))))\r\n\r\n(println (multiinsertL 'with 'hot '(hot potato wedges hot chilli sauce))); \/\/=> (with hot potato wedges with hot chilli sauce)\r\n<\/pre>\n
So a pattern is developing here – which means it’s time for another Commandment. Here Goes. The Sixth commandment states that you Always change at least one argument while recurring. The changing argument(s) should be tested in the termination condition(s) and it should be changed to be closer to termination. For example:
\nwhen using rest<\/code>, test termination with empty?<\/code>
\nwhen using sub1<\/code>, test termination with zero?<\/code><\/p>\n
Ok – so apart from knowing the principles to have confidence in writing recursive code in the future – why else is this relevant? It’s important for building more complex data structures. One of Clojure’s key strengths is that it has lazy functional data structures. Clojure’s data structures are built around this idea of hash-trie<\/a>. It’s the idea that you can modify a tree structure that is still immutable and performant. The point being – you need to start building blocks for how you think about data structures.<\/p>\n
Now we’re going to look at multisubst<\/code>:<\/p>\n
\r\n(def multisubst\r\n  (fn [new old lat]\r\n    (cond\r\n      (null? lat) '()\r\n      true (cond\r\n             (= (first lat) old) (cons new (multisubst new old (rest lat)))\r\n             true (cons (first lat) (multisubst new old (rest lat)))))))\r\n\r\n(println (multisubst 'hot 'sweet '(sweet potato wedges with sweet chilli sauce))); \/\/=> (hot potato wedges with hot chilli sauce)\r\n<\/pre>\n
Now we’re going to do occur<\/code> which is a bit like the aggregate count<\/code> function in sql.<\/p>\n
\r\n(def occur\r\n  (fn [a lat]\r\n    (cond\r\n      (null? lat) 0\r\n      true (cond\r\n             (= (first lat) a) (add1 (occur a (rest lat)))\r\n             true (occur a (rest lat))))))\r\n\r\n(println (occur 'hot '(potato wedges with hot hot hot chilli sauce))); \/\/=> 3\r\n<\/pre>\n
This chapter ends strangely – we digress into an optimisation of the rempick<\/code> function by adding a new primitive one?<\/code>:<\/p>\n
\r\n(def one?\r\n  (fn [n]\r\n    (= n 1)))\r\n\r\n(def rempick\r\n  (fn [n lat]\r\n    (cond\r\n      (null? lat) '()\r\n      (one? n) (rest lat)\r\n      true (cons (first lat) (rempick (sub1 n) (rest lat))))))\r\n\r\n(println (rempick 4 '(potato wedges with hot chilli sauce))); \/\/=> (potato wedges with chilli sauce)\r\n\r\n<\/pre>\n
You can see it running here<\/a>.<\/p>\n
Conclusion<\/strong>
\nHere we’ve adapted our existing functions to be able to work for multiple occurrences of the search result. We’ve added one new primitive function: one?\u00a0<\/code><\/p>\n
In total our primitives so far are:\u00a0atom?<\/code>,\u00a0null?<\/code>,\u00a0first<\/code>,\u00a0rest<\/code>,\u00a0cond<\/code>,\u00a0fn<\/code>,\u00a0def<\/code>,\u00a0empty?<\/code>,=<\/code>,\u00a0cons<\/code>,\u00a0add1,<\/code>\u00a0sub1<\/code> and one?<\/code>. These are all the functions (and those in the chapters to come) that we\u2019ll need to implement to get our metacircular interpreter working.<\/p>\n
Bringing it Back to Clojure<\/strong><\/p>\n
So how do we do a multirember<\/code> in Clojure normally? Here is an online example<\/a>:<\/p>\n
\r\n(remove #{:foo} #{:foo :bar})      ;\/\/ => (:bar)\r\n(remove #{:foo} [:foo :bar])       ;\/\/ => (:bar)\r\n(remove #{:foo} (list :foo :bar))  ;\/\/ => (:bar)\r\n<\/pre>\n
Other functions that apply to other data structures to consider:<\/p>\n
\r\n(disj #{:foo :bar} :foo)       ;\/\/ => #{:bar}\r\n(dissoc {:foo 1 :bar 2} :foo)  ;\/\/ => {:bar 2}\r\n(pop [:bar :foo])              ;\/\/ => [:bar]\r\n(pop (list :foo :bar))         ;\/\/ => (:bar)\r\n<\/pre>\n
So how is remove<\/code> implemented in Clojure<\/a>?<\/p>\n
\r\n(defn remove\r\n  [pred coll]\r\n  (filter (complement pred) coll))\r\n<\/pre>\n
This is more concise – but requires knowledge of the filter<\/code> and complement<\/code> functions – which we’ve chosen to exclude to keep a simple set of primitives.<\/p>\n","protected":false},"excerpt":{"rendered":"
This is the fifth Chapter of a series of posts about porting\u00a0The Little Schemer\u00a0to Clojure. You may wish to\u00a0read the intro. Ok – so far we’ve introduced lists [Ch1], we’ve pulled things out of lists [Ch2], we’ve built lists [Ch3]\u00a0and … Continue reading →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[3,12],"tags":[],"class_list":["post-328","post","type-post","status-publish","format-standard","hentry","category-clojure","category-thelittleschemer"],"_links":{"self":[{"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/posts\/328","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/comments?post=328"}],"version-history":[{"count":26,"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/posts\/328\/revisions"}],"predecessor-version":[{"id":570,"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/posts\/328\/revisions\/570"}],"wp:attachment":[{"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/media?parent=328"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/categories?post=328"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/juliangamble.com\/blog\/wp-json\/wp\/v2\/tags?post=328"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}