Slide 1

Slide 1 text

Practical REPL-driven Development with Clojure

Slide 2

Slide 2 text

Self-introduction /laʒenɔʁɛ̃k/ カマイルカ lagénorhynque (defprofile lagénorhynque :name "Kent OHASHI" :languages [Clojure Haskell Python Scala English français Deutsch русский] :interests [programming language-learning mathematics] :contributing [github.com/japan-clojurians/clojure-site-ja])

Slide 3

Slide 3 text

Contents 1. Clojure Quick Intro 2. Leiningen 3. Clojure REPL 4. Lisp Editing 5. REPL-driven Development in Practice

Slide 4

Slide 4 text

Clojure Quick Intro

Slide 5

Slide 5 text

Clojure Lisp S-expressions, macros, etc. REPL-driven development functional programming language dynamic language JVM language (cf. ClojureScript) ⇒ simple and powerful language

Slide 6

Slide 6 text

literals type example string "abc" character \a number 1, 2.0, 3N, 4.5M, 6/7, 8r10 boolean true, false nil nil keyword :a, :user/a, ::a, ::x/a symbol 'a, 'user/a, `a, `x/a

Slide 7

Slide 7 text

type example list '(1 2 3), '(+ 1 2 3) vector [1 2 3] set #{1 2 3} map {:a 1 :b 2}, #:user{:a 1 :b 2}, #::{:a 1 :b 2}, #::x{:a 1 :b 2} function (fn [x] (* x x))

Slide 8

Slide 8 text

the syntax operator function macro special form (op arg1 arg2 ... argn)

Slide 9

Slide 9 text

Leiningen

Slide 10

Slide 10 text

lein repl starts Clojure REPL $ lein repl nREPL server started on port 49482 on host 127.0.0.1 - nrepl://1 27.0.0.1:49482 REPL-y 0.3.7, nREPL 0.2.12 Clojure 1.8.0 Java HotSpot(TM) 64-Bit Server VM 1.8.0_121-b13 Docs: (doc function-name-here) (find-doc "part-of-name-here") Source: (source function-name-here) Javadoc: (javadoc java-object-or-class-here) Exit: Control+D or (exit) or (quit) Results: Stored in vars *1, *2, *3, an exception in *e user=>

Slide 11

Slide 11 text

lein new generates a new Clojure project generate a project with app template cf. $ lein new app clj-demo Generating a project called clj-demo based on the 'app' template lein-template

Slide 12

Slide 12 text

$ tree clj-demo/ clj-demo/ ├── CHANGELOG.md ├── LICENSE ├── README.md ├── doc │ └── intro.md ├── project.clj ├── resources ├── src │ └── clj_demo │ └── core.clj └── test └── clj_demo └── core_test.clj

Slide 13

Slide 13 text

lein run runs -main function $ cd clj-demo/ $ lein run Hello, World!

Slide 14

Slide 14 text

cf. src/clj_demo/core.clj (ns clj-demo.core (:gen-class)) (defn -main "I don't do a whole lot ... yet." [& args] (println "Hello, World!"))

Slide 15

Slide 15 text

lein test runs tests $ lein test lein test clj-demo.core-test lein test :only clj-demo.core-test/a-test FAIL in (a-test) (core_test.clj:7) FIXME, I fail. expected: (= 0 1) actual: (not (= 0 1)) Ran 1 tests containing 1 assertions. 1 failures, 0 errors. Tests failed.

Slide 16

Slide 16 text

cf. test/clj_demo/core_test.clj (ns clj-demo.core-test (:require [clojure.test :refer :all] [clj-demo.core :refer :all])) (deftest a-test (testing "FIXME, I fail." (is (= 0 1))))

Slide 17

Slide 17 text

lein uberjar creates jar files $ lein uberjar Compiling clj-demo.core Created /Users/k.ohashi/code/clj-demo/target/uberjar/clj-demo-0. 1.0-SNAPSHOT.jar Created /Users/k.ohashi/code/clj-demo/target/uberjar/clj-demo-0. 1.0-SNAPSHOT-standalone.jar $ java -jar target/uberjar/clj-demo-0.1.0-SNAPSHOT-standalone.ja r Hello, World!

Slide 18

Slide 18 text

Clojure REPL

Slide 19

Slide 19 text

evaluate expressions clj-demo.core=> (map inc [0 1 2]) (1 2 3) clj-demo.core=> (println (map inc [0 1 2])) (1 2 3) nil

Slide 20

Slide 20 text

clojure.repl/doc prints documentation clj-demo.core=> (doc map) ------------------------- clojure.core/map ([f] [f coll] [f c1 c2] [f c1 c2 c3] [f c1 c2 c3 & colls]) Returns a lazy sequence consisting of the result of applying f to the set of first items of each coll, followed by applying f to the set of second items in each coll, until any one of the colls is exhausted. Any remaining items in other colls are ignored. Function f should accept number-of-colls arguments. Returns a transducer when no collection is provided. nil

Slide 21

Slide 21 text

clojure.repl/source prints source code clj-demo.core=> (source map) (defn map "Returns a lazy sequence consisting of the result of applying f to the set of first items of each coll, followed by applying f to the set of second items in each coll, until any one of the colls is exhausted. Any remaining items in other colls are ignored. Function f should accept number-of-colls arguments. Returns a transducer when no collection is provided." {:added "1.0" :static true} ([f] (fn [rf] (fn ([] (rf)) ([result] (rf result)) ([result input] (rf result (f input))) ([result input & inputs] (rf result (apply f input inputs))))))

Slide 22

Slide 22 text

clojure.core/*1, *2, *3 special vars bound to the most recent values printed clj-demo.core=> 21 21 clj-demo.core=> 2 2 clj-demo.core=> (* *2 *1) 42

Slide 23

Slide 23 text

clojure.core/*e special var bound to the most recent exception caught by the REPL clj-demo.core=> (+ 1 "2") ClassCastException java.lang.String cannot be cast to java.lang.Number clj-demo.core=> *e #error { :cause "java.lang.String cannot be cast to java.lang.Number" :via [{:type java.lang.ClassCastException :message "java.lang.String cannot be cast to java.lang.Number" :at [clojure.lang.Numbers add "Numbers.java" 128]}] :trace [[clojure.lang.Numbers add "Numbers.java" 128] [clojure.lang.Numbers add "Numbers.java" 3640] [clj_demo.core$eval1328 invokeStatic "form-init3161334546666357405.cl [clj_demo.core$eval1328 invoke "form-init3161334546666357405.clj" 1] [clojure.lang.Compiler eval "Compiler.java" 6927] [clojure.lang.Compiler eval "Compiler.java" 6890] [clojure.core$eval invokeStatic "core.clj" 3105]

Slide 24

Slide 24 text

search documentation clojure.repl/find-doc clojure.repl/apropos clojure.java.javadoc/javadoc

Slide 25

Slide 25 text

Lisp editing

Slide 26

Slide 26 text

Lisp editing plugins Parinfer ParEdit

Slide 27

Slide 27 text

Parinfer automatically adjust parentheses when editing indentation (Indent mode), indentation when editing parentheses (Paren mode)

Slide 28

Slide 28 text

e.g. Atom with Parinfer

Slide 29

Slide 29 text

(

Slide 30

Slide 30 text

defn␣my-map␣ [ f␣coll

Slide 31

Slide 31 text

⌘-

Slide 32

Slide 32 text

(

Slide 33

Slide 33 text

when-let␣ [ s␣ ( seq␣coll

Slide 34

Slide 34 text

⌘-

Slide 35

Slide 35 text

(

Slide 36

Slide 36 text

cons␣ ( f␣ ( first␣s

Slide 37

Slide 37 text

⌘-

Slide 38

Slide 38 text

(

Slide 39

Slide 39 text

my-map␣f␣ ( rest␣s

Slide 40

Slide 40 text

⌘-

Slide 41

Slide 41 text

(

Slide 42

Slide 42 text

lazy-seq

Slide 43

Slide 43 text

Slide 44

Slide 44 text

ParEdit semi-automatically adjust parentheses and indentation cf. Smartparens

Slide 45

Slide 45 text

e.g. Emacs with ParEdit

Slide 46

Slide 46 text

(

Slide 47

Slide 47 text

defn␣my-map␣ [ f␣coll

Slide 48

Slide 48 text

)

Slide 49

Slide 49 text

Slide 50

Slide 50 text

(

Slide 51

Slide 51 text

when-let␣ [ s␣ ( seq␣coll

Slide 52

Slide 52 text

) )

Slide 53

Slide 53 text

(

Slide 54

Slide 54 text

cons␣ ( f␣ ( first␣s

Slide 55

Slide 55 text

) )

Slide 56

Slide 56 text

Slide 57

Slide 57 text

( my-map␣f␣ ( rest␣s

Slide 58

Slide 58 text

--u --u --u --u

Slide 59

Slide 59 text

-(

Slide 60

Slide 60 text

lazy-seq

Slide 61

Slide 61 text

REPL-driven Development in Practice

Slide 62

Slide 62 text

Course A: Course B: Clojure Koans 4Clojure

Slide 63

Slide 63 text

Clojure Koans cf. ClojureScript Koans

Slide 64

Slide 64 text

Clone the repository $ git clone git://github.com/functional-koans/clojure-koans.git Cloning into 'clojure-koans'... remote: Counting objects: 1590, done. remote: Compressing objects: 100% (7/7), done. remote: Total 1590 (delta 2), reused 4 (delta 1), pack-reused 15 80 Receiving objects: 100% (1590/1590), 269.87 KiB | 651.00 KiB/s, done. Resolving deltas: 100% (755/755), done.

Slide 65

Slide 65 text

Run koans $ cd clojure-koans/ $ lein koan run Starting auto-runner... Considering /Users/k.ohashi/code/clojure-koans/src/koans/01_equa lities.clj... Now meditate upon /Users/k.ohashi/code/clojure-koans/src/koans/0 1_equalities.clj --------------------- Assertion failed! clojure.lang.ExceptionInfo: We shall contemplate truth by testin g reality, via equality (= __ true) {:line 6}, compiling:(/Users/k.ohashi/code/clojure-k oans/src/koans/01_equalities.clj:4:1)

Slide 66

Slide 66 text

Open a source le with your favourite editor $ emacs src/koans/01_equalities.clj

Slide 67

Slide 67 text

Start Clojure REPL

Slide 68

Slide 68 text

Evaluate S-expressions

Slide 69

Slide 69 text

No content

Slide 70

Slide 70 text

No content

Slide 71

Slide 71 text

Send S-expressions to REPL

Slide 72

Slide 72 text

No content

Slide 73

Slide 73 text

No content

Slide 74

Slide 74 text

No content

Slide 75

Slide 75 text

No content

Slide 76

Slide 76 text

No content

Slide 77

Slide 77 text

Save changes and check the meditation result ... Now meditate upon /Users/k.ohashi/code/clojure-koans/src/koans/0 1_equalities.clj --------------------- Assertion failed! clojure.lang.ExceptionInfo: You can test equality of many things (= (+ 3 4) 7 (+ 2 __)) {:line 12}, compiling:(/Users/k.ohashi/co de/clojure-koans/src/koans/01_equalities.clj:4:1)

Slide 78

Slide 78 text

4Clojure

Slide 79

Slide 79 text

Open a new buffer with your favourite editor $ emacs clj-demo/src/clj_demo/4clojure/problem22.clj

Slide 80

Slide 80 text

Start Clojure REPL

Slide 81

Slide 81 text

e.g. Count a Sequence Problem #22 Write a function which returns the total number of elements in a sequence. (= (__ '(1 2 3 3 1)) 5) (= (__ "Hello World") 11) (= (__ [[1 2] [3 4] [5 6]]) 3) (= (__ '(13)) 1) (= (__ '(:a :b :c)) 3) Special Restrictions: count

Slide 82

Slide 82 text

Write a function

Slide 83

Slide 83 text

Evaluate S-expressions

Slide 84

Slide 84 text

No content

Slide 85

Slide 85 text

No content

Slide 86

Slide 86 text

No content

Slide 87

Slide 87 text

No content

Slide 88

Slide 88 text

No content

Slide 89

Slide 89 text

Send S-expressions to REPL

Slide 90

Slide 90 text

No content

Slide 91

Slide 91 text

No content

Slide 92

Slide 92 text

No content

Slide 93

Slide 93 text

No content

Slide 94

Slide 94 text

No content

Slide 95

Slide 95 text

No content

Slide 96

Slide 96 text

Run your solution on the problem page (fn my-count [coll] (reduce (fn [n _] (inc n)) 0 coll))

Slide 97

Slide 97 text

Enjoy REPL-driven development!

Slide 98

Slide 98 text

Further Reading

Slide 99

Slide 99 text

Clojure & ClojureScript build tool Clojure ClojureScript Leiningen

Slide 100

Slide 100 text

editor plugins/settings Clojure develompent Emacs cf. CIDER Clojure 初⼼者のための Emacs 設定作りました 新: Emacs を使うモダンな Clojure 開発環境 Spacemacs Clojure layer Clojure development with Spacemacs & Cider

Slide 101

Slide 101 text

IntelliJ IDEA Atom Cursive IntelliJ IDEA と Cursive で始める — Clojure の⽇ 本語ガイド Atom Clojure Setup ClojureやりたいけどEmacsは厳しい⼈のための proto-repl⼊⾨

Slide 102

Slide 102 text

Vim Visual Studio Code Sublime Text fireplace.vim clojureVSCode SublimeClojureSetup

Slide 103

Slide 103 text

Lisp editing Parinfer ParEdit ParEdit チュートリアル Paredit Cheatsheet The Animated Guide to Paredit Lispってどう書くの? - Qiita Smartparens

Slide 104

Slide 104 text

REPL-driven development Re:REPL-Driven Development REPL Driven Development REPL Driven Development and Testing in Clojure