マクロの使い方覚え書き。 まず、「プログラミングClojure」に出ていたノーマルな定義。 unlessというマクロ。 (defmacro unless [expr form] (list 'if expr nil form)) 実行結果 t-macro.core=> (unless false (println "1")) 1 nil t-macro.core=> (unles…

vimrcメモ。 Clojureのための設定も追加。 set nocompatible set runtimepath^=~/.vim/bundle/neobundle.vim/ call neobundle#begin(expand('~/.vim/bundle/')) NeoBundleFetch 'Shougo/neobundle.vim' NeoBundle 'guns/vim-clojure-static' NeoBundle 'kien…

プログラミングClojureに乗っていた例を写経実行したメモ。 関数を使わずに、再帰的にループするやり方。 (println (loop [result [] x 5] (if (zero? x) result (recur (conj result x) (dec x))))) 実行結果： [5 4 3 2 1] ループ分の構造としては (loop […

「プログラミングClojure」で出てきたサンプル。 user=> (filter (fn [w] (> (count w) 2)) (str/split "A fine day" #"\W+")) ("fine" "day") filter関数は、 (filter pred coll) コレクションcollの各要素に対して、条件をチェックする関数predを適応して…

さて、(for ...)はシーケンスを生成して返すが、これは遅延評価されるので、実際に使用されるまではシーケンスは生成されない。 REPL環境だと入力した式がその場で評価されるので、これが遅延評価されるものとは気づかない。 user=> (for [x (range 1 3)] (p…

「プログラミングClojure」で出てきたforループのサンプル。 (defn indexed [coll] (map vector (iterate inc 0) coll)) (defn index-filter [pred coll] (when pred (for [[idx elt] (indexed coll) :when (pred elt)] idx))) 実行結果： (index-filter #{\…

まずは、２次元配列的なものを作ってみる。 user=> (def aa [[1 \a] [2 \b]]) #'user/aa user=> aa [[1 \a] [2 \b]] これを、一個ずつ取り出してみる。 user=> (for [x aa] (println x)) [1 a] [2 b] (nil nil) で、上記[1 a]、[2 b]の第１要素だけをとりた…

Clojureを始めて１週間ちょいといったところか。 とりあえず本を読んでいる、ちょくちょく試してみている感じ。 ループのまわし方とかも、手続き型プログラミングと勝手が違って戸惑う。 ※Clojureのforは命令型言語のforループとは違うらしい。(リスト内包表…

「プログラミングClojure」を読んでClojureを学んでいる。 正直、この本は入門者向けではない…。著者の気持ちが先走りすぎている。 いやいや、面白いのは分かるけど、もうちょっと落ち着いて教えてくれよ。という感じだ。 まあ謎解きしながら読むのも面白い…

「７つの言語７つの世界」 を読んでClojureを始めた。 まったく思考がLISPerになってなく、すらすらプログラムが組める状態ではない。が、実に面白い。 Clojureの強力な点は、コレクションに対する操作を、非常に簡潔に書けるところだ。 まずはリスト。 リス…