Andrew Savige wrote:
#!/usr/bin/perl -l
use POSIX;print strtol pop,36
I think this should work, but it prints a spurious trailing zero.
Ronald J Kimball wrote:
RTFM.
strtol String to (long) integer translation. Returns the
parsed number and the number of
On Sat, 16 Feb 2002 11:10:41 +1100
[EMAIL PROTECTED] wrote:
: Stephen Turner wrote:
: Can someone explain to me why
:
: -l use POSIX;print strtol pop,36
:
: doesn't work? Where does the extra 0 come from?
: Maybe Perl golf is useful, after all -- as a QA tool to find
: Perl bugs. :)
On Sat, 16 Feb 2002 00:40:35 +0100
Bart Lateur [EMAIL PROTECTED] wrote:
: On Fri, 15 Feb 2002 08:53:45 -0600, Dave Hoover wrote:
:
: Here is the winning solution:
:
: #!perl -l
: use POSIX;print~~strtol pop,36
:
: Boo, boo!
:
: What an anti-climax. Utterly boring.
Maybe being a
On Sat, 16 Feb 2002 11:10:17 +0100, F. Xavier Noria wrote:
: What an anti-climax. Utterly boring.
Maybe being a mathematician I am a bit formalist, but the challenge was
to use as few strokes as possible, if you didn't use strtol you lost. If
you didn't want to use strtol as an option you are
On Sat, 16 Feb 2002 11:10:17 +0100, F. Xavier Noria wrote:
: What an anti-climax. Utterly boring.
Maybe being a mathematician I am a bit formalist, but the challenge was
to use as few strokes as possible, if you didn't use strtol you lost. If
you didn't want to use strtol as an option you are
On Sat, 16 Feb 2002 11:28:51 +0100
Bart Lateur [EMAIL PROTECTED] wrote:
: On Sat, 16 Feb 2002 11:10:17 +0100, F. Xavier Noria wrote:
:
: : What an anti-climax. Utterly boring.
:
: Maybe being a mathematician I am a bit formalist, but the challenge was
: to use as few strokes as possible, if
On Sat, 16 Feb 2002 00:40:35 +0100
Bart Lateur [EMAIL PROTECTED] wrote:
: On Fri, 15 Feb 2002 08:53:45 -0600, Dave Hoover wrote:
:
: Here is the winning solution:
:
: #!perl -l
: use POSIX;print~~strtol pop,36
:
: Boo, boo!
:
: What an anti-climax. Utterly boring.
Maybe being a
In article [EMAIL PROTECTED],
[EMAIL PROTECTED] writes:
I have been involved in all 4 tournaments in the current series
(Santa, Ton, Get Even, TPR). So has Ton Hospel, and I would be
interested in hearing his opinion, as he produced both a
33-stroker and a 47-stroker in this game.
Thankyou to Dave and Jerome for running the game and for
their invitation to explain some of my weird entries.
The fwp old-hands may have yawned at my 7918-stroke entry,
but I hope it caused at least a few fwp newbies to remark
What the hell is that? or How the hell does that work?.
Let me
On Fri, 15 Feb 2002, F.Xavier Noria wrote:
Aha, is documented in perldiag:
Too late for -%s option
(X) The #! line (or local equivalent) in a Perl script
contains the -M or -m option. This is an error
because -M and -m options are not intended for
Stephen Turner wrote:
Thanks for the explanation, Andrew. I'm interested to know how
you made the picture of Eugene during your golf competition.
I found the original photo, but how do you turn that into a line
drawing to work your magic on? Do you have to do it by hand?
For that photo, I
Stephen Turner wrote:
In that case, I think there should be a separate leaderboard for
people who didn't use strtol. Just so that I could be only one
stroke off the lead, you understand. :-)
2002/02/11 19:52:29 - 46 - Karsten aka Spifff
map$.=36*$.-55+/\d/*7+ord,pop=~/./g;print$..$/
On Sat, 16 Feb 2002 [EMAIL PROTECTED] wrote:
after auto-conversion, I manually
touched it up by tracing Eugene's head onto a piece of plastic
and sticky-taping it to the screen!
This has got to be the funniest-with-Perl story I have ever heard.
--
Stephen Turner, Cambridge, UK
On Sun, 17 Feb 2002 [EMAIL PROTECTED] wrote:
Oh deary me, Stephen, you beat Spiff by two hours but forgot
that map{$expr}list could be shortened to map$expr,list.
And, in the last game, you forgot that for could go at the end.
I know, I know. I need more practice.
--
Stephen Turner,
On Samedi 16 Février 2002 14:37, Stephen Turner wrote :
On Sun, 17 Feb 2002 [EMAIL PROTECTED] wrote:
Oh deary me, Stephen, you beat Spiff by two hours but forgot
that map{$expr}list could be shortened to map$expr,list.
And, in the last game, you forgot that for could go at the end.
I
On Friday, February 15, 2002, at 06:47 PM, Stephen Turner wrote:
#!perl -l
use POSIX;print~~strtol pop,36
Well, I repeat my challenge. Can anyone beat Karsten's 46 without using
POSIX?
Hmm, maybe not...
I can get to 55 or so... But here is an expanded solution -
#!perl
while (DATA) {
On Sat, 16 Feb 2002, Jerome Quelin wrote:
Then you'll be able to practice soon: next tournament for tpr1 begins march
the 1st [...]
This may be too soon, but we are to stick with tpr issues. We hope that
you'll submit anyway.
The sooner the better!
--
Stephen Turner, Cambridge, UK
It took me a while to find the problem... when I did I was somewhat amused
--- Begin Forward ---
if (...) {
my @item_parts = split(/\n/, $item);
printf ORDER (\n%4d %-50s %3.2f %3.2f\n,
$quantity, $item_parts[0],
Hi everyone!
Uri just pointed me out to this list today and I'm glad he did :)
Well, I'd like to know if any of you are able to shorten this, I spent a
few minutes last night and this morning shortening it to 182 bytes and
I'm not sure what else can be done to it but I'm sure many of you here
Vicki Brown wrote:
It took me a while to find the problem... when I did I was somewhat amused
--- Begin Forward ---
if (...) {
my @item_parts = split(/\n/, $item);
printf ORDER (\n%4d %-50s %3.2f %3.2f\n,
Though singled out for submitting a whopping 9 entries, I could
not help but notice that specialist obfuscator BooK submitted more.
Luckily for me, however, he did not find the strtol hack, for he
would surely have tried for a T-shirt by producing a C is Perl
entry, just as he did in the 4th
On Sat, 16 Feb 2002 11:05:14 -0800, [EMAIL PROTECTED] (Vicki Brown) wrote:
It took me a while to find the problem... when I did I was somewhat amused
--- Begin Forward ---
if (...) {
my @item_parts = split(/\n/, $item);
printf ORDER (\n%4d
22 matches
Mail list logo
