Everything is a closure

#!/usr/bin/perl
# Everything is a closure!
use strict;
use warnings;
sub z(@);
sub zz(&);

z(map { my $z = $_; sub { $z } }
    map ord, split(//,
        zz { substr(scalar <DATA>, 2) }))->();

sub z(@) {
    my @z;
    my $z  = sub($) { chr shift };
    my $zz = sub($) {
        push @z, do {
            sub($) {
                my $zzz = shift;
                sub { $z->($zzz) };
              }
          }
          ->(shift);
    };
    do {
        my @z = @_;
        sub {
            foreach my $z ( @z ) { $zz->($z->()); }
        }
    }->(@_);
    do {
        sub {
            foreach my $z (@z) { print $z->(); }
          }
    };
}
sub zz(&) {
    seek DATA, 0, 0;
    readline DATA;                                                    
+                 
    shift->();                                                        
+                 
}
__END__
Everything is a closure!
[download]

Update: Yes, not everything is a closure. It's actually a bunch of misdirection. I hope.

Comment on Everything is a closure Download Code

Replies are listed 'Best First'.
Re: Everything is a closure by merlyn (Sage) on Jan 20, 2005 at 20:04 UTC
I see some closures, and some simple anonymous subroutines. Not everything is a closure. I've even described how to detect when something is. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re^2: Everything is a closure by Dylan (Monk) on Jan 21, 2005 at 16:14 UTC
Yes, not everything is. It's just a joke I wrote when half dead from lack of sleep. Seemed funny at the time. And, of course, it's ugly. That is what counts, no?	[reply]
Re: Everything is a closure by BrowserUk (Patriarch) on Jan 20, 2005 at 16:24 UTC
I'm getting `substr outside of string at - line 10, <DATA> line 2. Use of uninitialized value in split at - line 10, <DATA> line 2.` [download] What did I do wrong? Update: Answer: I pasted the code directly into Perl at a command line rather than saving to a file and the running it. As the program attempts to seek on the DATA handle, it fails. Hence teh errors above. Ie. My problem not the obfu! Examine what is said, not who speaks. Silence betokens consent. Love the truth but pardon error.	[reply] [d/l]
Re^2: Everything is a closure by holli (Abbot) on Jan 20, 2005 at 19:54 UTC
did you copy the `__END__ Everything is a closure!` [download] part? i get Everything is a closure! holli, regexed monk	[reply] [d/l]
Re^3: Everything is a closure by BrowserUk (Patriarch) on Jan 20, 2005 at 19:56 UTC
Yes I did.... but I just remembered having a similar problem once before. It happens because I have a habit of pasting obfus directly into perl at a command line rather than into a file and then running them. And that is the problem again here. Run from within a file, I get that result also. Examine what is said, not who speaks. Silence betokens consent. Love the truth but pardon error.	[reply] [d/l]
Re^4: Everything is a closure by Aristotle (Chancellor) on Jan 21, 2005 at 12:11 UTC
Re^5: Everything is a closure by BrowserUk (Patriarch) on Jan 21, 2005 at 12:14 UTC