mirror of
https://codeberg.org/scip/rpnc.git
synced 2025-12-17 04:21:01 +01:00
17 lines
237 B
Plaintext
17 lines
237 B
Plaintext
|
exec testrpn -d -c test.lua 3 5 lower
|
||
|
|
stdout '3\n'
|
||
|
|
|
||
|
|
-- test.lua --
|
||
|
|
function lower(a,b)
|
||
|
|
if a < b then
|
||
|
|
return a
|
||
|
|
else
|
||
|
|
return b
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
function init()
|
||
|
|
-- expects 2 args
|
||
|
|
register("lower", 2, "lower")
|
||
|
|
end
|