Slide 1

Slide 1 text

Llama Calculus Rob Napier

Slide 2

Slide 2 text

λ Calculus Don’t be afraid (x, y) → x × x + y × y x → (y → x × x + y × y)

Slide 3

Slide 3 text

A few goals Daily tools Going Further Thinking functionally Inspiration

Slide 4

Slide 4 text

Truth in Advertising

Slide 5

Slide 5 text

The Motivating Example

Slide 6

Slide 6 text

struct Grapher { let categories = [String]() let colors = [String]() init(categories: [String], colors:[String]) { var result = [String]() for var i = 1; i < categories.count; i++ { result.append(categories[i].lowercaseString) } self.categories = result for var i = 1; i < colors.count; i++ { result.append(colors[i].lowercaseString) } } ... }

Slide 7

Slide 7 text

struct Grapher { let categories = [String]() let colors = [String]() init(categories: [String], colors:[String]) { var result = [String]() for var i = 1; i < categories.count; i++ { result.append(categories[i].lowercaseString) } self.categories = result for var i = 1; i < colors.count; i++ { result.append(colors[i].lowercaseString) } } ... }

Slide 8

Slide 8 text

struct Grapher { let categories = [String]() let colors = [String]() init(categories: [String], colors:[String]) { var result = [String]() for var i = 1; i < categories.count; i++ { result.append(categories[i].lowercaseString) } self.categories = result for var i = 1; i < colors.count; i++ { result.append(colors[i].lowercaseString) } } ... }

Slide 9

Slide 9 text

struct Grapher { let categories: [String] let colors: [String] init(categories: [String], colors:[String]) { self.categories = [String]() for var i = 1; i < categories.count; i++ { self.categories.append(categories[i].lowercaseString) } self.colors = [String]() for var i = 1; i < colors.count; i++ { self.colors.append(colors[i].lowercaseString) } } }

Slide 10

Slide 10 text

struct Grapher { let categories: [String] let colors: [String] init(categories: [String], colors:[String]) { self.categories = [String]() for var i = 1; i < categories.count; i++ { self.categories.append(categories[i].lowercaseString) } self.colors = [String]() for var i = 1; i < colors.count; i++ { self.colors.append(colors[i].lowercaseString) } } }

Slide 11

Slide 11 text

struct Grapher { let categories: [String] let colors: [String] init(categories: [String], colors:[String]) { self.categories = [String]() for category in categories { self.categories.append(category.lowercaseString) } self.colors = [String]() for color in colors { self.colors.append(color.lowercaseString) } } }

Slide 12

Slide 12 text

Thinking Functionally

Slide 13

Slide 13 text

for var i = 1; i < categories.count; i++ { self.categories.append(categories[i].lowercaseString) } for category in categories { self.categories.append(category.lowercaseString) }

Slide 14

Slide 14 text

y = x + 6 y = -x - 2 x = -4, y = 2

Slide 15

Slide 15 text

x = 5 x = 7

Slide 16

Slide 16 text

var x: Int x = 5 x = 7

Slide 17

Slide 17 text

Pure Temporary State Local Private State Global State Local Public State Good With some care Look for better ways Just don’t

Slide 18

Slide 18 text

Daily Tools

Slide 19

Slide 19 text

struct Grapher { let categories: [String] let colors: [String] init(categories: [String], colors:[String]) { self.categories = [String]() for category in categories { self.categories.append(category.lowercaseString) } self.colors = [String]() for color in colors { self.colors.append(color.lowercaseString) } } }

Slide 20

Slide 20 text

struct Grapher { let categories: [String] let colors: [String] init(categories: [String], colors:[String]) { self.categories = categories.map { $0.lowercaseString } self.colors = colors.map { $0.lowercaseString } } }

Slide 21

Slide 21 text

Maps are Functions y = x2 | x ∈ {1,2,3} let y = [1,2,3].map { x in x^2 }

Slide 22

Slide 22 text

Filter enum EmailTag { case Home; case Work; case Other } struct EmailAddress { let address: String let tag: EmailTag } struct Customer { let name: String let emails: [EmailAddress] }

Slide 23

Slide 23 text

func emails(customers: [Customer], #tag: EmailTag) -> [String] { var emails = [String]() for customer in customers { for email in customer.emails { if email.tag == tag { emails.append(email.address) } } } return emails } func emails(customers: [Customer], #tag: EmailTag) -> [String] { return join([], customers.map { customer in customer.emails .filter { $0.tag == tag } .map { $0.address } }) }

Slide 24

Slide 24 text

Laziness let ys = xs .map { $0 + 1 } .filter { $0 % 2 == 0 } .map { ... } .map { ... } .map { ... } .map { ... } .map { ... }

Slide 25

Slide 25 text

1 2 3 … f(1) = 2 f(2) = 3 f(3) = 4 … g(2) = 4 g(3) = 6 g(4) = 8 … h(4) =16 h(6) = 36 h(8) = 64 …

Slide 26

Slide 26 text

1 2 3 … f(1) f(2) f(3) … g(f(1)) g(f(2)) g(f(3)) … h(g(f(1))) h(g(f(2))) h(g(f(3))) …

Slide 27

Slide 27 text

let ys = xs .map { $0 + 1 } .filter { $0 % 2 == 0 } .map { ... } .map { ... } .map { ... } .map { ... } .map { ... }

Slide 28

Slide 28 text

let ys = lazy(xs) .map { $0 + 1 } .filter { $0 % 2 == 0 } .map { ... } .map { ... } .map { ... } .map { ... } .map { ... } let result = ys.array

Slide 29

Slide 29 text

reduce let xs = [1,3,5] let sum = xs.reduce(0, +) (((0 + 1) + 3) + 5) ((1 + 3) + 5) (4 + 5) 9

Slide 30

Slide 30 text

reduce - min/max func minMax(xs: [T]) -> (minVal: T, maxVal: T) { let seq = dropFirst(xs) let initial = (xs[0], xs[0]) return reduce(seq, initial) { (a, x) in (min(a.minVal, x), max(a.maxVal, x)) } }

Slide 31

Slide 31 text

join func emails(customers: [Customer], #tag: EmailTag) -> [String] { return join([], customers.map { customer in customer.emails .filter { $0.tag == tag } .map { $0.address } }) }

Slide 32

Slide 32 text

flatMap extension Array { func flatMap(transform: (T) -> [U]) -> [U] { return [].join(self.map(transform)) } }

Slide 33

Slide 33 text

flatMap func emails(customers: [Customer], #tag: EmailTag) -> [String] { return customers.flatMap { customer in customer.emails .filter { $0.tag == tag } .map { $0.address } } } func emails(customers: [Customer], #tag: EmailTag) -> [String] { return join([], customers.map { customer in customer.emails .filter { $0.tag == tag } .map { $0.address } }) }

Slide 34

Slide 34 text

Going Further

Slide 35

Slide 35 text

Model Property Property UITableViewDataSource tableView(cellForRowAtIndexPath) numberOfSectionsInTableView() UITableView dataSource delegate func map(transform: (T) -> U) -> [U] Array Array { (t: T) -> U in … }

Slide 36

Slide 36 text

Wikipedia Searching http://en.wikipedia.org/w/api.php? action=opensearch&format=json&search=... [ "Albert ", [ "Albert", "Alberta", "Albert Speer", "Albert Kesselring", "Albertosaurus", "Albert, Prince Consort", "Albert Ball", "Albertus Soegijapranata", "Albert Einstein", "Albert Bridge, London" ] ]

Slide 37

Slide 37 text

let queryBase = "http://en.wikipedia.org/w/api.php?" + "action=opensearch&format=json&search=" func pagesForSearch(search: String) -> [String]? { if let encoded = search .stringByAddingPercentEscapesUsingEncoding(NSUTF8StringEncoding) { if let url = NSURL(string: queryBase + encoded) { let req = NSURLRequest(URL: url) if let data = NSURLConnection.sendSynchronousRequest(req, returningResponse: nil, error: nil) { if let json: AnyObject = NSJSONSerialization .JSONObjectWithData(data, options: NSJSONReadingOptions(0), error: nil) { if let array = json as? [AnyObject] { if array.count == 2 { return array[1] as? [String] }}}}}} return nil }

Slide 38

Slide 38 text

func URLForSearch(search: String) -> NSURL? { if let encoded = search .stringByAddingPercentEscapesUsingEncoding(NSUTF8StringEncoding) { return NSURL(string: queryBase + encoded) } return nil } func DataForURL(url: NSURL) -> NSData? { return NSURLConnection.sendSynchronousRequest(NSURLRequest(URL: url), returningResponse: nil, error: nil) } func JSONForData(data: NSData) -> AnyObject? { return NSJSONSerialization.JSONObjectWithData(data, options: NSJSONReadingOptions(0), error: nil) } func ParseJSON(json: AnyObject) -> [String]? { if let array = json as? [AnyObject] { if array.count == 2 { return array[1] as? [String] }} return nil } func pagesForSearch(search: String) -> [String]? { if let url = URLForSearch(search) { if let data = DataForURL(url) { if let json: AnyObject = JSONForData(data) { return ParseJSON(json) }}} return nil }

Slide 39

Slide 39 text

if let x = f() { if let y = g(x) { if let z = h(y) { return i(z) }}} func pagesForSearch(search: String) -> [String]? { if let url = URLForSearch(search) { if let data = DataForURL(url) { if let json: AnyObject = JSONForData(data) { return ParseJSON(json) }}} return nil }

Slide 40

Slide 40 text

/// If `self == nil`, returns `nil`. /// Otherwise, returns `f(self!)`. func map(f: (T) -> U) -> U? let result = f().map(g).map(h) let result: Something? = f() let result: Something?? = f().map(g) let result: Something??? = f().map(g).map(h) if let x = f() { if let y = g(x) { if let z = h(y) { return i(z) }}}

Slide 41

Slide 41 text

func map(transform: (T) -> U ) -> [U] func flatMap(transform: (T) -> [U]) -> [U] func map(transform: (T) -> U ) -> U? func flatMap(transform: (T) -> U?) -> U? func map(transform: (T) -> U ) -> Array func flatMap(transform: (T) -> Array) -> Array func map(transform: (T) -> U ) -> Optional func flatMap(transform: (T) -> Optional) -> Optional functor = mappable monad ≈ flat-mappable

Slide 42

Slide 42 text

extension Optional { func flatMap(f: T -> U?) -> U? { if let x = self { return f(x) } else { return nil } } } extension Optional { func flatMap(f: T -> U?) -> U? { if let x = self.map(f) { return x } else { return nil } } }

Slide 43

Slide 43 text

func pagesForSearch(search: String) -> [String]? { if let url = URLForSearch(search) { if let data = DataForURL(url) { if let json: AnyObject = JSONForData(data) { return ParseJSON(json) }}} return nil } func pagesForSearch(search: String) -> [String]? { return URLForSearch(search) .flatMap(DataForURL) .flatMap(JSONForData) .flatMap(ParseJSON) }

Slide 44

Slide 44 text

func URLForSearch(search: String) -> NSURL? { if let encoded = search .stringByAddingPercentEscapesUsingEncoding(NSUTF8StringEncoding) { return NSURL(string: queryBase + encoded) } return nil } func DataForURL(url: NSURL) -> NSData? { return NSURLConnection.sendSynchronousRequest(NSURLRequest(URL: url), returningResponse: nil, error: nil) } func JSONForData(data: NSData) -> AnyObject? { return NSJSONSerialization.JSONObjectWithData(data, options: NSJSONReadingOptions(0), error: nil) } func ParseJSON(json: AnyObject) -> [String]? { if let array = json as? [AnyObject] { if array.count == 2 { return array[1] as? [String] }} return nil } func pagesForSearch(search: String) -> [String]? { if let url = URLForSearch(search) { if let data = DataForURL(url) { if let json: AnyObject = JSONForData(data) { return ParseJSON(json) }}} return nil }

Slide 45

Slide 45 text

func URLForSearch(search: String) -> NSURL? { return search .stringByAddingPercentEscapesUsingEncoding(NSUTF8StringEncoding) .flatMap { NSURL(string: queryBase + $0) } } func DataForURL(url: NSURL) -> NSData? { return NSURLConnection .sendSynchronousRequest(NSURLRequest(URL: url), returningResponse: nil, error: nil) } func JSONForData(data: NSData) -> AnyObject? { return NSJSONSerialization .JSONObjectWithData(data, options: NSJSONReadingOptions(0), error: nil) } func ParseJSON(json: AnyObject) -> [String]? { return (json as? [AnyObject]) .flatMap { $0.count == 2 ? $0 : nil } .flatMap { $0[1] as? [String] } } func pagesForSearch(search: String) -> [String]? { return URLForSearch(search) .flatMap(DataForURL) .flatMap(JSONForData) .flatMap(ParseJSON) }

Slide 46

Slide 46 text

Optional.map vs ?. class Person { var residence: Residence? } class Residence { var numberOfRooms = 1 } let john = Person() let roomCount = john.residence?.numberOfRooms let roomCount = john.residence.flatMap { $0.numberOfRooms }

Slide 47

Slide 47 text

let roomCount = john.residence?.numberOfRooms let roomCount = john .residence? .numberOfRooms

Slide 48

Slide 48 text

Inspiration

Slide 49

Slide 49 text

func ParseJSON(json: AnyObject, #error: NSErrorPointer) -> [String]? { var err: NSError? if let array = json as? [AnyObject] { if array.count == 2 { if let list = array[1] as? [String] { return list } else { err = mkError("Malformed array: \(array)") } } else { err = mkError("Array incorrect size: \(array)") } } else { err = mkError("Expected array. Received: \(json)") } if error != nil { error.memory = err } return nil } func pagesForSearch(search: String, #error: NSErrorPointer) -> [String]? { if let url = URLForSearch(search, error: error) { if let data = DataForURL(url, error: error) { if let json: AnyObject = JSONForData(data, error: error) { return ParseJSON(json, error: error) }}} return nil }

Slide 50

Slide 50 text

func pagesForSearch(search: String, error: NSErrorPointer) -> [String]? func pagesForSearch(search: String) -> Result<[String], NSError>

Slide 51

Slide 51 text

public enum Result { case Success(Box) case Failure(Box) } final public class Box { public let unbox: T public init(_ value: T) { self.unbox = value } }

Slide 52

Slide 52 text

func ParseJSON(json: AnyObject, #error: NSErrorPointer) -> [String]? { var err: NSError? if let array = json as? [AnyObject] { if array.count == 2 { if let list = array[1] as? [String] { return list } else { err = mkError("Malformed array: \(array)") } } else { err = mkError("Array incorrect size: \(array)") } } else { err = mkError("Expected array. Received: \(json)") } if error != nil { error.memory = err } return nil } func pagesForSearch(search: String, #error: NSErrorPointer) -> [String]? { if let url = URLForSearch(search, error: error) { if let data = DataForURL(url, error: error) { if let json: AnyObject = JSONForData(data, error: error) { return ParseJSON(json, error: error) }}} return nil }

Slide 53

Slide 53 text

func ParseJSON(json: AnyObject) -> Result<[String], NSError> { return Result(json as? [AnyObject], failWith: mkError("Expected array. Received: \(json)")) .flatMap { Result($0.count == 2 ? $0 : nil, failWith: mkError("Array incorrect size: \($0)"))} .flatMap { Result($0[1] as? [String], failWith: mkError("Malformed array: \($0)"))} } func pagesForSearch(search: String) -> Result<[String], NSError> { return URLForSearch(search) .flatMap(DataForURL) .flatMap(ParseJSON) } https://github.com/LlamaKit/LlamaKit

Slide 54

Slide 54 text

func login(#domain: String, #username: String, #password: String) -> Connection var connection: Connection? if let domain = d["domain"] { if let username = d["username"] { if let password = d["password"] { connection = login(domain: domain, username: username, password: password) }}}

Slide 55

Slide 55 text

func login(#domain: String?, #username: String?, #password: String?) -> Connection? { if let d = domain { if let u = username { if let p = password { return login(domain: d, username: u, password: p) }}} return nil } func login(#domain: String?, #username: String?, #password: String?) -> Connection? { return domain .flatMap { d in username .flatMap { u in password.flatMap { p in login(domain: d, username: u, password: p) }}} }

Slide 56

Slide 56 text

let data = future { DataForURL(url) } let parsedData = data .flatMap { NSString(data: $0, encoding: NSUTF8StringEncoding) } .flatMap(ParseString) .onComplete(NotifyUI)

Slide 57

Slide 57 text

Final Thoughts

Slide 58

Slide 58 text

Cautions • Don’t make expressions too long • Don’t get over-clever • Don’t forget Cocoa • Try the obvious approach, then look for patterns

Slide 59

Slide 59 text

Managing Layers GUI and State (OOP) Transformation (FP) Data (Passive and Immutable)

Slide 60

Slide 60 text

Going Further • LlamaKit: https://github.com/ LlamaKit/LlamaKit • TypeLift: https://github.com/typelift • Functional Reactive Programming: https://github.com/ReactiveCocoa/ ReactiveCocoa
 • Blogs and Books • http://chris.eidhof.nl • http://www.objc.io/books/ • http://airspeedvelocity.net • Alexandros Salazar
 http://nomothetis.svbtle.com http://robnapier.net