Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Christmas Tree

by spmlingam (Scribe)
on Dec 03, 2008 at 10:29 UTC ( [id://727624]=obfuscated: print w/replies, xml ) Need Help??

This code will print Christmas tree 
use strict; my ($y,$z);sub tree{my $x=shift;$x=($x>0?-9:
$x);$z=( ($z=($x+5))>0?$z:-$z);printf(!$x&&++$y?"\n":$z?
$z>$y %3+$y/ 3?" ":$x<-5?"/":"\\":$y?"|":"*");$y-9?tree(
++$x):  print("  _|_|_\n")&&print("  \\___/\n");}tree(1);

[download]

Replies are listed 'Best First'.
Re: Christmas Tree
by LanX (Saint) on Jan 06, 2009 at 14:51 UTC
    some perl golfing for xmas-trees! 8 ) 
      DB<2> printf"%20d%d\n",(4**$_)x2for 1..17
                   44
                  1616
                  6464
                 256256
                10241024
                40964096
               1638416384
               6553665536
              262144262144
             10485761048576
             41943044194304
            1677721616777216
            6710886467108864
           268435456268435456
          10737418241073741824
                  -1-1
                  -1-1


  DB<3> printf'%20d%1$d'.$/,4**$_ for 1..17
                   44
                  1616
                  6464
                 256256
                10241024
                40964096
               1638416384
               6553665536
              262144262144
             10485761048576
             41943044194304
            1677721616777216
            6710886467108864
           268435456268435456
          10737418241073741824
                  -1-1
                  -1-1


  DB<4> ($x=4**$_)=~y/1-9/"/,printf"%22s%s\n",($x)x2for 1..20,0,0
                     ""
                    """"
                    """"
                   """"""
                  "0"""0""
                  "0"""0""
                 """"""""""
                 """"""""""
                """"""""""""
               "0""""""0"""""
               """""0""""""0"
              """"""""""""""""
              """0"""""""0""""
             """"""""""""""""""
            "0"""""""""0""""""""
            """"""""""""""""""""
           """"""""""""""""""""""
           """"""""""""""""""""""
          """""""0"""""""""""0""""
         "0""""""""""""0"""""""""""
                     ""
                     ""

    [download]

    UPDATE: Maybe someone knows how to further shorten the last, decorated example!

[reply]
[d/l]
      printf"%22s%s\n",$_%=21,$_=4**$_,y/0/"/cfor 1..22

      Happy New Year! :)

        Thanx, and a happy new year for you too! 8 )

        I have to admit I was confused by your example, it's important to understand that printf takes his parameters by reference and not by value!

        So it's possible to still influence $_ in the last parameter with effect for the first!

        Very insightful, thanx a lot!

        Cheers Rolf

[reply]
      ♪..♫ Last Christmas I gave you my code ... But the very next day you golfed it away...♩..♬ 

        DB<99> ($x=4**$_)=~y/1-9/"/,printf"%22s%s\n",($x)x2for 1..20,0,0
                     ""
                    """"
                    """"
                   """"""
                  "0"""0""
                  "0"""0""
                 """"""""""
                 """"""""""
                """"""""""""
               "0""""""0"""""
               """""0""""""0"
              """"""""""""""""
              """0"""""""0""""
             """"""""""""""""""
            "0"""""""""0""""""""
            """"""""""""""""""""
           """"""""""""""""""""""
           """"""""""""""""""""""
          """""""0"""""""""""0""""
         "0""""""""""""0"""""""""""
                     ""
                     ""

      [download]

      Merry Xmas, Monks and Morlocks! =)

      Cheers Rolf

      ( addicted to the Perl Programming Language)

[reply]
[d/l]
      Merry Christmas honorable monks! (push! =)

        DB<103> printf"%20d%d\n",(4**$_)x2for 1..17
                   44
                  1616
                  6464
                 256256
                10241024
                40964096
               1638416384
               6553665536
              262144262144
             10485761048576
             41943044194304
            1677721616777216
            6710886467108864
           268435456268435456
          10737418241073741824
                  -1-1
                  -1-1

      [download]

      Cheers Rolf

[reply]
[d/l]
      Merry Christmas honorable monks! (push! =)

      Cheers Rolf

[reply]
Re: Christmas Tree
by koolgirl (Hermit) on Dec 04, 2008 at 08:08 UTC
    ++! Very cute. ;)
[reply]
Re: Christmas Tree
by wol (Hermit) on Dec 08, 2008 at 11:11 UTC
    Ooh - pretty!

    But will there be slashes and backslashes all over the bottom of my console come new year?

    --
    .sig : File not found.

[reply]
Re: Christmas Tree
by hda (Chaplain) on Dec 06, 2008 at 17:33 UTC
    Very nice, indeed!
    I always wonder where do some people get their imagination to make this beautifully strange things.
[reply]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://727624]
Approved by moritz
Front-paged by Arunbear
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2024-09-19 00:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The PerlMonks site front end has:





    Results (25 votes). Check out past polls.
    Notices?
    • erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.