RosettaCodeData/Task/Function-composition/Lingo/function-composition-4.lingo

15 lines
174 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
-- in some movie script
on asin (x)
res = atan(sqrt(x*x/(1-x*x)))
if x<0 then res = -res
return res
end
on double (x)
return x*2
end
on triple (x)
return x*3
end