From tony at metracom.com Sun Mar 8 01:41:45 2015 From: tony at metracom.com (Tony) Date: Sun, 08 Mar 2015 01:41:45 -0800 Subject: [Oc-pm] March Perl Challenge posted Message-ID: <47535143.5RVlZ2GlNo@dell-server> OC Perl Mongers, The March Perl Challenge is posted on the website. Have fun! Our next meeting is March 30th. Let me know if you would like to give a talk. http://oc.pm.org/ See you in a few weeks, Tony -------------- next part -------------- An HTML attachment was scrubbed... URL: From tony at metracom.com Wed Mar 18 20:18:10 2015 From: tony at metracom.com (Tony) Date: Wed, 18 Mar 2015 20:18:10 -0700 Subject: [Oc-pm] OC Perl Mongers meeting March 30th at 7pm Message-ID: <5103702.RmmjMSLsEq@dell-server> OC Perl Mongers, We have one confirmed presentation. I have another slot if you would like to talk. Does anyone have a Raspberry Pi or Beagle Bone project that they would like to share? http://www.raspberrypi.org/ http://beagleboard.org/bone The monthly Perl challenge is posted on the website. See you at the meeting, Tony -------------- next part -------------- An HTML attachment was scrubbed... URL: From mcduffee at gmail.com Mon Mar 23 11:52:05 2015 From: mcduffee at gmail.com (David McDuffee) Date: Mon, 23 Mar 2015 11:52:05 -0700 Subject: [Oc-pm] SCaLE 13x gratitude Message-ID: I want to offer my thanks to everyone who made our Perl presence at SCaLE 13x last month such a success. Thanks to our generous corporate sponsors: 17HATS Campus Explorer Conversant Willing Minds ZipRecruiter Your support paid for the "Perl @ SCaLE" t-shirts our volunteers wore, and also enabled us to purchase and give away almost a dozen "Learning Perl" books to aspiring Perl mongers who visited our booth. You've not only supported the Perl community, but also helped it to grow. Thank you! Thanks also to the volunteers themselves: Mark D. Nagel Marco Palma Tim Bollman William Boschelli Dallas Legan Kaitlyn Parkhurst Arkadiy Sudarikov John Kirk It was my privilege to meet each of you, and see first-hand the enthusiasm with which you shared your Perl knowledge with the SCaLE attendees who visited our booth. Thank you (and please consider volunteering again next year)! Finally, I want to thank Juan Naterra, for his skillful handling of the Perl Monger presence in previous years, and his ongoing assistance and advice this year. We wouldn't have been nearly so successful without your help. Thanks, Juan! I learned a lot this year, and hope to repeat the experience next year with those lessons under my belt. Thanks, everyone! -------------- next part -------------- An HTML attachment was scrubbed... URL: From naterajj at gmail.com Thu Mar 26 14:53:30 2015 From: naterajj at gmail.com (Juan J. Natera) Date: Thu, 26 Mar 2015 14:53:30 -0700 Subject: [Oc-pm] SCaLE 13x gratitude In-Reply-To: References: Message-ID: Hi, I just wanted to chime in and add my thanks to our sponsors and volunteers, and specially to David for taking care of the whole thing, I know the Perl Mongers presence at SCALE will continue to do well and get even better thanks to your work. Juan On Mon, Mar 23, 2015 at 11:52 AM, David McDuffee wrote: > I want to offer my thanks to everyone who made our Perl presence at SCaLE > 13x last month such a success. > > Thanks to our generous corporate sponsors: > > 17HATS > Campus Explorer > Conversant > Willing Minds > ZipRecruiter > > Your support paid for the "Perl @ SCaLE" t-shirts our volunteers wore, and > also enabled us to purchase and give away almost a dozen "Learning Perl" > books to aspiring Perl mongers who visited our booth. You've not only > supported the Perl community, but also helped it to grow. Thank you! > > Thanks also to the volunteers themselves: > > Mark D. Nagel > Marco Palma > Tim Bollman > William Boschelli > Dallas Legan > Kaitlyn Parkhurst > Arkadiy Sudarikov > John Kirk > > It was my privilege to meet each of you, and see first-hand the enthusiasm > with which you shared your Perl knowledge with the SCaLE attendees who > visited our booth. Thank you (and please consider volunteering again next > year)! > > Finally, I want to thank Juan Naterra, for his skillful handling of the > Perl Monger presence in previous years, and his ongoing assistance and > advice this year. We wouldn't have been nearly so successful without your > help. Thanks, Juan! > > I learned a lot this year, and hope to repeat the experience next year > with those lessons under my belt. Thanks, everyone! > > _______________________________________________ > Oc-pm mailing list > Oc-pm at pm.org > http://mail.pm.org/mailman/listinfo/oc-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: From naterajj at gmail.com Thu Mar 26 14:56:19 2015 From: naterajj at gmail.com (Juan J. Natera) Date: Thu, 26 Mar 2015 14:56:19 -0700 Subject: [Oc-pm] [San-Diego-pm] [LA.pm] SCaLE 13x gratitude In-Reply-To: <86r3scvra8.fsf@red.stonehenge.com> References: <86r3scvra8.fsf@red.stonehenge.com> Message-ID: > Whaaat? I hope you didn't pay retail! Next time you want to do that, > let me know. I can get them at least 50% off, if not free for a > promotion. Too bad you missed the email where the idea was mentioned, but we will take you up on this offer for next year for sure. We paid amazon retail (30% off and free shipping). Juan From tony at metracom.com Mon Mar 30 00:13:14 2015 From: tony at metracom.com (Tony) Date: Mon, 30 Mar 2015 00:13:14 -0700 Subject: [Oc-pm] OC Perl meeting Monday March 30th @ 7pm Message-ID: <7896063.fTDLjxI4gH@dell-server> OC Perl Mongers, don't forget about our meeting tonight at 7pm. See you all there! http://oc.pm.org Tony -------------- next part -------------- An HTML attachment was scrubbed... URL: From bobmath11 at icloud.com Tue Mar 31 21:38:30 2015 From: bobmath11 at icloud.com (Bob Mathews) Date: Tue, 31 Mar 2015 21:38:30 -0700 Subject: [Oc-pm] pi Message-ID: <31A521F6-5456-4C38-8B51-03519E3FFBC0@icloud.com> Turns out you can speed up calculation of pi quite a bit by dividing out common factors every so often. I got a million digits in 15 minutes. -bob use strict; use warnings; use Math::GMP; my $digits = 100_000; my $gcd_interval = 10_000; $| = 1; my $a = Math::GMP->new(4); my $b = Math::GMP->new(1); my $a1 = Math::GMP->new(12); my $b1 = Math::GMP->new(4); my $p = Math::GMP->new(1); my $q = Math::GMP->new(3); my $i = $gcd_interval; LOOP: while (1) { $p += $q; $q += 2; ($a, $a1) = ($a1, $p * $a + $q * $a1); ($b, $b1) = ($b1, $p * $b + $q * $b1); unless (--$i) { $i = $gcd_interval; my $gcd = $a->bgcd($b)->bgcd($a1)->bgcd($b1); $a /= $gcd; $b /= $gcd; $a1 /= $gcd; $b1 /= $gcd; } while (1) { my $d = $a / $b; my $d1 = $a1 / $b1; last unless $d == $d1; print $d; last LOOP unless --$digits; $a = 10 * ($a - $d * $b); $a1 = 10 * ($a1 - $d1 * $b1); } }