#!/usr/bin/perl -w
# Copyright 2010, 2011, 2013 Kevin Ryde
# This file is part of Math-NumSeq.
#
# Math-NumSeq is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by the
# Free Software Foundation; either version 3, or (at your option) any later
# version.
#
# Math-NumSeq is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with Math-NumSeq. If not, see <http://www.gnu.org/licenses/>.
use 5.010;
use strict;
use warnings;
use Smart::Comments;
# Language::Expr::Manual::Syntax
{
require Language::Expr;
my $le = Language::Expr->new (interpreted => 1);
$le->var (num => 123);
my $val = $le->eval(<<'HERE');
"I have $num apples"
HERE
### $val
exit 0;
}
{
require Safe;
my $safe = Safe->new;
my $str = 'axb';
$str =~ /(?<foo>x)/;
eval << 'HERE' or die;
print $+{'foo'},"\n";
1;
HERE
exit 0;
}
{
require Safe;
my $safe = Safe->new;
require Language::Expr;
my $le = new Language::Expr;
my @ret = $le->enum_vars ('123');
### @ret
exit 0;
}
{
require Language::Expr;
my $le = new Language::Expr;
$le->var('a' => 1, 'b' => 2);
# evaluate expression
say $le->eval('$a + $b');
exit 0;
}
{
my $le = Language::Expr->new (interpreted => 1);
$le->var (x => 123);
# $le->compiler->var_mapping->{'t'} = 123;
my $comp = $le->compiler;
my $perl = $comp->perl('2 * $x');
### eval: eval "my \$x = 123; $perl"
my $subr = eval "sub { my \$x = \$_[0]; $perl }" || die $@;
### $subr
### sub: $subr->(99)
exit 0;
}
{
my $le = Language::Expr->new (interpreted => 1);
$le->func (sqr => sub { $_[0] ** 2 });
$le->compiler->func_mapping->{'sqr'} = sub { $_[0] ** 2 };
### $le
### vars: $le->enum_vars('2*$x')
foreach my $i (0 .. 10) {
$le->var(x => $i);
say $i, ' ', $le->eval('2*$x');
}
exit 0;
}
{
require Language::Expr::Compiler::Perl;
my $plc = Language::Expr::Compiler::Perl->new;
### perl: $plc->perl('-123 + 2*$x')
exit 0;
}
{
require Language::Expr;
my $le = new Language::Expr;
$le->var('a' => 1, 'b' => 2);
$le->func(sqr => sub { $_[0] ** 2 });
# evaluate expression
say $le->eval('$a + sqr($b)'); # 5
exit 0;
}