, Andrew Savige wrote:
>> This series is now complete with the addition of two bonus episodes:
>>
>> * http://www.perlmonks.org/?node_id=811919 (Part V)
>> * http://www.perlmonks.org/?node_id=814900 (Part VI)
>
> One more: http://www.perlmonks.org/?node_id=903641
>
> Cheers
> /-\
>
--
Jasper
2009/6/24 Daniel Tiefnig :
>
> perl -00 -ne'/.{65535}/||print'
>
of course becomes
perl -00 -pe'$_ x=!/.{65535}/'
--
Jasper
Thanks for wasting my Sunday! And it's sunny! Son of a ...
--
Jasper
d can at least be shortened to this at the cost of one dollar:
> perl -le 'print+(grep{/[mackrel]/}<>)/$.' < sowpods
Shorter, with still one dollar. (actually, only shorter because you
have grep{} instead of grep with a comma, so the same)
perl -alp0e '$_=(grep/[mackrel]/,@F)/@F' < sowpods
Without the dollar, it's a bit longer, of course.
perl -aln0e 'print+(grep/[mackrel]/,@F)/@F' < sowpods
But that is the best I can do..
--
Jasper
(I'll send the tested one to the list, Phil)
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?
--
Jasper
2008/5/30 Randal L. Schwartz <[EMAIL PROTECTED]>:
>>>>>> "Jasper" == Jasper <[EMAIL PROTECTED]> writes:
>
> Jasper> Well, that was a big assumption, then.
>
> Keep in mind, "obvious" to you is very unlikely "obvious" t
2008/5/27 Bram <[EMAIL PROTECTED]>:
> On Tue, 27 May 2008 13:27:54 +0200, Jasper <[EMAIL PROTECTED]> wrote:
>
>> Has anyone been golfing the google challenges?
>
> What challenges?
Well, that was a big assumption, then.
http://treasurehunt.appspot.com/
Two so
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~~~
--
Jasper
stupid reply-to
2008/5/19 Jasper <[EMAIL PROTECTED]>:
> 2007/11/20 Tuomo Salo <[EMAIL PROTECTED]>:
>> This one has no performance issues and is even a little bit shorter. Yay!
>>
>> #!perl -l
>> $r=qr/\((??{$r})*\)/;map/^$r+$/&&print,glob"{(,)}
, but it's shorter than bass's.
Jasper
On 23/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
> On 23/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
>
> > Just thought of this.
> >
> > Probably has performance issues and is a little bit longer. Boo!
>
On 23/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
> Just thought of this.
>
> Probably has performance issues and is a little bit longer. Boo!
>
> #!perl -l
> $l=2*pop;fork?$l>$c++?$_.='(':exit:$c--?$_.=')':exit while$l--;print
>
> Doesn&#x
sues and is a little bit longer. Boo!
#!perl -l
$l=2*pop;fork?$l>$c++?$_.='(':exit:$c--?$_.=')':exit while$l--;print
Doesn't order correctly (it would if I added a wait), doesn't print
right, but everyone loves potentially killing their machine with a
fork. Can't get rid of the two exits, so there seems to be flab for
sure
--
Jasper
On 15/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
> On 15/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
> > On 15/11/2007, Phil Carmody <[EMAIL PROTECTED]> wrote:
> > > I saw this on sci.math, and thought "one liner" ;-)
> > > I even
On 15/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
>
> \$h{$_='()'x$ARGV[0]};
> \$h{$_,reverse}while s/\)(.*?)\(/$1()/;
> print for sort keys %h;
Phil points out that reverse isn't actually a mirror (and scalar
reverse makes this horribly incorrect), so it turns ou
I give up! I should learn to check before posting... This doesn't work
either. It looks like it does without counting the results, though :S
On 15/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
> On 15/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
>
> >
> > \$h{$_
On 15/11/2007, Jasper <[EMAIL PROTECTED]> wrote:
> On 15/11/2007, Phil Carmody <[EMAIL PROTECTED]> wrote:
> > 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
$i,$c,@p)[EMAIL PROTECTED];
$i?
map{f($i-1,$c+/\(/-/\)/,@p,$_)}!$c?'(':$c-$i?qw{) (}:')':
print join'',@p
}
f($ARGV[0]*2);
I suppose that will give an undef for 0...
--
Jasper
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
--
Jasper
http://www.theregister.co.uk/2007/02/02/myspace_spoofers_sue/
the same Mr Kamkar?
--
Jasper
t seemed far too
complicated to me.
Jasper
p.s.
for($f=12;$f-->0;){
surely
for($f=12;--$f;){
?
On 1/4/07, Andrew Savige <[EMAIL PROTECTED]> wrote:
It seems to me that some of the solutions are not quite correct, failing the
test case:
MD plus I
which should produce the answer MDI.
Please correct me if I'm wrong, but it seems that the shortest solutions
of szery, Sec and
On 1/2/07, Andrew Savige <[EMAIL PROTECTED]> wrote:
effort. Sorry 'bout that, Jasper. It never occurred, not in my
wildest dreams that you'd never heard of mtve's big book of golf!
Can someone send me a link? Terje's old link has expired, and there
doesn't
hanks, Samy, kept me away from
the nephew and niece for a few days.
Jasper
On 12/25/06, Ton Hospel <[EMAIL PROTECTED]> wrote:
http://www.fonality.com/golf/
They are sneakily using it for recruiting (read the rules),
but in compensation it seems to have real prizes.
--
"Sometimes a hack
(Moral from Groo The Wanderer #34 (Epic))
>From Groo? Surely this should read "most clever being is at the mercy
of the stupidest"?
--
Jasper
On 3/23/06, Philippe 'BooK' Bruhat <[EMAIL PROTECTED]> wrote:
> perl -ne'$s{$_}++||print' file
>
> with
>
> perl -ne'$$_++||print' file
>
> Three characters in one shot!
I think MTV used this in the palindrome golf, at least. So it's been
around for a while :)
Jasper
Thanks for the pointer, Schlomi. It looks like I'm a little rusty :)
(although I'm too busy at work etc. etc.).
Jasper
On 8/9/05, Shlomi Fish <[EMAIL PROTECTED]> wrote:
> There's a new Perl Mini-Golf Circle at kernelpanic.pl:
>
> http://kernelpanic.pl/perlgolf-lis
On 7/14/05, Eugene van der Pijll <[EMAIL PROTECTED]> wrote:
> Jasper schreef:
> > Not that I've played it much, but Su Doku seems to be the flavour of
> > the week here in London, and looks like a likely candidate for a
> > competition.
>
> Alas, it's be
On 7/14/05, Eugene van der Pijll <[EMAIL PROTECTED]> wrote:
> Jasper schreef:
> > Not that I've played it much, but Su Doku seems to be the flavour of
> > the week here in London, and looks like a likely candidate for a
> > competition.
>
> Alas, it'
my own and fail miserably and give up, so don't let this
get your hopes up entirely..
If anyone can see that it's a very poor idea, let me know.
Cheerio, (oh, and good work with that book, mtve)
--
Jasper
how to answer.
Nice. Perhaps it'll prompt a new compo soon :)
--
Jasper
-
>WEEKDAY(DATE(YEAR(DATE(1970,1,1)+A2/24/60/60),11,1),2)
>+
>1/24
>)
Would another cell with DATE(1970,1,1)+A2/24/60/60 in it not help matters a bit?
I know nothing about excel
--
Jasper
le he was
my golfing arch-nemesis he had no idea what I was talking about. In
fact he seemed oblivious to my existence. How humiliating. :)
Cheerio
--
Jasper
Just wondering if I'll be putting any faces to names from this list in
Belfast in a few weeks.
I'll be there, but then it's my home town, too, so I'd be bad not to show up.
--
Jasper
version 5 - I am pretty stupid
--
Jasper
{in=><<
I wonder if we'll set a record for the number of entries for tri.pl
Looking good so far.
--
Jasper
And I thought
my results were turning a bit.
as usual, impressed by the alien solutions. Now to try to figure them out...
--
Jasper
Rick Klement wrote:
>
> Phil Carmody wrote:
> >
> > Embarassment time -
> > perl -e
> > '"${s}1_${s}2"=~/(.*)\1_.*?(.*)\2$/,print$s.=1+(length$1>length$2),$/for(0..98)'
> >
> > The task was to produce the "Linus sequence" where either a 1 or a 2 is added
> > to the seed "1", such that the contiguo
x27;/
mtve has post-mortemly improved the pos setting part (he used this technique to
do something only very slightly different in his solution) to:
pos=$$_++
very clever indeed (gives a 54). If the string is 'monkey', for each iteration
pos is $monkey++, then $yeknom++, then $monkey++
acing
$p!~$_&b("$_ $p",@L)&($_-$p)=~/$_|\b[1456]$/
with
$p!~$_&($_-$p)=~/$_|\b[1456]$/&&b("$_ $p",@L)
makes the whole thing _much_ faster, but at the expense of one character - no
thanks!)
I hope that seems relatively straightforward to everyone.
I am humbled by reading ton's explanation, but not quite so humble as to not
post this ;)
Jasper
--
Kirk: Spock, the women on your planet are logical.
No other planet in the galaxy can make that claim.
hi,
@ARGV is the return from the DNA function?
i.e. @ARGV[0..9] is equivalent to DNA 0..9 , if you see what I mean?
The rules don't make this terribly clear.
Jasper
--
Junior:My hat blew off, daddy.
Buford T. Justice: I hope your goddamn head was in it.
Doff%26start%3D25
that might ( :) ) get line wrapped.
I got 71. I posted that, but I did it via google so it might take a while to
show.
Jasper
--
We can't find Osama because Arthur Andersen f**king shredded him
Hello,
Just incidentally, wouldn't isometric projection be
+
/ \
/ \
+ +
|\ /|
| \ / |
+ + +
\ | /
\|/
+
if I remember correctly from my technical drawing at school.
Jasper
--
split//,"hrja8sp7 aknouthder£ p+er.l haack er";$b=
sub{print$_[$i]if$i++%3
arkady wrote:
>
> Greetings, golfteam.
>
> please respond, is perlgolf closed (not updating) permanently?
>
Everybody seems to be playing minigolf at the moment.
http://terje.dev.webon.net/wsp/pgas/score.pl?func=rules&hole=20
38 entries! No wonder I'm so far down the
cript.
Having played a number of these it almost seems pointless to me to have even one
(let alone three or four) people spending hours a day on TPR maintenance.
Sure, TPR has books to give away, but only one (OK, two) person can win each
month. I don't think they are an incentive to play fo
#x27;.
Thank goodness Ton gave us two methods, though, because I was on 90-odd for the
other method.
Thanks to refs, and looking forward to next month!
Jasper
(who's just not back from an abandoned due to food poisoning trip to Texas)
[EMAIL PROTECTED] wrote:
>
> My name is Michael and my score is 20.
> I haven't golfed in 12 hours.
> I am hoplessly addicted to Perl Golf.
Jasper - 13
Michael - 20
Eugene - 21
Mike T - 28
Ton - 28
Yes!!! I knew I'd win one of these damn competitions sooner or
Mtv Europe wrote:
>
> Hello All!
>
> Two new minigolfs are available at http://terje.dev.webon.net/golf/
>
> Easy one ("Ordered fractions") will be finished on 2002-09-19 10:00:00 UTC
> and hard one ("Forth") on 2002-09-24 10:00:00 UTC.
I think we should have an explanation of your 71.
Jaspe
aces (if the
> system clock is correct), but not for all times. In particular, it should fail
> beginning April 17, 2033.
$n=1
has the advantages of being shorter and valid for those tournaments run
in the 2040s (barring syntax changes!) :)
Jasper
--
Rob:Man, I couldn't do t
am doped up on codeine after
breaking both arms (so one was only chipped, sue me), and didn't spend
too long on it.
jasper
hmmm, just looked at leaderboard. not threatening anyone. drat.
--
Neil, is it really necessary to nail the plates to the table? What
happens
when we want to play Mono
Jasper McCrea wrote:
>
> Probably too soon for everyone, but a simple one.
>
> given a line number on the command line, print out that line from
> Pascal's triangle. Single space separated numbers, nothing but a \n at
> the end, you know the drill.
>
> I have a
Phil Carmody wrote:
>
> --- Jasper McCrea <[EMAIL PROTECTED]> wrote:
> > Michael W Thelen wrote:
> > >
> > > On Wed, Jul 10, 2002 at 12:47:40PM +0100, Jasper McCrea wrote:
> > > > given a line number on the command line, print out that line
Michael W Thelen wrote:
>
> On Wed, Jul 10, 2002 at 12:47:40PM +0100, Jasper McCrea wrote:
> > given a line number on the command line, print out that line from
> > Pascal's triangle. Single space separated numbers, nothing but a \n at
> > the end, you know the dr
Probably too soon for everyone, but a simple one.
given a line number on the command line, print out that line from
Pascal's triangle. Single space separated numbers, nothing but a \n at
the end, you know the drill.
I have a 53, but it seems very flabby.
Jasper
Ala Qumsieh wrote:
>
snip
>
> ## This can be re-written as:
> ## while (/\S+/g) {
> ## if (!/ \Q$&\E\n/) {
> ## print $&;
> ## s/^\Q$&\E\s//mg;
> ## }
> ## }
> ##
I didn't realise that a while loop like this is restarted if $_ changes.
I attempt
milar tack. How wrong I was.
Jasper
--
sub f{$n=$g{$_[0]};for(0..19){$x=$_%4;$f->[($_-$x)/4][$x+$o]=$n%2
;$n/=2}$o+=5}@g{@a=split'','jasp another perl hacker'}=();@g{sort
keys%g}=unpack'a6'x14,'0063067943048640130262849741479834027'
..'79874096291
Jasper McCrea wrote:
>
> I'm just about to go out to the boozer, and I _need_ to know what test 23
> from tpr04b.pl version 1.8 is before I go. The waiting is killing me.
>
> Does anyone know what it is?
Amusingly, after all that waiting, my 123 passes all the new test
Julien Quint wrote:
>
> On Wed, Jul 03, 2002 at 05:45:23PM +0100, Jasper McCrea wrote:
> > I'm just about to go out to the boozer, and I _need_ to know what test 23
> > from tpr04b.pl version 1.8 is before I go. The waiting is killing me.
> >
> > Does anyone k
I'm just about to go out to the boozer, and I _need_ to know what test 23
from tpr04b.pl version 1.8 is before I go. The waiting is killing me.
Does anyone know what it is?
Jasper
--
Bender: no, YOU shut up!
> I was just waiting for my latest score to put me inside the "half Ton's
> score" barrier, when along comes version 1.8 of the test program. (1.7 no
> problem).
>
> I daresay that when it gets uploaded, I'll be in the sandtrap, and really
Hint, hint.. :)
> tearing my ha
f, I daresay, wasn't so cruel a judge...
>
I was just waiting for my latest score to put me inside the "half Ton's
score" barrier, when along comes version 1.8 of the test program. (1.7 no
problem).
I daresay that when it gets uploaded, I'll be in the sandtrap, and really
tearing my hair out.
Jasper
--
Jar-Jar makes the f**king ewoks look like Shaft
Chris Dolan wrote:
>
> my 45:
>
> #!perl -p
> y/!b/
> /;s#\d+.#$&x map{(1)x$_}$&=~/./g#eg
#!perl -pl
y/!/
/;s/(\d*)(.)/($2eq b?$":$2)x$1/eg
I believe this was my 42
Jasper
t$y>9|0;
sub g{for(@{$r{$l||d}}[2..5]){$c++;($s,$t)=@{$r{$_}};$x+=$s;$y+=$t;
$x+1&&$y+1&&${$p[$y]}[$x]=~x?return$l=$_:($x-=$s)&($y-=$t)}0}
which has a hash of little walkabout rules to walk through the paths, and
which gives up on a path if it hasn't gotten there in 99
Goddammit, I hate that reply to!
(sorry ton)
--- Begin Message ---
[EMAIL PROTECTED] wrote:
>
> And for the people who really can't stop:
>
> http://www.xs4all.nl/~thospel/golf/midigolf1.html
>
> however, do NOT post solutions on the list, only say how many strokes you
> have. This one is sti
Phil Carmody wrote:
>
> Excuse my ignorance, total newbie...
>
> What is the relation between:
> a) this list
> b) the perl golf tournament that just had the vowels/letters hole
> c) the perl golf tournament that currently is doing hamming codes
> d) the perl golf tournament that did magic squar
ngs to do this week, but usually is
mildly deranged, honest, guv' classification.
Bwaaah.
Jasper (Thinks about booking 5 days holiday for TPR05)
--
The world is full of bad men but Bobby still repeats,
"One Day a rain will come and wash the scum off of the streets."
52, and too
embarrassed by that to submit. Although posting this here might give
people a clue.
Maybe I can submit in the beginner's category. If people can move up
because of their y-index during the tournament, why can't I go down!
Jasper
--
$"='';{split//,"ajpsa onhtrep re lahkcre"}foreach(0..$#_){
unless($_%2){$_[$_]^=$_[++$_]^=$_[--$_]^=$_[++$_]}}print"@_\n"
[EMAIL PROTECTED] wrote:
>
> En op 23 may 2002 sprak Adam Spiers:
> > Jasper and I are both in London, UK (same flat, in fact).
>
> Resisting the temptation to peek over each other's shoulder
> during tournaments must be quite something to experience.
Not really. We b
mp;/g for1..pop;print$a (43)
to
s/./$& $&/gfor($/="-
")x pop;print (34)
Not too much fun. I find making up the algorithms the interesting part,
and the golfing thereof just plain frustrating.
Jasper
--
Hey sexy mama... wanna kill all humans?
--- End Message ---
push@a,$d=$ARGV[!!$l^$d==$ARGV[0]];'x
pop;print@a
but I can't get this below 79, and your final solution using this method
seems odd, and I'll have to examine it for a little while to see why it
works.
Jasper
--
Neil, is it really necessary to nail the plates to the table? What
happens
when we want to play Monopoly? Go directly to plate? Do not pass plate
nailed to the table by a stupid hippie? - Vyvyan
and disgusted.
A solution might be to give the beginners amateur status, and therefore
no prize money. They will soon promote themselves to see their overall
season money-earnings rise.
Jasper
--
Jar-Jar makes the f**king ewoks look like Shaft
--- End Message ---
submit
> his Cantor solution to exactly copy Rick's, that's up to BoB.
They should call themselves the referees, then, and have another entry
for BoB at 86. To say 'technically' something, the the opposite by 'the
true definition' sounds very odd.
Jasper
--
Vyvyan:
im for, and who cares who came up with it?
The post-mortem is the time to give out credit for all the super duper
stuff, and for BoB to reveal from whom he stole his ideas.
IMO
Jasper
--
Vyvyan: Living on Limits? What, are you on a diet?
Rick: No, I live on The Limit, Vyvyan. The Limit. Because I'm a Rider
at the Gates of Dawn and I take no prisoners.
prizes after
> a few times to the number two, or to the winning beginner, or to the
> most elegant golfer, or to the referee (hint, hint), or something.
>
The big hint I would infer from this is that if someone wins n times in a
row, they are obliged to referee the next game. I'm
t;Schrijven is schrappen." -- Godfried Bomans
>
> (To write is to delete.)
>
shorter||death
would be my preferred motto, and would make a beautiful tattoo.
Jasper
--
I am evil Homer, I am evil Homer, I am evil Homer, I am evil Homer..
Hi,
I notice that the test program has
o'shea
and
urrguay'a
therein. Methods that should pass according to the rules (Each word
consists of [a-z] only) will fail.
Shurely shome mishtake?
Jasper
not that my failing program was any great shakes, anyway
--
[Regarding The Bandit in
Dave Hoover wrote:
>
> Jasper wrote:
> > Is MTV Europe a team, or an individual, BTW?
>
> MTV Europe is an individual.
>
Thanks, Dave, I feel _so_ much better. Sheesh.
Jasper
--
Homer: I saw this in a movie about a bus that had to SPEED around a city,
keeping
g
away on my own while Bob is 30 strokes ahead, laughing at me seems quite
frustrating, but perversely amusing, I guess.
Is MTV Europe a team, or an individual, BTW?
Jasper
--
Damn you, brocolli! - Stewie Griffin
Well,
It's good to see the beginners having a go and all, but do they have to
be in the lead!?!?!
Jasper
--
It's just like the story of the grasshopper and the octopus. All year
long, the grasshopper kept burying acorns for the winter, while the
octopus mooched off his girlfriend a
Crikey,
I and a lot of others are suddenly in the sand trap.
I have no idea why. My program still passes the tests.
Jasper
--
It's like you're dreamin' about Gorgonzola cheese when it's clearly
Brie time, baby
maybe this will w0rk
--
Willie: You didn't eat all the cat food, did you?
ALF:No way! I draw the line at intestinal byproducts!
test: (I don't seem to be getting any mail)
--
Buford T. Justice: There is no way, NO way that you came from my loins.
The first thing I'm gonna do when I get home is punch
your momma in the mouth.
82 matches
Mail list logo
