12345678910111213141516171819202122232425262728293031323334 |
- #!perl -T
- use utf8;
- use 5.006;
- use strict;
- use warnings;
- use Test::More;
- plan tests => 1;
- use Sidef;
- my $code = <<'EOT';
- func curry(f, *args1) {
- func (*args2) {
- f(args1..., args2...);
- }
- }
- func add(a, b) {
- a + b
- }
- var adder = curry(add, 13);
- adder(29);
- EOT
- my $sidef = Sidef->new(name => 'currying');
- my $result = $sidef->execute_code($code);
- is("$result", "42");
|