Reuh/anselme
1
0
Fork 0
mirror of https://github.com/Reuh/anselme.git synced 2025-10-27 16:49:31 +00:00
Code Releases Activity

[stdlib] add math functions

Browse source
This commit is contained in:
Étienne Fildadut 2024-05-20 21:50:48 +02:00
parent dee374d42f
commit f2945d4478
3 changed files with 21 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

18
anselme/stdlib/number.lua
View file

@ -76,4 +76,22 @@ return {
end
end
},
{ "sqrt", "(x::is number)", function(state, x) return Number:new(math.sqrt(x.number)) end },
{ "abs", "(x::is number)", function(state, x) return Number:new(math.abs(x.number)) end },
{ "exp", "(x::is number)", function(state, x) return Number:new(math.exp(x.number)) end },
{ "log", "(x::is number)", function(state, x) return Number:new(math.log(x.number)) end },
{ "log", "(x::is number, base::is number)", function(state, x, base) return Number:new(math.log(x.number, base.number)) end },
{ "deg", "(x::is number)", function(state, x) return Number:new(math.deg(x.number)) end },
{ "rad", "(x::is number)", function(state, x) return Number:new(math.rad(x.number)) end },
{ "cos", "(x::is number)", function(state, x) return Number:new(math.cos(x.number)) end },
{ "sin", "(x::is number)", function(state, x) return Number:new(math.sin(x.number)) end },
{ "tan", "(x::is number)", function(state, x) return Number:new(math.tan(x.number)) end },
{ "acos", "(x::is number)", function(state, x) return Number:new(math.acos(x.number)) end },
{ "asin", "(x::is number)", function(state, x) return Number:new(math.asin(x.number)) end },
{ "atan", "(x::is number)", function(state, x) return Number:new(math.atan(x.number)) end },
{ "atan", "(y::is number, x::is number)", function(state, y, x) return Number:new((math.atan2 or math.atan)(y.number, x.number)) end },
}

6
anselme/stdlib/script.lua
View file

@ -1,5 +1,5 @@
return [[
:@script = $(name, fn=attached block!)
:@ script = $(name, fn=attached block!)
fn.:&current checkpoint => "{name}.checkpoint"!persist(false)
fn.:&reached => "{name}.reached"!persist(*{})
fn.:&run => "{name}.run"!persist(0)
@ -46,10 +46,10 @@ return [[
:@$_._(s::is script, k::is symbol) = val
(s!value).fn.(k) = val
:@$from(s::is script, a::is anchor)
:@$ from(s::is script, a::is anchor)
s.current checkpoint = a
return(s!)
:@$from(s::is script)
:@$ from(s::is script)
s.current checkpoint = ()
return(s!)

1
anselme/stdlib/symbol.lua
View file

@ -1,5 +1,4 @@
return {
{
"to string", "(symbol::is symbol)",
function(state, sym)