src/lib/numericMixin.slate

   1 define: #NumericMixin &parents: {Mixin}.
   2
   3 t@(NumericMixin traits) as: x@(Number traits)
   4 [
   5   t collect: #(as: n) `er
   6 ].
   7
   8 t@(NumericMixin traits) + n@(Number traits)
   9 [
  10   t collect: #(+ n) `er
  11 ].
  12
  13 t@(NumericMixin traits) + u@(NumericMixin traits)
  14 [
  15   t with: u collect: #+ `er
  16 ].
  17
  18 t@(NumericMixin traits) * n@(Number traits)
  19 [
  20   t collect: #(* n) `er
  21 ].
  22
  23 t@(NumericMixin traits) * u@(NumericMixin traits)
  24 [
  25   t with: u collect: #* `er
  26 ].
  27
  28 t@(NumericMixin traits) / n@(Number traits)
  29 [
  30   t collect: #(/ n) `er
  31 ].
  32
  33 t@(NumericMixin traits) / u@(NumericMixin traits)
  34 [
  35   t with: u collect: #/ `er
  36 ].
  37
  38 t@(NumericMixin traits) // n@(Number traits)
  39 [
  40   t collect: #(// n) `er
  41 ].
  42
  43 t@(NumericMixin traits) // u@(NumericMixin traits)
  44 [
  45   t with: u collect: #// `er
  46 ].
  47
  48 t@(NumericMixin traits) \\ n@(Number traits)
  49 [
  50   t collect: #(\\ n) `er
  51 ].
  52
  53 t@(NumericMixin traits) \\ u@(NumericMixin traits)
  54 [
  55   t with: u collect: #\\ `er
  56 ].
  57
  58 t@(NumericMixin traits) isNegative
  59 [
  60   t collect: #isNegative `er
  61 ].
  62
  63 t@(NumericMixin traits) abs
  64 [
  65   t collect: #abs `er
  66 ].
  67
  68 t@(NumericMixin traits) - x
  69 [
  70   t collect: [| :each | each + x negated]
  71 ].
  72
  73 t@(NumericMixin traits) isZero
  74 [
  75   (contents detect: [| :each | each isZero not]) isNil
  76 ].
  77
  78 c@(NumericMixin traits) min
  79 [
  80   c inject: c anyOne into: #min: `er
  81 ].
  82
  83 c@(NumericMixin traits) max
  84 [
  85   c inject: c anyOne into: #max: `er
  86 ].
  87
  88 c@(NumericMixin traits) range
  89 [
  90   c max - c min
  91 ].
  92
  93 c@(NumericMixin traits) median
  94 [
  95   (c as: SortedArray) median
  96 ].
  97
  98 c@(NumericMixin traits) average
  99 [
 100   c sum / c size
 101 ].
 102
 103 c@(NumericMixin traits) sum
 104 "Kludge to include unit'd measurement support."
 105 [
 106   (c inject: 0 into: #+ `er) - c anyOne
 107 ].
 108
 109 c@(NumericMixin traits) <= d@(NumericMixin traits)
 110 [
 111   c doWithIndex: [| :index | (c at: index) <= (d at: index)
 112     ifFalse: [^ False]].
 113   True
 114 ].
 115
 116 c@(NumericMixin traits) >= d@(NumericMixin traits)
 117 [
 118   c doWithIndex: [| :index | (c at: index) >= (d at: index)
 119     ifFalse: [^ False]].
 120   True
 121 ].
 122
 123 c@(NumericMixin traits) < d@(NumericMixin traits)
 124 [
 125   c doWithIndex: [| :index | (c at: index) < (d at: index)
 126     ifFalse: [^ False]].
 127   True
 128 ].
 129
 130 c@(NumericMixin traits) > d@(NumericMixin traits)
 131 [
 132   c doWithIndex: [| :index | (c at: index) > (d at: index)
 133     ifFalse: [^ False]].
 134   True
 135 ].