xixixao

#(defn parting
#  "returns a String parting in a given language"
#  ([] (parting "World"))
#  ([name] (parting name "en"))
#  ([name language]
#    (condp = language
#      "en" (str "Goodbye, " name)
#      "es" (str "Adios, " name)
#      (throw (IllegalArgumentException.
#        (str "unsupported language " language))))))

xixixao

Rules (type (Map Char String))
System (record angle: Num base: (List Char) rules: Rules)

tree (fn [angle] (System angle
    {\M}
    (Map
      \M "N[-M][+M][NM]"
      \N "NN"
      \[ "["
      \] "]"

xixixao

+ (macro [x y]
  (: (Fn Num Num Num))
  (Js.binary "+" x y))

- (macro [what from]
  (: (Fn Num Num Num))
  (Js.binary "-" from what))

* (macro [x y]
  (: (Fn Num Num Num))

xixixao

{task, watch, serve} = require 'gump'
bower = require 'gulp-bower-files'
flatten = require 'gulp-flatten'
stylus = require 'gulp-stylus'
jade = require 'gulp-jade'
clean = require 'gulp-clean'

task 'default',
  'clean'
  -> watch 'sources'

xixixao

  render: ->
    _.table _,
      _.thead _,
        _.tr _,
          _.th "BV"
          _.th "x1"
          _.th "x2"
          _.th "x3"
          _.th "x4"
          _.th "RHS"

xixixao

#I = [5, 6, 7]
#matrix = [
#  [1, 10, -57, -9, -24, 0, 0, 0, 0]
#  [0, 0.5, -5.5, -2.5, 9, 1, 0, 0, 0]
#  [0, 0.5, -1.5, -0.5, 1, 0, 1, 0, 0]
#  [0, 1, 0, 0, 0, 0, 0, 1, 1]
#]

I = [4, 7, 6, 8]
matrix = [

xixixao

I = [5, 6, 7]
matrix = [
  [1, 10, -57, -9, -24, 0, 0, 0, 0]
  [0, 0.5, -5.5, -2.5, 9, 1, 0, 0, 0]
  [0, 0.5, -1.5, -0.5, 1, 0, 1, 0, 0]
  [0, 1, 0, 0, 0, 0, 0, 1, 1]
]

max = (array) ->

xixixao

I = [5, 6, 7]
matrix = [
  [1, 10, -57, -9, -24, 0, 0, 0, 0]
  [0, 0.5, -5.5, -2.5, 9, 1, 0, 0, 0]
  [0, 0.5, -1.5, -0.5, 1, 0, 1, 0, 0]
  [0, 1, 0, 0, 0, 0, 0, 1, 1]
]

max = (array) ->

xixixao

I = [5, 6, 7]
matrix = [
  [1, 10, -57, -9, -24, 0, 0, 0, 0]
  [0, 0.5, -5.5, -2.5, 9, 1, 0, 0, 0]
  [0, 0.5, -1.5, -0.5, 1, 0, 1, 0, 0]
  [0, 1, 0, 0, 0, 0, 0, 1, 1]
]

max = (array) ->