Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Hexadecimal representation of pi

by ambrus (Abbot)
on Mar 07, 2006 at 13:53 UTC ( #534919=note: print w/ replies, xml ) Need Help??


in reply to Hexadecimal representation of pi

As you're golfing, there are a few trivial modifications that can save a few characters (update: 4 characters). Omit the semicolons after the sub definitions and for loops, and change ($/*=16)%=O to $/=$/*16%O.

$|=print 3.2;sub O{8*($@-$_)+(1,4,5,6)[$:]}sub o{(-4,2,1,1)[$:]/O}while($,=++$@){for$:(0..3){ for (0..$@) {for$" (($/=1) ..$_){ $/=$/* 16%O} $,-=$/ *o}$, -=16** $_*o for-6..- 1}printf "%x",$,* 16%16}


Comment on Re: Hexadecimal representation of pi
Select or Download Code
Re^2: Hexadecimal representation of pi
by weixi (Novice) on Mar 07, 2006 at 15:04 UTC
    Thanks for the hints!

    Now that you made me aware of the semicolons after the sub definitions, I am really stunned I didn't realize those myself.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://534919]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2014-10-02 08:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (52 votes), past polls