Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

It's been a while...

by ferrency (Deacon)
on Jun 26, 2003 at 06:17 UTC ( #269117=obfuscated: print w/replies, xml ) Need Help??

I haven't produced any obfu lately, but recent posts inspired me.

I'll put the code here, and basic instructions (but no solution) in a readmore.

#!/usr/local/bin/perl -w use strict; ($-) =$ /=~ s } .* } shift || $ = }ex ;$ == shift || $ =* 2/1/2/1/2/1/1; for ("japh".."joke") { push @_, @{ ([2%2/2/2, 2%2%2/2], [2%2/2%2, $/] , [$ = ,$ // 2]) [rand length substr $_, 1] }; s } (\d+) || just another perl hacker } $ 1/2 + 2 *& _* 2/2/2/2 }ex for $-, $%; sub _{pop} $_[$%][$-] = '*' } map {print $_ || $"} @$_,"\n" for @_;
This displays a sierpinski triangle in your terminal. Specify X, Y size as command line options, or hope the defaults fit in your window.

It's optimized for obfu, not for golf or for runtime. It runs in strict with warnings and was tested on Perl 5.8.0 on Mac OS X.

Thanks for your interest,
Alan

Replies are listed 'Best First'.
Re: It's been a while...
by cchampion (Curate) on Jun 26, 2003 at 10:46 UTC

    It works perfectly also on Linux (Perl 5.6.1) and Windows (ActiveState 5.6.1 and tinyperl 5.8.0)

    ++!

Re: It's been a while...
by daeve (Deacon) on Jun 26, 2003 at 15:43 UTC
    Works fine on RH9 linux with perl 5.8.0 too.

    ++ Very Cool!

    Daeve

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://269117]
Front-paged by gmax
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2019-11-14 03:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (76 votes). Check out past polls.

    Notices?