[DFW.pm] Homework for the list, and for Oct 08 meeting

Patrick R. Michaud pmichaud at pobox.com
Wed Sep 24 14:48:13 PDT 2014


Note that MAIN can be a multisub.  In other words, you can do:

  multi sub MAIN(Int :$end = 100, Int :$fizz = 3, Int :$buzz = 5) 
  { 
     ...
  }

  multi sub MAIN(Bool :$help)
  {
    say qq:to"END_USAGE";
    ...
    END_USAGE
  }


Perl 6 will select the MAIN() sub based on the options provided on the command line.

Pm


On Wed, Sep 24, 2014 at 04:19:34PM -0500, John Dexter wrote:
> Again with some TIMTOWTDI. I'm trying to learn some Perl6 so here is my
> FizzBuzz basketball attempt (definitely not golf anyway).
> 
> It's a full CLI application; complete with usage screen and some tests.
> https://github.com/PsyDefect/App-FizzBuzz.git
> 
> 
> John Dexter
> 
> On Fri, Sep 12, 2014 at 12:08 AM, kevin <kbrannen at pwhome.com> wrote:
> 
> > On 09/11/2014 02:03 PM, Tommy Butler wrote:
> > ...
> >
> >> http://rosettacode.org/wiki/FizzBuzz
> >>
> >> Is all about the modulus operator.  To do it another way might be
> >> creative but would almost certainly likely be less efficient.  The only
> >> thing I can think of that world be faster is the cheat method I saw,
> >> where you hard code into your program the known fizzes and buzzes,
> >> spitting them out at the corresponding integer positions in the 1 to 100
> >> loop.
> >>
> > ...
> >
> > You mean in the spirit of "Sieve of Eratosthenes" where you trade space of
> > complexity? That's the only way I can think of to do it without the modulus
> > operator.
> >
> > my @nums;
> > for ($i=3 ; $i <= 100 ; $i += 3) { $nums[$i]++; }
> > for ($i=5 ; $i <= 100 ; $i += 5) { $nums[$i] += 2; }
> > my @strings = (0, "Fizz", "Buzz", "FizzBuzz");
> > print (($strings[$nums[$_]] || $_) . "\n") for (1 .. 100);
> >
> > I don't think I'd call that cheating, but inefficient I'll agree with. :)
> >
> > By cheating, I assume the method where you create an array with 100
> > hard-coded values? Yeah, I go with cheating there. :)
> >
> > Kevin
> > _______________________________________________
> >
> > Dfw-pm mailing list
> > Dfw-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/dfw-pm
> >

> _______________________________________________
> Dfw-pm mailing list
> Dfw-pm at pm.org
> http://mail.pm.org/mailman/listinfo/dfw-pm



More information about the Dfw-pm mailing list