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