Upgrade to Pro
— share decks privately, control downloads, hide ads and more …
Speaker Deck
Features
Speaker Deck
PRO
Sign in
Sign up for free
Search
Search
Clojure@Echo 01 Структуры данных, полиморфизм, ...
Search
Nikita Prokopov
July 10, 2012
Programming
3
290
Clojure@Echo 01 Структуры данных, полиморфизм, интероп
Структуры данных, полиморфизм, интероп
Nikita Prokopov
July 10, 2012
Tweet
Share
More Decks by Nikita Prokopov
See All by Nikita Prokopov
DataScript for Web Development
tonsky
1
6.2k
Калифорнийский стартап в России @ NSU
tonsky
1
270
Clojure@Codefest 2013
tonsky
14
1.7k
Clojure@NSU 01
tonsky
1
770
Clojure@NSU 00
tonsky
2
960
Clojure@Echo 02 Библиотеки, web-стек, ClojureScript
tonsky
3
530
Clojure@Echo 00 обзор, concurrency
tonsky
3
480
Юзабилити инструментов разработчика
tonsky
0
180
Other Decks in Programming
See All in Programming
兎に角、コードレビュー
mitohato14
0
170
個人軟體時代
ethanhuang13
0
280
AIレビュアーをスケールさせるには / Scaling AI Reviewers
technuma
2
240
HTMLの品質ってなんだっけ? “HTMLクライテリア”の設計と実践
unachang113
1
660
The state patternの実践 個人開発で培ったpractice集
miyanokomiya
0
160
Rancher と Terraform
fufuhu
2
180
Updates on MLS on Ruby (and maybe more)
sylph01
1
170
DockerからECSへ 〜 AWSの海に出る前に知っておきたいこと 〜
ota1022
5
1.9k
開発チーム・開発組織の設計改善スキルの向上
masuda220
PRO
18
9.6k
The Past, Present, and Future of Enterprise Java
ivargrimstad
0
130
MCPとデザインシステムに立脚したデザインと実装の融合
yukukotani
2
1k
Ruby Parser progress report 2025
yui_knk
1
260
Featured
See All Featured
Producing Creativity
orderedlist
PRO
347
40k
個人開発の失敗を避けるイケてる考え方 / tips for indie hackers
panda_program
111
20k
How GitHub (no longer) Works
holman
315
140k
The Art of Delivering Value - GDevCon NA Keynote
reverentgeek
15
1.6k
Building Better People: How to give real-time feedback that sticks.
wjessup
368
19k
Understanding Cognitive Biases in Performance Measurement
bluesmoon
29
1.9k
How to Think Like a Performance Engineer
csswizardry
26
1.9k
It's Worth the Effort
3n
187
28k
ピンチをチャンスに:未来をつくるプロダクトロードマップ #pmconf2020
aki_iinuma
126
53k
Optimising Largest Contentful Paint
csswizardry
37
3.4k
Build your cross-platform service in a week with App Engine
jlugia
231
18k
Java REST API Framework Comparison - PWX 2021
mraible
33
8.8k
Transcript
Echo // Ульяновск, 2012 # Clojure@Echo 01 clojure.org
Echo // Ульяновск, 2012 # Числа Long 1 Ratio 1/3
Double 1.0 BigInt 36786883868216818816N BigDecimal 3.14159265358M
Echo // Ульяновск, 2012 # Числа ## Операции Нормальное равенство:
(== 1 1.0) => true Проверка на переполнение: + - * / quot rem Авто-promoting: +’ -’ *’ inc’ dec’ Без проверок: unchecked-add…
Echo // Ульяновск, 2012 # Строки и символы java.lang.String “abc”
java.lang.Character \a \b \c
Echo // Ульяновск, 2012 # Keywords (:abc mymap) <=> (mymap
:abc) <=> (get mymap :abc) (:abc mymap 0) <=> (mymap :abc 0) <=> (get mymap :abc 0)
Echo // Ульяновск, 2012 # Коллекции + Иммутабельны + Персистентны
+ Шарят структуру + Гарантии по скорости + Interop в Джаву (как родные) + Абстрактные (count, conj, seq)
Echo // Ульяновск, 2012 # ISeq + Делается из любой
коллекции + Даже из Java arrays и Iterables + Могут быть ленивыми
Echo // Ульяновск, 2012 # ISeq ## Применения first rest
cons
Echo // Ульяновск, 2012 # ISeq ## Применения-2 distinct filter
remove for keep keep-indexed cons concat lazy-cat mapcat cycle interleave interpose rest next fnext nnext drop drop-while nthnext for take take-nth take-while butlast drop-last for flat- ten reverse sort sort-by shuffle split-at split-with partition partition-all partition-by map pmap mapcat for replace reductions map-indexed seque first ffirst nfirst second nth when-first last rand-nth zipmap into reduce set vec into-array to-array-2d frequen- cies group-by apply not-empty some reduce seq? eve- ry? not-every? not-any? empty? some filter doseq do- run doall realized? seq vals keys rseq subseq rsubseq lazy-seq repeatedly iterate repeat range line-seq resultset-seq re-seq tree-seq file-seq xml-seq itera-
Echo // Ульяновск, 2012 # Списки ‘(a b c) <=>
(list a b c) Быстрое добавление в начало Остальное медленно :)
Echo // Ульяновск, 2012 # Векторы [a b c] <=>
(vector 1 2 3) ([a b c] 0) <=> (get [a b c] 0) + Дерево с коэфф. ветвления 32 + Доступ по индексу O(log 32 N) + Быстрое добавление в конец + rseq
Echo // Ульяновск, 2012 # Словари (maps) {:a 1, :b
2} ({…} :a) <=> (get {…} :a) ({…} :a 0) <=> (get {…} :a 0) + Bit-partitioned hash tries + Поиск O(log 32 N) (hash-map) или O(log N) (sorted-map)
Echo // Ульяновск, 2012 # Словари (maps) ## Реализация
Echo // Ульяновск, 2012 # Словари (maps) ## Шаринг структуры
Echo // Ульяновск, 2012 # Множества #{a b c} <=>
(hash-set a b c) (#{1 2 3} 1) <=> (get #{1 2 3} 1) ==> 1 (#{1 2 3} 4) <=> (get #{1 2 3} 4) ==> nil
Echo // Ульяновск, 2012 # Мультиметоды dispath function + cases
(defmulti area (fn [shape] (get shape :type))) ;; (defmulti area :type)
Echo // Ульяновск, 2012 # Мультиметоды (defmethod area :square [this]
(* (:side this) (:side this))) (defmethod area :circle [this] (* Math/PI (:radius this) (:radius this))) (area {:type :circle, :radius 10}) (area {:type :square, :side 2})
Echo // Ульяновск, 2012 # Мультиметоды ## Диспатчинг по типу
(defmulti foo class) (defmethod foo java.lang.String [s] (format “%s” s)) (defmethod foo java.lang.Integer [i] (format “%i” i)) (defmethod foo nil [_] “nothing here”) (defmethod foo :default [_] :oops)
Echo // Ульяновск, 2012 # Протоколы Диспатчинг по типу первого
аргумента Быстрые Не создают иерархий и отношений Расширяются в любой момент
Echo // Ульяновск, 2012 # Протоколы ## Пример (defprotocol Pr
(foo [x]) (bar [x y])) (defrecord Foo [a b c] Pr (foo [x] a) (bar [x y] (+ c y)))
Echo // Ульяновск, 2012 # Протоколы ## Пример-2 (extend-protocol Pr
String (foo [x] ...) IPersistenVector (foo [x] ...) (bar [x y] ...) nil (bar [x y] ...) Object (bar [x y] ...))
Echo // Ульяновск, 2012 # Протоколы ## Пример-3 (extend-type Foo
Countable (cnt [c] ...) Pr (foo [x] ...) (bar [x y] …))
Echo // Ульяновск, 2012 # Интероп (new Date) <==> (Date.)
obj.method(args) <==> (.method obj args) (.toUpperCase “fred”) (.-prop obj) (set! (.-prop obj) v) (System/getProperty “java.vm.version”) Math/PI
Echo // Ульяновск, 2012 # Интероп ## Расширяем Джаву (proxy
MouseListener [] (onMouseClick [e] …) (onMouseOver [e] …)) (reify Object (toString [this] f))
Echo // Ульяновск, 2012 # Интероп ## Type hints (set!
*warn-on-reflection* true) (defn len [^String x] (.length x)) (defn hinted (^String [] “a“))
Echo // Ульяновск, 2012 # Интероп ## Примитивы (int …),
(float …), … aget, aset, int-array, ints… amap, areduce ^ints, ^floats, …
Echo // Ульяновск, 2012 Никита Прокопов tonsky.livejournal.com Echo, Ульяновск 12
июля 2012 aboutecho.com echorussia.ru Обсуждение лекций: tonsky.livejournal.com/tag/clojure