elm4ward

import Foundation

// ---------------------
// Actions
// ---------------------

typealias Closure<S> = (inout S) -> Void

/// Our Actions are basically a Tree of Nodes
/// Data for multiple args

elm4ward

import Foundation
// contramap

precedencegroup I3 { associativity: left higherThan: LogicalConjunctionPrecedence }
precedencegroup I4 { associativity: left higherThan: LogicalConjunctionPrecedence, I3 }
infix operator <!> : I4

let flag: (Bool) -> String = { $0 ? "✅" : "❌" }

elm4ward

let flag: (Bool) -> String = { $0 ? "✅" : "❌" }

// ------------------------
// Predicative
// ------------------------

protocol Predicative {
  static func + (lhs: Self, rhs: Self) -> Self
  static func * (lhs: Self, rhs: Self) -> Self
  static func gt<P: PredicateLike>(_: P.Input) -> P where P.Input: Comparable, P.Output == Self

elm4ward

import Foundation
import UIKit
import PlaygroundSupport

// --------------------------------------------------------------------------------
// MARK: - operators
// --------------------------------------------------------------------------------

precedencegroup MonoidComposePrecedence {
  associativity: left higherThan: AssignmentPrecedence lowerThan: AdditionPrecedence

elm4ward

// --------------------------------------------------------------------------------
// MARK: - Operators
// --------------------------------------------------------------------------------

precedencegroup Cobind { associativity: left }

precedencegroup Cokleisli {
  associativity: left
  higherThan: Cobind

elm4ward

// --------------------------------------------------------------------------------
// MARK: - Prerequsites
// --------------------------------------------------------------------------------

/// Compose Operator
precedencegroup BijectionGroup { associativity: left }
infix operator <> : BijectionGroup

/// Typealias for a binary function
typealias Bin<T> = (T) -> (T) -> T

elm4ward

// ------------------------------------
// Network
// ------------------------------------

struct MeetupResponse {
  var groupName: String = ""
  var groupOrganizers: [String] = []
  var meetupTitle: String = ""
  var meetupAttendes: Int = 0

elm4ward

precedencegroup Apply {
  higherThan: ComparisonPrecedence
  associativity: right
}

precedencegroup Compose {
  higherThan: Apply
}

elm4ward

import UIKit
import PlaygroundSupport

extension UIFont {

  static func font(for style: UIFontTextStyle,
                   atScale scale: CGFloat = 1,
                   usingFont fontInSize: ((CGFloat) -> UIFont)? = nil) -> UIFont {
    switch (fontInSize, scale) {

elm4ward

import UIKit


enum GraphicsCommand {
  case setColour(colour: UInt32)
  case moveTo(x: Float, y: Float)
  case lineTo(x: Float, y: Float)
}