Hats off to Ton and Lars!
Ton Hospel [EMAIL PROTECTED] writes:
-l $_=pop;s;.;print,s,,$*1.11%10if/\G../,eg;eg
Wow. My last fumblings where something along the lines of:
-l $_=pop;0while+print,s+.+$*111%100if/../+eg,chop
which I couldn't get to work.
Perhaps as post-mortem regarding
On Fri, 8 Mar 2002 [EMAIL PROTECTED] wrote:
Here are some statistics from the current series of games:
fwp Santa (head, tail, ...):35 players on scoreboard
irc Christmas (human sort): 11 players on scoreboard
fwp Get Even: 51 players on scoreboard
TPR Base 36:
Stephen Turner [EMAIL PROTECTED] writes:
On Fri, 8 Mar 2002 [EMAIL PROTECTED] wrote:
Here are some statistics from the current series of games:
fwp Santa (head, tail, ...):35 players on scoreboard
irc Christmas (human sort): 11 players on scoreboard
fwp Get Even:
On Fri, 08 Mar 2002 11:41:31 +0100
cizaire_liste [EMAIL PROTECTED] wrote:
: Can someone explains me why
:
: my $c = '($a=www)=~s{}{z}g;print $a\n;die';
: eval $c;
: $^O=~s{.}{$c}ee;
:
: output two lines that are different ?
: ($^O is only used to have a not empty string)
I have not studied
[EMAIL PROTECTED] wrote:
why not qf for format strings then
For some reason, I thought Schwern would be the one to suggest a queef
operator ;)
-matt
PS: that may be a US-specific bit of slang
http://google.com/search?q=a+queef+is;
En réponse à Stephen Turner [EMAIL PROTECTED]:
On Fri, 8 Mar 2002 [EMAIL PROTECTED] wrote:
Here are some statistics from the current series of games:
fwp Santa (head, tail, ...):35 players on scoreboard
irc Christmas (human sort): 11 players on scoreboard
fwp Get Even:
Someone's gonna explain these, right? Man, I love learning this kinda stuff.
Last hole, I learned about pop vs. shift (saving two strokes) and after
seeing this e-mail and playing around with Perl, I see that -l will take
care of the newline stuff for me (so I don't have to add $_\n to my
On Fri, Mar 08, 2002 at 03:16:10PM +0100, Marcelo E. Magallon wrote:
A question of my own: why doesn't
s/\B.\B/$$/g
work as I expect, namely abcd - abbccd. I really can't figure it out
by reading the docs.
Because after matching the b and the non-boundaries around it, the
Marcelo E. Magallon [EMAIL PROTECTED] wrote:
A question of my own: why doesn't
s/\B.\B/$$/g
work as I expect, namely abcd - abbccd. I really can't figure it
out by reading the docs.
I wondered that too. I figured it was because \B wouldn't match
twice at the same place, but
On Fri, Mar 08, 2002 at 10:33:26AM +, Piers Cawley wrote:
Stephen Turner [EMAIL PROTECTED] writes:
On Fri, 8 Mar 2002 [EMAIL PROTECTED] wrote:
Here are some statistics from the current series of games:
fwp Santa (head, tail, ...):35 players on scoreboard
irc Christmas
On Fri, Mar 08, 2002 at 09:30:40AM -0500, Keith C. Ivey wrote:
I wondered that too. I figured it was because \B wouldn't match
twice at the same place, but then I saw that s/\B./$$/g didn't work
as expected either.
Well, for 'abcd', it returns abbccdd with 5.004_04 (my production
version
On Fri, 8 Mar 2002 15:16:10 +0100
Marcelo E. Magallon [EMAIL PROTECTED] wrote:
: As you can see it's just a series of 1 .. 9, except for 0. With that
: in mind my first I tried something like (0,(1..9)x11)[$n]. Actually,
: before that I tried something more like (0,(1..9)x2)[$a+$b]
I liked
On Fri, Mar 08, 2002 at 12:04:15PM +0100, F.Xavier Noria wrote:
On Fri, 08 Mar 2002 11:41:31 +0100
cizaire_liste [EMAIL PROTECTED] wrote:
: Can someone explains me why
:
: my $c = '($a=www)=~s{}{z}g;print $a\n;die';
: eval $c;
: $^O=~s{.}{$c}ee;
:
: output two lines that are
On Fri, 8 Mar 2002 15:37:42 +0100 (CET)
F.Xavier Noria [EMAIL PROTECTED] wrote:
: $b was $` in my approach, I did not find a shorter way to extract the
: first digit from $` than $`'?' there, at least $` was of type string.
: and didn't need double quotes.
I meant $b was $' there.
-- fxn
En réponse à Keith C. Ivey [EMAIL PROTECTED]:
Marcelo E. Magallon [EMAIL PROTECTED] wrote:
A question of my own: why doesn't
s/\B.\B/$$/g
work as I expect, namely abcd - abbccd. I really can't figure it
out by reading the docs.
I wondered that too. I figured it was
Hats off to Ton, Lars and many others. And, thanks to Dave and Jerome
for making this happen. This was the most fun I had in a long time.
Thanks to Marcelo for the explanation.
I request others to follow with their own accounts about how they
arrived at their formula(e|s). I am especially
On Fri, Mar 08, 2002 at 03:16:10PM +0100, Marcelo E. Magallon wrote:
A question of my own: why doesn't
s/\B.\B/$$/g
work as I expect, namely abcd - abbccd. I really can't figure it out
by reading the docs.
It works as expected in perl5.005_3 and perl5.7.2. There are many subtle
Marcelo E. Magallon wrote:
A question of my own: why doesn't
s/\B.\B/$$/g
work as I expect, namely abcd - abbccd. I really can't figure it out
by reading the docs.
I ran smack into this one too.
It works on 5.005_03, but fails on 5.6.1, so I figured it's a bug.
Does anyone
Philippe 'BooK' Bruhat ([EMAIL PROTECTED]) wrote:
What you want is:
s/(?!^).(?!$)/$$/g
Now, can we shorten it?
s/\B.(?=\B)/$$/g
Except that that tickles the bug discussed elsewhere in this thread,
and is hence no use.
$ echo 1234 | perl5.6.1 -lpe 's/\B.(?=\B)/$$/g'
12234
En op 08 maart 2002 sprak Ronald J Kimball:
On Fri, Mar 08, 2002 at 10:33:26AM +, Piers Cawley wrote:
Stephen Turner [EMAIL PROTECTED] writes:
On Fri, 8 Mar 2002 [EMAIL PROTECTED] wrote:
Here are some statistics from the current series of games:
fwp Santa (head, tail,
5.6.1
abbcd
5.6.0
abbcd
5.005_03
abbccd
5.005_02
abbccd
5.004_04
abbccd
5.000
abbccd
4.0.1.6p19
abbccd
4.0.1.8p36
abbccd
Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED]
VOICE: (608) 261-5738 FAX 264-5030
Rick Klement [EMAIL PROTECTED]
Sent by: root@nodots-daemon
03/08/02 09:19 AM
Prakash Kailasa wrote:
I request others to follow with their own accounts about how they
arrived at their formula(e|s). I am especially intrigued with the
usage of hex() by Ton and Chris (I haven't looked at all the results,
so there might be others too). How the heck did you guys think of
On 3/8/02 12:18 PM, Chris Dolan [EMAIL PROTECTED] wrote:
Like others did, I built a chart
perl -le 'for$i(0..9){for$j(0..9){printf%3d,$i+$j}print}'
0 1 2 3 4 5 6 7 8 9
Speaking of charts -
May I revisit Base 36 for a moment?
I am playing around with trying to
Bart Lateur [EMAIL PROTECTED] writes:
18 9
19 1
20 2
How can one add two digits, and come up with a number larger than 18?
Sorry, my bad. I meant that as in if the input string is 20 the
output string is 2. At some point I kept thinking about this in terms
of
On Fri, 8 Mar 2002, Keith C. Ivey wrote:
I wondered that too. I figured it was because \B wouldn't match
twice at the same place, but then I saw that s/\B./$$/g didn't work
as expected either.
I fell foul of this too. It's maybe worth pointing out that m/\B./g doesn't
have the expected
I've looked quickly at all the entries up to 55 strokes, and identified the
following methods for difficult bits of the problem. Apologies for errors
and omissions!
Methods for pulling off all pairs of characters:
s/./ ___`%10+$___ /g (Ton-47, Jukka-50, Rick-51, ~Chris-53, Andrew-53,
En op 08 maart 2002 sprak Marcelo E. Magallon:
At some point I kept thinking about this in terms
of abcd - abbccd - xyz, where x=f(ab) and so on.
Me too. Did anyone else notice this:
~$ perl -le'$_=abcd;$,=,;print unpackA2XA2XA2X,$_'
ab,bc,cd
However, I couldn't make anything out of
Adam Spiers wrote:
Stephen Turner ([EMAIL PROTECTED]) wrote:
I've looked quickly at all the entries up to 55 strokes, and identified the
following methods for difficult bits of the problem. Apologies for errors
and omissions!
A nice summary :-)
Methods for looping:
[...]
`$^X
Stephen Turner wrote:
I've looked quickly at all the entries up to 55 strokes, and identified the
following methods for difficult bits of the problem. Apologies for errors
and omissions!
Methods for pulling off all pairs of characters:
s/./ ___`%10+$___ /g (Ton-47, Jukka-50, Rick-51,
Adam Spiers [EMAIL PROTECTED] writes:
decent. The rules were maybe slightly vague on this intricacy, but
couldn't you have shaved two off with this?
`./$0`
No. The rules clearly states that the scripts gets installed with
(unix) file permissions 0664 so you have to call the interpreter
In article [EMAIL PROTECTED],
Jason Purdy [EMAIL PROTECTED] writes:
Someone's gonna explain these, right? Man, I love learning this kinda stuff.
Last hole, I learned about pop vs. shift (saving two strokes) and after
seeing this e-mail and playing around with Perl, I see that -l
In article [EMAIL PROTECTED],
Eugene van der Pijll [EMAIL PROTECTED] writes:
En op 08 maart 2002 sprak Marcelo E. Magallon:
At some point I kept thinking about this in terms
of abcd - abbccd - xyz, where x=f(ab) and so on.
Me too. Did anyone else notice this:
~$ perl
Adam Spiers [EMAIL PROTECTED] writes:
Op(i=1..digits, C(i, digits)*digit[i])
One step for very unusual bindings of one ;-)
Well, I mean it like:
1234 - 1 @ 3*2 @ 3*3 @ 4 - 1
where a @ b means the funky operation we all know already and a * b is
usual multiplication.
About
33 matches
Mail list logo