Add log and atan2 as builtin functions

This commit is contained in:
imaqtkatt 2024-06-13 09:06:32 -03:00
parent 4db1e68f2d
commit 893c620df9

View File

@ -108,4 +108,9 @@ sleep hi_lo = (IO/Call IO/MAGIC "PUT_TIME" hi_lo @x (IO/Done IO/MAGIC x))
# (defer_arg (defer_arg (defer_arg (defer @arg1 @arg2 @arg3 (f arg1 arg2 arg3)) arg1) arg2) arg3)
defer val = @x (x val)
defer_arg defered arg = @x (defered x arg)
undefer defered = (defered @x x)
undefer defered = (defered @x x)
# log :: f24 -> f24 -> f24
log x base = (| base x)
# atan2 :: f24 -> f24 -> f24
atan2 x y = (& x y)