use Perl

• Happy Birthday (Score:1)

  by ferreira (5993)

  I liked the idea to change the base for telling the age. If it is not too much indiscretion, how many pumpkin years? Long live the pumpking!
  • Re: (Score:2)

    by rafael (2125)

    RTFM! it's right there in perlhist.pod !! :)))) Thanks.
    • Maturity, sarcasm and everything (Score:1)

      by ferreira (5993)

      Yeah. I keep forgetting: RTFM. Three pumpkin years to go by November 8.

      And that's Perl tenure: old fashioned alacrity like the one practiced and perfected by Randal and Schwern. With a bunch of smiles, of course, because that's rgs. (Fortunately, he's not that fierce yet.) Congratulations again!
  • Re: (Score:1)

    by grinder (1100)

    Heh, well, I guess that makes me * in ASCII :)
    
    HAPPY BIRTHDAY RAFAEL!
    • Re: (Score:1)

      by ferreira (5993)

      Funny. Ten years apart: rgs, grinder and TimToady.
• Happy Birthday (Score:2)

  by Shlomi Fish (918)

  Happy Birthday!
• Happy Birthday! (Score:1)

  by DAxelrod (4649)

  So how would you pronounce your previous age? Effteen?
  
  Happy Birthday!
• Hex Years (Score:1)

  by n1vux (1492)

  Happy Birthday!

  Yes, thank you, this is timely. I'll be turning x30 (or \060) in x0C days, but I had forgotten this was a divisible cycle. [I had noticed [perl.org] 2 years ago.]

  As an old C and PDP8/11 hack I *should* have been counting down the days ... Especially since I survied the periods of desktops with 48KB and 48MB of RAM being affordable upgrades from 32MB (64 not fitting or not affordable) and am now getting servers with 32, 48, 96, or 128GB RAM.

  (Does no one train kids to count in binary on their finger

  --
  Bill
  # I had a sig when sigs were cool
  use Sig;
  • Re:Hex Years (Ob.Perl plus OT math) (Score:1)

    by n1vux (1492)

    Rather than download a module to do arbitrary base conversion, I faked it in a one-liner, but not golfing. (If I'd used strict, it would have worked a minute quicker!)

    perl -le '@X=(0..9, 'a'..'f');
    sub d2b {my ($b,$x)=@_;
    my ($q,$r)=(int($x/$b),$x % $b);
        ($c,$q)=(int($q/$b), $q % $b);
        return ($c?$X[$c]:" ")."$X[$q]$X[$r]"; }
    $,=" ";
    while ($n = shift) {
    print $n, map {d2b($_,$n)} @B;}
    
    INIT {@B=(6..16); printf "dd";
       printf " %3d",$_ for @B;print "";
       @ARGV=eval

    --
    Bill
    # I had a sig when sigs were cool
    use Sig;