Front page | perl.golf |
Postings from August 2002
Son of (-ugene's Cantor
Thread Next
From:
Andrew.Savige
Date:
August 17, 2002 00:02
Subject:
Son of (-ugene's Cantor
Message ID:
694BB7191495D51183A9005004C0B05452DF1D@ir-exchange-srv.ir.com.au
I noticed this node on PerlMonks:
http://www.perlmonks.com/index.pl?node_id=188405
which reminded of (-ugene's cantor golf game.
The program takes a single command line argument
and prints a Sierpinski Triangle Fractal.
In case anyone is bored and feels like golfing
it, here it is:
$-=1|1<<pop;print($"x$-,(map$_?'/\\':$"x2,@;),
$/),@;=(1,map$;[$_]^$;[-$_],1..@;)while$---
/-\
Thread Next
-
Son of (-ugene's Cantor
by Andrew.Savige