mirror of
https://github.com/peklaiho/madlisp.git
synced 2024-10-18 13:02:04 +00:00
18 lines
364 B
PHP
18 lines
364 B
PHP
|
<?php
|
||
|
|
|
||
|
|
require_once('classes.php');
|
||
|
|
|
||
|
|
function ml_get_env(): Env
|
||
|
|
{
|
||
|
|
$env = new Env();
|
||
|
|
|
||
|
|
// basic arithmetic
|
||
|
|
$env->set('+', fn (...$args) => array_sum($args));
|
||
|
|
$env->set('-', fn ($a, $b) => $a - $b);
|
||
|
|
$env->set('*', fn ($a, $b) => $a * $b);
|
||
|
|
$env->set('/', fn ($a, $b) => $a / $b);
|
||
|
|
$env->set('%', fn ($a, $b) => $a % $b);
|
||
|
|
|
||
|
|
return $env;
|
||
|
|
}
|