Hi, y'all,

Can anyone beat 55 on this? I don't know if we ever did it as a
challenge. Should I search for it in the book?

I used perl "v5.8.5 built for i386-linux-thread-multi".

My data:

##################### File:color.txt

chartreuse

deeppink

goldenrod

lightblue

dodgerblue

darkgoldenrod

My scripts:

##################### File: test.pl

use strict;

use warnings;

open IN,"color.txt" or die;

while (){

chomp;

print "$_";

}

close IN;

Has anyone been golfing the google challenges?

I've got the robot one to around 74 characters (not including the 'use
Math::BigInt' :))

The other one didn't seem all that interesting in comparison..

~~~tumbleweed~~~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

"Keep On Swinging"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Great Chain [http://rs6.net/tn.jsp?e=001bTia2OQdbhzJoyecAuMdehbAb848anStrR0Y5F_vzWufXVBQgwH2a...]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

"The Trick Shot Master presents an unforgettable Golf Spectacle unlike anything
you have ever seen"

Peter Johncke "The Trick Shot Master" brings you a Golf Show unlike anything you
have ever seen.

. Peter travels all over the world with his amazing show.

For information and booking an appearance for your next event contact us by calling
or email:

The Trick Shot Master

Tel. +1-561-627-2437

E-mail: info@trickshotmaster.com [mailto:info@trickshotmaster.com]

www.trickshotmaster.com [http://rs6.net/tn.jsp?e=001bTia2OQdbhzJoyecAuMdehbAb848anStrR0Y5F_vzWufXVBQgwH2a...]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

This one has no performance issues and is even a little bit shorter. Yay!

#!perl -l
$r=qr/\((??{$r})*\)/;map/^$r+$/&&print,glob"{(,)}"x2x pop

-bass

--- Tuomo Salo wrote:

1..2*($a=pop);print

I saw this on sci.math, and thought "one liner" ;-)
I even think a DP non-recursive approach should be quite quick.
Keeping the output in the logical order might cost a few strokes.

#!/usr/bin/perl

$count = $ARGV[0];

print join "\n", pren($count), "";

sub pren
{
my @list = ();

On Aug 3, 9:35 pm, "_ G O D _" TELUS.NET> wrote:

20AP_WA_Inmate_Sex_Probe.html

ttp://seattlepi.nwsource.com/l...

/stories/articles.asp?articleID=3D12584

ttp://www.dailypress.net/stori...

Hey,

I'm looking for a list of the polish golfs, with rules and test
programs, but kernelpanic.pl, where I expected to find them, seems
reluctant to give them up.

I'm just organizizing a little intra-company golf for fun, is all, but
I don't want the overhead of creating a whole compo..

Anyone keep any of this around? Anyone know specifically of a good one
that was fun?

I suppose I could grab one of Terje's golfs that I didn't do instead...

Thanks

Mine (borrowing RJK's testing code): $1 will be the last letter (non-underscore) before or at the target location; $2 will be the first letter at or after the target location, or the last letter if no such letter exists.

for (qw/ A_Z_K_ A_____ _____K /) {
print "$_\n";
for my $n (1 .. 6) {
my $r = $n - 1;
print "$n: ";
print /^(?=.{0,$r}([^_]))?.{0,$r}.*?([^_])/
? "[$1] ($2)" : "no match";
print "\n";
}
}