1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
import Op, Value, ValueInput, match from require 'core.base'
unpack or= table.unpack
class ReduceOp extends Op
new: => super 'num'
setup: (inputs) =>
{ first, rest } = match 'num *num', inputs
super
first: ValueInput first
rest: [ValueInput v for v in *rest]
tick: =>
{ :first, :rest } = @unwrap_all!
accum = first
for val in *rest
accum = @.fn accum, val
@out\set accum
class add extends ReduceOp
@doc: "(+ a b [c]...)
(add a b [c]...) - add values"
fn: (a, b) -> a + b
class sub extends ReduceOp
@doc: "(- a b [c]...)
(sub a b [c]...) - subtract values
subtracts all other arguments from a"
fn: (a, b) -> a - b
class mul extends ReduceOp
@doc: "(* a b [c]...)
(mul a b [c]...) - multiply values"
fn: (a, b) -> a * b
class div extends ReduceOp
@doc: "(/ a b [c]...)
(div a b [c]...) - divide values
divides a by all other arguments"
fn: (a, b) -> a / b
evenodd_op = (name, remainder) ->
class k extends Op
new: => super 'bool'
setup: (inputs) =>
{ val, div } = match 'num num?', inputs
super
val: ValueInput val
div: ValueInput div or Value.num 2
tick: =>
{ :val, :div } = @unwrap_all!
@out\set (val % div) == remainder
k.__name = name
k.doc = "(#{name} a [div]) - check for #{name} divison
div defaults to 2"
k
func_op = (name, arity, func) ->
k = class extends Op
new: => super 'num'
setup: (inputs) =>
{ params } = match '*num', inputs
assert #params == arity, "#{@} needs exactly #{arity} parameters" if arity != '*'
super [ValueInput p for p in *params]
tick: => @out\set func unpack @unwrap_all!
k.__name = name
k
mod = func_op 'mod', 2, (a, b) -> a % b
module = {
:add, '+': add
:sub, '-': sub
:mul, '*': mul
:div, '/': div
:mod, '%': mod
mix: func_op 'mix', 3, (a, b, i) -> i*b + (1-i)*a
even: evenodd_op 'even', 0
odd: evenodd_op 'odd', 1
pi: math.pi
tau: math.pi*2
huge: math.huge
}
for name, arity in pairs {
exp: 1, log: 2, log10: 1, sqrt: 1
cos: 1, sin: 1, tan: 1
asin: 1, acos: 1, atan: 1, atan2: 2
sinh: 1, cosh: 1, tanh: 1
min: '*', max: '*'
floor: 1, ceil: 1, abs: 1
}
module[name] = func_op name, arity, math[name]
module
|
