develooper Front page | perl.fwp | Postings from December 2001

Re: The Santa Claus Golf Apocalypse

Thread Previous | Thread Next
From:
Andrew.Savige
Date:
December 6, 2001 15:01
Subject:
Re: The Santa Claus Golf Apocalypse
Message ID:
694BB7191495D51183A9005004C0B05408DFD3@ir-exchange-srv.ir.com.au
Complete alphabetical listing of all entrants in
Santa's golf game.

I will be starting a post mortem thread for each hole
within the next hour.

*** Aaron D Marasco: 148 (12 44 16 50 26) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit;
--- tail.pl ---------------------------------------------
#!/usr/bin/perl -n
@N[$.]=$_;10..($N[$.-10]='');END{print@N}
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse <>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -n
$N[$.]=$_;END{print$.&1?'':$N[$./2],$N[$./2+1]}
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl -n
END{printf"%010d\n",$.}

*** Ala Qumsieh: 92 (11 19 15 26 21) ***
--- head.pl ---------------------------------------------
#!perl -p
11..exit
--- tail.pl ---------------------------------------------
#!perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!perl
print+reverse<>
--- mid.pl  ---------------------------------------------
#!perl -p0
$_=$1while/\n(.+\n)./s
--- wc.pl   ---------------------------------------------
#!perl
printf"%010d\n",$.,<>

*** Anthony J Breeds-Taurima: 104 (11 22 15 32 24) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
@_=<>;print@_[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@_=<>;$_=$./2;print@_[$_-.5..$_]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
[<>];printf"%0.10d\n",$.

*** BooK: 95 (14 19 15 26 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11^$.||last
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -p0
$_=$1while/\n(.*\n)./s
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Brad Greenlee: 97 (14 19 15 26 23) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$.>10&&exit
--- tail.pl ---------------------------------------------
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
print reverse<>
--- mid.pl  ---------------------------------------------
@a=<>;print@a[$#a/2..@a/2]
--- wc.pl   ---------------------------------------------
[<>]&printf"%010d\n",$.

*** Csaba Raduly: 104 (11 22 15 33 23) ***
--- head.pl ---------------------------------------------
#!perl -p
11..last
--- tail.pl ---------------------------------------------
#!perl
@_=<>;print@_[-10..-1]
--- rev.pl  ---------------------------------------------
#!perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!perl -p0l12
chop;$_=$1while/\n(.*)\n/s
--- wc.pl   ---------------------------------------------
#!perl -n
}{printf"%010d\n",$.

*** Damian James: 94 (11 19 15 26 23) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..last
--- tail.pl ---------------------------------------------
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
print reverse<>
--- mid.pl  ---------------------------------------------
@z=<>;print@z[$#z/2..@z/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl -n
}{printf"%010d\n",$.

*** Dave O'Neill: 101 (11 22 15 29 24) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
@_=<>;print@_[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@a=<>;print@a[(@a-1)/2..@a/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
@_=<>;printf"%.10d\n",$.

*** Eugene van der Pijll: 89 (11 19 13 25 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl -p
$\=$_.$\}{
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -p0
$_=$1while/.^(.+)^/ms
--- wc.pl   ---------------------------------------------
printf"%010d\n",$.,<>

*** Evan A Zacks: 103 (14 19 15 33 22) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..1&&exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
print@a[(@a=<>)%2?():@a/2-1,@a/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl -lp
}{printf"%010d",$.

*** Ian Phillipps: 99 (14 19 15 26 25) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$.>10&&exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@x=<>;print@x[$#x/2..@x/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",(@x=<>)+0

*** Ian Boreham: 96 (11 19 15 28 23) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
@a=<>;print@a[$./2-.5..$./2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
[<>];printf"%.10d\n",$.

*** Japhy: 92 (11 19 15 26 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..last
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@_=<>;print@_[$#_/2..@_/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Jerome Quelin: 94 (11 19 15 28 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..last
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@_=<>;print@_[$./2-.5..$./2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Jonathan E Paton: 96 (11 19 15 29 22) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print+reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@_=<>;print@_[--$./2..++$./2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl -pl
}{printf"%.10d",$.

*** Josh Shulz: 127 (16 35 16 35 25) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
exit if $.>10
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
@a=<>;print splice @a,$.<10?-$.:-10
--- rev.pl  ---------------------------------------------
print reverse <>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@a=<>;print splice @a,$#a/2,$#a%2+1
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
@a=<>;printf "%010u\n",$.

*** Karsten Sperling: 91 (11 19 15 25 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print+reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -p0
$_=$1while/.(^.+^)/sm
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Keith C Ivey: 97 (14 21 15 25 22) ***
--- head.pl ---------------------------------------------
#! /usr/bin/perl -p
$.>10&&last
--- tail.pl ---------------------------------------------
#! /usr/bin/perl
print@{[<>]}[-10..-1]
--- rev.pl  ---------------------------------------------
#! /usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#! /usr/bin/perl -p0
$_=$1while/.(^.+)^/ms
--- wc.pl   ---------------------------------------------
#! /usr/bin/perl -lp
}{$_=7e10+$.,s$.$$

*** Mark Suter: 100 (14 22 15 26 23) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$.>10&&exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
@A=<>;print@A[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@A=<>;print@A[$#A/2..@A/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl -n
}{printf"%010d\n",$.

*** me-01@ton.iguana.be: 92 (11 19 15 26 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@F=<>;print@F[$#F/2..@F/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Michael G Schwern: 102 (14 26 15 26 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$.<11||exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl -0p
/(.*\n){0,10}\z/;$_=$&
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@a=<>;print@a[$#a/2..@a/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Michael Lambert: 105 (14 20 15 33 23) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$.>10&&exit
--- tail.pl ---------------------------------------------
print((<>)[-10..-1])
--- rev.pl  ---------------------------------------------
print reverse<>
--- mid.pl  ---------------------------------------------
@_=<>;print splice@_,$#_/2,2-@_%2
--- wc.pl   ---------------------------------------------
[<>];printf"%010d\n",$.

*** Piers Cawley: 91 (11 19 15 25 21) ***
--- head.pl ---------------------------------------------
#!perl -p
11..exit
--- tail.pl ---------------------------------------------
#!perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -p0
$_=$1while/.(^.+)^/ms
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl -lp
$#='%010g'}{$_=$.

*** Richard Proctor: 97 (11 22 15 26 23) ***
--- head.pl ---------------------------------------------
#!perl -p
11..exit
--- tail.pl ---------------------------------------------
@_=<>;print@_[-10..-1]
--- rev.pl  ---------------------------------------------
print reverse<>
--- mid.pl  ---------------------------------------------
@_=<>;print@_[$#_/2..$./2]
--- wc.pl   ---------------------------------------------
[<>];printf"%010d\n",$.

*** Rick Delaney: 91 (11 19 15 25 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..last
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -p0
$_=$1while/.^(.+)^/sm
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Rick Klement: 92 (11 19 15 26 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..last
--- tail.pl ---------------------------------------------
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
print reverse<>
--- mid.pl  ---------------------------------------------
@F=<>;print@F[$#F/2..@F/2]
--- wc.pl   ---------------------------------------------
printf"%010d\n",$.,<>

*** Robin Houston: 95 (14 19 15 26 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$.>10&&exit
--- tail.pl ---------------------------------------------
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
print reverse<>
--- mid.pl  ---------------------------------------------
@_=<>;print@_[$#_/2..@_/2]
--- wc.pl   ---------------------------------------------
printf"%010d\n",$.,<>

*** Ronald J Kimball: 92 (11 19 15 26 21) ***
--- head.pl ---------------------------------------------
#!/usr/local/bin/perl -p
11..last
--- tail.pl ---------------------------------------------
#!/usr/local/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/local/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/local/bin/perl
@n=<>;print@n[$#n/2..@n/2]
--- wc.pl   ---------------------------------------------
#!/usr/local/bin/perl
printf"%010d\n",$.,<>

*** Scott Wessels: 95 (11 22 15 26 21) ***
--- head.pl ---------------------------------------------
#!perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print((<>)[-10..$.-1])
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -p0
$_=$1while/\n(.*\n)./s
--- wc.pl   ---------------------------------------------
#!perl
printf"%010d\n",$.,<>

*** Simon Drabble: 99 (14 19 15 27 24) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$.>10&&exit
--- tail.pl ---------------------------------------------
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
print reverse<>
--- mid.pl  ---------------------------------------------
print@a[(@a=<>)/2-.5..$./2]
--- wc.pl   ---------------------------------------------
@a=<>;printf"%010d\n",$.

*** Tim Ayers: 96 (11 21 15 28 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print@{[<>]}[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@a=<>;print@a[@a/2-.5..@a/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Tony Payne: 97 (11 21 15 29 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print@{[<>]}[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -0p
$_=$1while/\n(.*\n).*\n/s
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Vladi Belperchinov-Shabanski: 98 (14 19 15 26 24) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$.>10&&last
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl -p0
$_=$1while/\n(.*\n)./s
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$_=@_=<>

*** Yanick: 94 (13 19 15 26 21) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
$_ x=$.<11
--- tail.pl ---------------------------------------------
#!/usr/bin/perl
print+(<>)[-10..-1]
--- rev.pl  ---------------------------------------------
#!/usr/bin/perl
print reverse<>
--- mid.pl  ---------------------------------------------
#!/usr/bin/perl
@F=<>;print@F[$#F/2..@F/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl
printf"%010d\n",$.,<>

*** Zed Lopez: 106 (11 22 21 26 26) ***
--- head.pl ---------------------------------------------
#!/usr/bin/perl -p
11..exit
--- tail.pl ---------------------------------------------
@a=<>;print@a[-10..-1]
--- rev.pl  ---------------------------------------------
@a=<>;print reverse@a
--- mid.pl  ---------------------------------------------
@a=<>;print@a[$#a/2..@a/2]
--- wc.pl   ---------------------------------------------
#!/usr/bin/perl -n
eof..printf"%010d\n",$.


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About