modified: README.md

modified:   lib/Sidef/Object/Object.pm
new file:   utils/Experiments/Lazy/Lazy.pm	-- experiment

MANIFEST

@@ -777,6 +777,7 @@ utils/Examples/sidef_in_perl.pl
 utils/Experiments/bigint.sm
 utils/Experiments/bigrat.sm
 utils/Experiments/C-inline-function-call.pl
+utils/Experiments/Lazy/Lazy.pm
 utils/Experiments/operator_precendece.pl
 utils/Experiments/regexp_grammars_op_precedence.pl
 utils/Experiments/regexp_grammars_parser.pl

README.md

@@ -28,8 +28,8 @@ Sidef is a high-level, general-purpose programming language, inspired by Ruby, P
 
 ### WWW
 
-* Github: https://github.com/trizen/sidef
-* Gitbook: http://trizen.gitbooks.io/sidef-lang/
+* Gitbook: http://trizen.gitbooks.io/sidef-lang
+* Tutorial: https://github.com/trizen/sidef/wiki
 * RosettaCode: http://rosettacode.org/wiki/Sidef
 
 ### LICENSE AND COPYRIGHT

lib/Sidef/Object/Object.pm

@@ -75,6 +75,11 @@ package Sidef::Object::Object {
         Sidef::Variable::LazyMethod->new(obj => $self, method => $method, args => \@args);
     }
 
+    #~ sub lazy {
+    #~ my ($self) = @_;
+    #~ Sidef::Lazy::Lazy->new($self);
+    #~ }
+
     sub object_id {
         my ($self) = @_;
         Sidef::Types::Number::Number->new(Scalar::Util::refaddr($self));

utils/Experiments/Lazy/Lazy.pm

@@ -0,0 +1,48 @@
+package Sidef::Lazy::Lazy {
+
+    use 5.014;
+
+    our $AUTOLOAD;
+
+    sub new {
+        my (undef, $self) = @_;
+        bless {root => $self}, __PACKAGE__;
+    }
+
+    sub START {
+        my ($self) = @_;
+
+        my $root = $self->{root};
+
+        my @result;
+        foreach my $item (@{$root}) {
+
+            my $obj;
+            foreach my $method (@{$self->{methods}}) {
+                my $name = $method->{name};
+                $obj = Sidef::Types::Array::Array->new($item)->$name(@{$method->{arg}});
+                @{$obj} || last;
+            }
+
+            push @result, @{$obj};
+        }
+
+        Sidef::Types::Array::Array->new(@result);
+    }
+
+    sub AUTOLOAD {
+        my ($self, @arg) = @_;
+
+        my ($method) = ($AUTOLOAD =~ /^.*[^:]::(.*)$/);
+
+        push @{$self->{methods}},
+          scalar {
+                  name => $method,
+                  arg  => \@arg,
+                 };
+
+        $self;
+    }
+};
+
+1