inanna-malick

/*
run as a script using `scala flyweight.scala`
expected output:
  Serving CoffeeFlavour(Espresso) to table 121
  Serving CoffeeFlavour(Cappuccino) to table 121
  Serving CoffeeFlavour(Frappe) to table 552
  Serving CoffeeFlavour(Espresso) to table 96
  Serving CoffeeFlavour(Cappuccino) to table 3
  Serving CoffeeFlavour(Espresso) to table 3
  Serving CoffeeFlavour(Frappe) to table 3

inanna-malick

How to install latest GHC 7.8.4 + cabal 1.22 on intel edison w/ ubi linux

ghc

ubilinux prerequisites

# for untar later
apt-get install bzip2
# probably all needed

apt-get install freeglut3 freeglut3-dev -y

inanna-malick

val rate = 200 millis
 
def throttled[T]: Flow[T, T] = {
  val tickSource = TickSource(rate, rate, () => () )
  val zip = Zip[T, Unit]
  val in = UndefinedSource[T]
  val out = UndefinedSink[T]
	PartialFlowGraph{ implicit builder =>
	  import FlowGraphImplicits._
	  in ~> zip.left  ~> Flow[(T,Unit)].map{ case (t, _) => t } ~> out

inanna-malick

case class Trie(v: Option[String], m: Map[Char, Trie])

def addInner(t: Trie, s: List[Char], p: String): Trie = s match {
    case c::cs => Trie(t.v, t.m.updated(c, addInner(t.m.getOrElse(c, Trie(Some(p + c), Map.empty)), cs, p + c) ))
    case Nil => t
  }

def add(t: Trie, s: String): Trie = addInner(t, s.toList, "")

def findInner(t: Trie, s: List[Char]): Option[String] = s match {

inanna-malick

//todo: use vector, scala 2:10 generic extractors. Currently using 2.9, so List has better pattern matching support
type Row = List[Option[Int]]


def shiftR(r: Row): Row = r.foldRight(Nil: Row){ 
  case (None, acc) => acc
  case (Some(x), Some(a)::as) if a == x => Some(a + x)::as
  case (Some(x), acc) => Some(x)::acc
}.padTo(4, None)