|
| Back to Perl Golf |
Referee comments are in italics. Blue rows denote golfer's best solution. Red text denotes special characters.
| Score | Golfer | Submit Time | Code |
| 34.13 | Rick Klement | Thu May 2 04:49:06 2002 | s/./$& $&/gfor($\="- ")x pop;print |
| 34.13 | Mtv Europe | Tue May 7 19:28:56 2002 | s/./$& $&/gfor($\="- ")x pop;print |
| 34.13 | Marko Nippula | Tue May 7 07:23:39 2002 | s!.!$& $&!gfor($\="- ")x pop;print |
| 34.13 | Eirik Berg Hanssen | Sat May 4 03:53:11 2002 | s/./$& $&/gfor($\="- ")x+pop;print |
| 34.13 | MeowChow | Sat May 4 01:57:18 2002 | s/./$& $&/gfor($\="- ")x+pop;print |
| 34.16 | Mtv Europe | Tue May 7 18:28:24 2002 | s/./$& $&/gfor($_="- ")x pop;print |
| where's my $.03? | |||
| 34.16 | Marko Nippula | Thu May 2 14:55:39 2002 | s,.,$& $&,gfor($_='- ')x pop;print |
| 34.16 | MeowChow | Fri May 3 23:01:21 2002 | s!.!$& $&!gfor($_='- ')x pop;print |
| 34.16 | Jay Tilton | Tue May 7 11:15:25 2002 | s/./$& $&/gfor($_="- ")x pop;print |
| 35.13 | Lolly Pop | Mon May 6 18:43:03 2002 | s/$/$"$`/for($\="- ",$")x pop;print |
| 35.16 | Jay Tilton | Sat May 4 16:48:25 2002 | s/./$& $&/gfor($_="-$/")x pop;print |
| Please shoot me. | |||
| 36.12 | Rick Klement | Thu May 2 04:37:43 2002 | s/./$& $&/gfor($\||="- ")x pop;print |
| 36.15 | Ton Hospel | Fri May 3 22:10:25 2002 | for$;(s//-
/..pop){s!.!$& $&!g}print |
| 36.15 | Chris Dolan | Tue May 7 16:09:21 2002 | for$.(s//-
/..pop){s/./$& $&/g}print |
| 36.15 | Mtv Europe | Sun May 5 09:28:55 2002 | for$$(s//-
/..pop){s/./$& $&/g}print |
| tnx 2 j0kEr for intellectual http2sms gw | |||
| 36.15 | BoB (Best of Breed - referees) | Thu May 2 10:09:02 2002 | for$/(s//-
/..pop){s!.!$& $&!g}print
|
| Not the best, but that should get us going... | |||
| 36.15 | MeowChow | Fri May 3 21:32:55 2002 | for$.(s//-
/..pop){s!.!$& $&!g}print |
| 36.17 | Jay Tilton | Fri May 3 21:20:53 2002 | -l s/./$& $&/gfor($_='-')x pop;print |
| 36.18 | Honza Pazdziora | Fri May 3 17:03:10 2002 | s!!- !;eval's/./$& $&/g;'x pop;print |
| 36.18 | Ton Hospel | Wed May 1 12:52:40 2002 | for$n(s//-
/..pop){s!.!$& $&!g}print |
| 36.18 | Ton Hospel | Wed May 1 20:36:00 2002 | s//- /;eval's!.!$& $&!g;'x pop;print |
| 36.18 | Jasper McCrea | Mon May 6 21:12:23 2002 | s//- /;eval's/./$& $&/g;'x pop;print |
| There are beginners beating me!! AIEEEE! | |||
| 36.18 | Marko Nippula | Thu May 2 10:41:13 2002 | for$i(s//-
/..pop){s/./$& $&/g}print |
| 36.18 | Juho Snellman | Sun May 5 10:17:50 2002 | s;;- ;;eval';s;.;$& $&;g'x pop;print |
| 36.18 | MeowChow | Fri May 3 20:06:42 2002 | s//- /;eval's/./$& $&/g;'x pop;print |
| 36.18 | Jerome Quelin | Thu May 2 07:17:12 2002 | s//- /;eval's/./$& $&/g;'x pop;print |
| 36.18 | Jerome Quelin | Sat May 4 14:38:51 2002 | s,,- ,,eval's,.,$& $&,g,'x pop,print |
| Poor obfuscation attempt :-( | |||
| 36.18 | Jerome Quelin | Sat May 4 14:49:45 2002 | s//- /;s/./$& $&/gfor($_)x pop;print |
| Funny, but with the same score and the same tiebreaker (argh!) :-( | |||
| 36.18 | Marcus Holland-Moritz | Thu May 2 18:03:41 2002 | s!!- !;eval's/./$& $&/g;'x+pop;print |
| 36.18 | Michiel van Leeuwen | Sat May 4 08:53:29 2002 | s//- /;eval's/./$& $&/g;'x pop;print |
| 36.18 | Bass | Fri May 3 20:36:57 2002 | s//- /;eval's/./$& $&/g;'x pop;print |
| 37.18 | Philippe 'BooK' Bruhat | Fri May 3 07:58:46 2002 | s!!-$/!;eval's/./$& $&/g;'x pop;print |
| 37.19 | Honza Pazdziora | Fri May 3 16:54:30 2002 | $_='- ';eval's/./$& $&/g;'x pop;print |
| 37.19 | Taipei.pm | Fri May 3 18:15:47 2002 | $_="- ";eval's/./$& $&/g;'x+pop;print |
| 37.19 | Kevin Cline | Thu May 2 04:06:35 2002 | $_='- ';eval's/./$& $&/g;'x pop;print |
| 37.20 | Mickut | Sun May 5 09:59:57 2002 | s//-\n/,eval's/./$& $&/g,'x pop;print |
| Pretty straight forward algorithm, does a simple regex a few times. | |||
| 38.17 | Qingning Huo | Fri May 3 23:37:53 2002 | s//-
/;for$.(1..pop){s/./$& $&/g}print |
| 38.17 | Jerome Quelin | Wed May 1 12:05:00 2002 | s//-
/;for$$(1..pop){s/./$& $&/g}print
|
| well, let's play with tiebreak! | |||
| 38.17 | Marcus Holland-Moritz | Thu May 2 10:36:16 2002 | s!!-
!;for$"(1..pop){s/./$& $&/g}print |
| 38.17 | Beijing.pm | Tue May 7 06:25:45 2002 | s//-
/;for$,(1..pop){s/./$& $&/g}print |
| 38.17 | Beijing.pm | Tue May 7 06:30:19 2002 | s//-
/;for$,(1..pop){s/./$& $&/g}print |
| 38.18 | Rick Klement | Thu May 2 02:41:34 2002 | -l s//-/;eval's/./$& $&/g;'x pop;print |
| 38.18 | Jasper McCrea | Sat May 4 15:03:18 2002 | -l s//-/;eval's/./$& $&/g;'x pop;print |
| still six strokes to go on this, and I have no idea where to start with kola. | |||
| 38.18 | Juho Snellman | Sun May 5 10:03:54 2002 | -l s;;-;;eval';s;.;$& $&;g'x pop;print |
| 38.20 | Jerome Quelin | Wed May 1 12:00:46 2002 | s//-
/;for$a(1..pop){s/./$& $&/g}print
|
| Thanks to tpr01 ton's solution... | |||
| 38.20 | Marcus Holland-Moritz | Wed May 1 21:26:35 2002 | s//-
/;for$a(1..pop){s/./$& $&/g}print |
| 38.21 | Benoît Chauvet | Sun May 5 12:56:15 2002 | -li- s//$'$"/for($^I,$")x pop;print$^I |
| 39.13 | Qingning Huo | Fri May 3 08:11:30 2002 | $\="- ";$\=~s/./$& $&/gfor 1..pop;print |
| 39.13 | Adam Spiers | Tue May 7 15:50:24 2002 | $\="- ";$\=~s/./$& $&/gfor 1..pop;print |
| 39.14 | Marcus Holland-Moritz | Wed May 1 14:36:46 2002 | s//- /;s/./$& $&/gwhile$ARGV[0]--;print |
| 39.15 | Qingning Huo | Thu May 2 13:21:56 2002 | $\="- ";map$\=~s/./$& $&/g,1..pop;print |
| 39.18 | Chris Dolan | Tue May 7 15:59:18 2002 | $_="-
";for$.(1..pop){s/./$& $&/g}print |
| 39.18 | Michiel van Leeuwen | Fri May 3 12:50:00 2002 | $_='-
';for$%(1..pop){s/./$& $&/g}print |
| 39.18 | Kevin Cline | Thu May 2 04:03:11 2002 | $_='- ';eval's/./$& $&/g;'x shift;print |
| 39.21 | Honza Pazdziora | Thu May 2 13:54:21 2002 | $_='-
';for$x(1..pop){s/./$& $&/g}print |
| 39.21 | Juho Snellman | Sat May 4 14:06:04 2002 | -l $_='-';eval's/./$& $&/g;'x pop;print |
| 39.21 | Jerome Quelin | Wed May 1 11:51:59 2002 | $_="-
";for$a(1..pop){s/./$& $&/g}print
|
| do _not_ abuse switches! :) | |||
| 39.21 | Dr. Mu | Mon May 6 03:26:51 2002 | -l $_='-';eval's/./$& $&/g;'x pop;print |
| 40.16 | Lars Mathiesen | Tue May 7 11:18:10 2002 | -la055 $/.=$".$/,$"x=3for 1..pop;print$/ |
| 40.16 | Juho Snellman | Sat May 4 05:22:14 2002 | -la055 map$/=~s/./$& $&/g,1..pop;print$/ |
| 40.17 | Stephen Turner | Sat May 4 12:03:16 2002 | -l s//-/;for$.(1..pop){s@.@$& $&@g}print
|
| 40.17 | Qingning Huo | Thu May 2 13:00:04 2002 | -l s//-/;for$.(1..pop){s/./$& $&/g}print |
| 40.17 | Eirik Berg Hanssen | Wed May 1 09:03:16 2002 | -l s//-/;for$*(1..pop){s/./$& $&/g}print |
| 40.19 | gimbo | Sat May 4 01:48:00 2002 | for$i(s..-
...pop){s,$,$"$`,,$"x=3}print |
| 40.20 | Stephen Turner | Thu May 2 22:13:43 2002 | -l s//-/;for$i(1..pop){s|.|$& $&|g}print
|
| 40.20 | Jasper McCrea | Fri May 3 16:47:09 2002 | -l s//-/;for$a(1..pop){s/./$& $&/g}print |
| sorry, ref! jumped the gun a bit. | |||
| 40.20 | Jay Tilton | Thu May 2 21:30:46 2002 | -l s//-/;for$i(1..pop){s/./$& $&/g}print |
| 40.20 | Greg Allen | Sun May 5 20:15:27 2002 | -l s//-/;for$c(1..pop){s/./$& $&/g}print |
| 40.20 | The Refs (pre-competition) | Thu May 2 12:32:49 2002 | -li- $^I=~s/./$& $&/gfor 1..pop;print$^I |
| By Sec | |||
| 40.20 | Mickut | Sat May 4 09:05:38 2002 | $_="-\n";for$,(1..pop){s/./$& $&/g}print |
| This is where my luck runs out. There should be a man-page perltricks to make these easier :-) | |||
| 40.20 | tt | Tue May 7 06:40:27 2002 | -l s//-/;for$a(1..pop){s/./$& $&/g}print |
| 40.23 | Taipei.pm | Wed May 1 20:09:18 2002 | -li- map$^I=~s/./$& $&/g,1..pop;print$^I |
| 41.15 | Rafael Garcia-Suarez | Thu May 2 20:25:32 2002 | -l s//-/;s/./$& $&/gwhile$ARGV[0]--;print |
| 41.15 | Guillermo Sansovic | Mon May 6 03:02:01 2002 | -l s//-/;s/./$& $&/gwhile$ARGV[0]--;print |
| 41.16 | Alain "TopMach" Dupuis | Thu May 2 20:03:38 2002 | -055 $/.=$".$/,$"x=3for 1..pop;print"$/ " |
| 41.16 | MeowChow | Thu May 2 08:09:00 2002 | -055 $/.=$".$/,$"x=3for 1..pop;print"$/ " |
| 41.17 | Jean-Pierre Vidal | Sat May 4 10:52:09 2002 | $\="- ";$\=~s/(.)/$1 $1/gfor 1..pop;print |
| 41.18 | Greg Allen | Thu May 2 11:56:46 2002 | -l -055 map$/=~s/./$& $&/g,1..pop;print$/ |
| 41.20 | Chris Dolan | Tue May 7 15:01:55 2002 | -l $_="-";for$.(1..pop){s/./$& $&/g}print |
| 41.20 | Karsten Sperling | Wed May 1 14:06:02 2002 | -l for$.(s..-...pop){s,,$_$",,$"x=3}print
|
| 41.20 | Eirik Berg Hanssen | Wed May 1 07:41:56 2002 | -l $_="-";for$*(1..pop){s/./$& $&/g}print |
| 41.20 | Damien Neil | Tue May 7 18:25:37 2002 | -l $_="-";for$.(1..pop){s/./$& $&/g}print |
| 41.22 | Jasper McCrea | Fri May 3 16:29:58 2002 | -l $_='-';for$a(1..pop){s/./$& $&/g}print |
| sheesh, and this is probably the simplest way to do it | |||
| 41.22 | Benoît Chauvet | Sat May 4 18:40:17 2002 | -li- $^I.=$".$^I,$"x=3for 1..pop;print$^I |
| 41.22 | gimbo | Fri May 3 01:27:34 2002 | -l for$i(s..-...pop){s,,$_$",,$"x=3}print |
| 41.22 | Eike Grote | Mon May 6 07:44:57 2002 | -l s//-/;eval's//$_$"/;$"x=3;'x pop;print |
| 41.22 | Joost Diepenmaat | Wed May 1 15:31:28 2002 | -li- $^I.=$".$^I,$"x=3for 1..pop;print$^I |
| ugly command line switching (and var names) for 2 extra points :-) | |||
| 41.22 | Jerome Quelin | Wed May 1 11:33:22 2002 | -l $_="-";for$a(1..pop){s/./$& $&/g}print |
| 41.22 | Greg Allen | Thu May 2 11:35:29 2002 | -l $_='-';for$c(1..pop){s/./$& $&/g}print |
| 41.22 | Dr. Mu | Sun May 5 04:08:26 2002 | -l $_='-';eval's/./$& $&/g;'x pop;print$_ |
| 41.22 | Damien Neil | Tue May 7 16:53:03 2002 | -l $_="-";for$x(1..pop){s/./$& $&/g}print |
| 41.22 | Simulants | Tue May 7 23:44:35 2002 | -l $_="-";for$x(1..pop){s|.|$& $&|g}print |
| 41.24 | Michiel van Leeuwen | Fri May 3 10:28:34 2002 | $_='-
';for$t(1..pop){s/(.)/$1 $1/g}print |
| 42.15 | Juho Snellman | Fri May 3 00:50:24 2002 | -la055 map$/.=$"x3**--$_.$/,1..pop;print$/ |
| 42.17 | Prakash Kailasa | Tue May 7 02:47:53 2002 | -l for$=(0..pop){s/ |-/$& $&/g^s//-/}print |
| 42.17 | Dave Tweed | Tue May 7 14:57:02 2002 | -l s//-/;s/./$& $&/g while$ARGV[0]--;print |
| 42.17 | Guillermo Sansovic | Sat May 4 23:39:32 2002 | -l s//-/;s/./$& $&/g while$ARGV[0]--;print |
| 42.18 | Greg Allen | Thu May 2 01:09:30 2002 | -l -055 map{$/.=$".$/;$"x=3}1..pop;print$/ |
| 42.19 | Geoff Richards | Fri May 3 22:33:27 2002 | -l s//-/;[sort{s/./$& $&/g;0}0..pop];print |
| 42.20 | Amir Karger | Tue May 7 03:12:31 2002 | s//- /;eval's/$/$"x$+[0].$`/e;'x pop;print |
| 42.21 | gimbo | Fri May 3 01:20:17 2002 | -l for$i(s..-...pop){$_.=$".$_,$"x=3}print |
| 42.21 | Josef Drexler | Sun May 5 07:12:08 2002 | -l s/$/-/;eval's//$"$_/;$"x=3;'x pop;print |
| 42.21 | Jed Davis | Fri May 3 08:16:46 2002 | $_="-\n";for$i(1..shift){s/./$& $&/g}print
|
| It's short and somewhat elegant. | |||
| 42.24 | Boris Prinz | Tue May 7 19:10:01 2002 | -l s//-/;for$x(1..pop){s/(.)/$1 $1/g}print
|
| 42.24 | Greg Allen | Wed May 1 18:55:06 2002 | -li- map{$^I.=$".$^I;$"x=3}1..pop;print$^I |
| 43.13 | John McNamara | Tue May 7 16:35:15 2002 | $..=$"x3**--$_.$.||'-'for$|..pop;print$..$/ |
| 43.13 | Karsten Sperling | Wed May 1 13:39:21 2002 | $..=$"x3**--$_.$.||"-"for$...pop;print$..$/ |
| 43.13 | mathieu longtin | Wed May 1 18:01:48 2002 | $:='-';$:.=$".$:,$"x=3for 1..pop;print"$: " |
| 43.13 | mathieu longtin | Wed May 1 21:35:44 2002 | $:='-';$:.=$".$:,$"x=3for 1..pop;print"$: " |
| 43.14 | Chris Dolan | Tue May 7 14:54:08 2002 | -l $_="-";s/./$& $&/gwhile($!+=pop)--;print |
| 43.15 | John McNamara | Tue May 7 07:57:18 2002 | $,.=$"x3**--$_.$,||'-'for+0..pop;print$,.$/ |
| 43.15 | Ala Qumsieh | Fri May 3 18:03:47 2002 | $*.=$"x3**--$_.$*||"-"for 0..pop;print$*.$/ |
| 43.15 | Peter Haworth | Thu May 2 14:19:51 2002 | -l $.='-';$..=$".$.,$"x=3for 1..pop;print$. |
| 43.17 | Alain "TopMach" Dupuis | Thu May 2 19:46:56 2002 | -055 $/.=$"x3**$i++.$/for 1..pop;print"$/ " |
| 43.17 | Dave Tweed | Fri May 3 14:27:58 2002 | -l s//-/;s/./$& $&/g while$ARGV[0]--;print; |
| 43.17 | Taipei.pm | Wed May 1 18:06:36 2002 | -055 $/.=$"x3**--$_.$/for 1..pop;print"$/ " |
| 43.19 | Dr. Mu | Wed May 1 18:29:42 2002 | -l print map/[3-9]/?'':/1/?$":'-',0..2x pop |
| Filters 0 .. 2222... to valid radix 3 numbers. Prints a " " when number contains a "1"; "-", otherwise. May run awhile for large $ARGV[0]! | |||
| 43.19 | seano | Sat May 4 18:01:50 2002 | -l print+map/[3-9]/?'':/1/?$":'-',0..2x pop |
| hah! | |||
| 43.20 | Petri Mikkelä | Mon May 6 14:21:21 2002 | s//- /;eval's/$/" "x(pos).$`/e;'x pop;print |
| 43.20 | Amir Karger | Tue May 7 02:58:14 2002 | for$b(0..pop){s/$/$"x$+[0].$`||"-
"/e}print |
| 43.20 | Step McGorm | Sat May 4 20:47:35 2002 | s//-\n/;for($n=pop;$n--;){s/./$& $&/g}print |
| 43.21 | Andrew Savige | Tue May 7 20:38:23 2002 | -li- map$^I.=$"x3**$-++.$^I,1..pop;print$^I |
| 43.21 | Jasper McCrea | Thu May 2 09:37:12 2002 | -l map$a.=$"x3**--$_.$a||'-',0..pop;print$a |
| a full night's sleep, and this is the best I can come up with? | |||
| 43.21 | Eirik Berg Hanssen | Wed May 1 05:28:32 2002 | -l $_="-";for$x(1..shift){s/./$& $&/g}print |
| 43.23 | Philippe 'BooK' Bruhat | Wed May 1 10:17:41 2002 | -l s//-/;eval'$_.=$"x y///c.$_;'x pop;print |
| 43.23 | Philippe Bricout | Sun May 5 15:32:05 2002 | -l $a='-';$a.=$".$a,$"x=3for 1..pop;print$a |
| 43.23 | David Lowe | Wed May 1 22:15:12 2002 | -l $a='-';$a.=$".$a,$"x=3for 1..pop;print$a |
| 43.23 | gimbo | Wed May 1 20:29:04 2002 | -l $a="-";$a.=$".$a,$"x=3for 1..pop;print$a |
| 43.23 | Joost Diepenmaat | Wed May 1 13:56:16 2002 | -l $a="-";$a.=$".$a,$"x=3for 1..pop;print$a |
| shot # 2... also works under use warnings; use strict; but that would take too much characters :-) | |||
| 43.23 | Evan A. Zacks | Mon May 6 05:48:07 2002 | -l for$i(s//-/..pop){$_.=$"x y///c.$_}print |
| 43.23 | Greg Allen | Wed May 1 18:41:07 2002 | -li- for(1..pop){$^I.=$".$^I;$"x=3}print$^I |
| 44.11 | Rick Klement | Wed May 1 18:45:28 2002 | push@=,($")x@=,@=for(@=='-')..pop;print@=,$/ |
| 44.15 | Chris Dolan | Thu May 2 14:28:24 2002 | $..=$"x3**$#_++.$.||"-"for 0..pop;print$..$/ |
| 44.15 | Josef Drexler | Sun May 5 01:30:31 2002 | $,='-';$,.=$".$,,$"x=3 for 1..pop;print$,.$/ |
| 44.15 | Eric Roode | Fri May 3 19:58:43 2002 | -l $.='-';$..=$".$.,$"x=3for(1..pop);print$. |
| 44.17 | Juho Snellman | Thu May 2 23:27:17 2002 | -055 map$/.=$"x3**$_.$/,0..-1+pop;print"$/ " |
| 44.17 | Taipei.pm | Wed May 1 14:22:24 2002 | -055 map$/.=$"x3**$_.$/,0..-1+pop;print"$/ " |
| 44.19 | Gareth McCaughan | Thu May 2 23:56:33 2002 | -l $_='-';s/./$& $&/g while$ARGV[0]--;print; |
| 44.20 | Honza Pazdziora | Thu May 2 13:28:58 2002 | -l $s=pop;$_='-';s/./$& $&/g while$s--;print |
| 44.20 | Andrew Savige | Tue May 7 07:53:27 2002 | -li- $^I.=$"x3**$_.$^Ifor$%..-1+pop;print$^I |
| 44.20 | Jasper McCrea | Wed May 1 17:34:56 2002 | -l map$a.=' 'x3**--$_.$a||'-',0..pop;print$a |
| the laws of diminishing returns should be this harsh this early | |||
| 44.20 | Steven Alexander | Tue May 7 08:54:17 2002 | -l for$,(0..pop){$_.=$"x y///c.$_||"-"}print |
| 44.22 | Amir Karger | Tue May 7 01:53:28 2002 | for$b(0..pop){s/$/$"x$+[0].$`||"-\n"/e}print |
| 44.23 | Petri Mikkelä | Fri May 3 12:45:28 2002 | -l s//-/;eval'$_.=" "x y|||c.$_;'x pop;print |
| 44.23 | Ala Qumsieh | Thu May 2 18:14:01 2002 | -l for$x(0..pop){$_.=$"x y///c.$_||'-'}print |
| 44.23 | Benoît Chauvet | Fri May 3 15:31:23 2002 | -li- map{$^I.=$"x3**--$_.$^I}1..pop;print$^I |
| 44.23 | Philippe 'BooK' Bruhat | Wed May 1 10:14:41 2002 | -l s//-/;eval'$_.=$"x(y///c).$_;'x pop;print |
| 44.23 | wickline | Thu May 2 18:44:12 2002 | -l $_.=' 'x y/- //.$_ for($_='-')x pop;print |
| "look maw! no length()!" | |||
| 44.23 | Bass | Fri May 3 17:55:36 2002 | -l print map{/1/?$":'-'if!y/012//c}0..2x pop |
| 44.23 | Matt Nelson | Sat May 4 18:57:35 2002 | -l $c='-';map{$c=~s/./$& $&/g}1..pop;print$c |
| 44.25 | Michael Wrenn | Tue May 7 15:37:25 2002 | -l for$n(0..pop){s??$_.$"x y///c|'-'?e}print |
| 45.12 | Chris Dolan | Wed May 1 22:46:53 2002 | $..=$.?$"x3**$!++.$.:"-"for 0..pop;print$..$/ |
| 45.12 | mathieu longtin | Wed May 1 15:59:09 2002 | $:='-';$:.=$".$:,$"x=3for 1..shift;print"$: " |
| 45.12 | Guillermo Sansovic | Thu May 2 03:04:36 2002 | -l $/='-';$/.=$".$/,$"=$"x3for 1..pop;print$/ |
| 45.14 | Rick Klement | Wed May 1 16:28:41 2002 | @=='-';push@=,($")x@=,@=for 1..pop;print@=,$/ |
| 45.14 | John McNamara | Mon May 6 23:16:21 2002 | $,='-';$,.=$"x3**--$_.$,for+1..pop;print$,.$/ |
| 45.17 | Prakash Kailasa | Fri May 3 03:55:47 2002 | -l $@.=' 'x3**$#_++.$@||'-'for 0..pop;print$@ |
| 45.17 | Alain "TopMach" Dupuis | Wed May 1 21:21:18 2002 | -l $/='-';$/.=$"x3**$i++.$/for 1..pop;print$/ |
| 45.17 | MeowChow | Wed May 1 07:09:34 2002 | s//- /;s/$/$"x$-[0].$`/ewhile$ARGV[0]--;print |
| 45.19 | Jon Coppeard | Tue May 7 21:15:33 2002 | $_="-";s/./$& $&/g while$ARGV[0]--;print$_.$/ |
| 45.20 | Michael Thelen | Tue May 7 23:12:20 2002 | -l for$i(0..pop){$_.=$"x y/- //.$_||'-'}print |
| 45.22 | Jasper McCrea | Wed May 1 13:52:45 2002 | -l for$a(0..pop){$_.=' 'x y///c.$_||'-'}print |
| forgot about y///c from (my first) golf compo | |||
| 45.22 | Ross Younger | Fri May 3 23:00:11 2002 | -l $_="-";for$,(1..pop){$_.=$".$_;$"x=3}print |
| 45.22 | Daryl Olson | Mon May 6 21:06:39 2002 | -l for$a(0..pop){$_.=' 'x y///c.$_||'-'}print |
| 45.22 | wickline | Thu May 2 18:07:28 2002 | -l $_.=' 'x(length).$_ for($_='-')x pop;print |
| whoops! typo fix (now it's a dash) | |||
| 45.24 | Ronald J Kimball | Fri May 3 03:02:38 2002 | -l s//-/;for$a(1..pop){$_.=$"x y///c.$_}print |
| 45.24 | Michael Wrenn | Mon May 6 02:35:05 2002 | -l for$n(0..pop){s??$_.' 'x y///c|'-'?e}print |
| 45.24 | Philippe 'BooK' Bruhat | Wed May 1 10:12:41 2002 | -l $_='-';eval'$_.=$"x(y///c).$_;'x pop;print |
| 45.24 | Ido Trivizki | Tue May 7 21:18:46 2002 | -l @0='-';push@0,($")x@0,@0for 1..pop;print@0 |
| 45.24 | Steven Alexander | Sun May 5 02:19:30 2002 | -l $_='-';eval'$_.=" "x y///c.$_;'x pop;print |
| 46.12 | Chris Dolan | Wed May 1 15:39:53 2002 | $.="-";$..=$"x3**$!++.$.for(1..pop);print$..$/ |
| 46.14 | Eike Grote | Fri May 3 09:03:56 2002 | $,.=($,&$"x6**6).$,||'-'for(0..pop);print$,.$/ |
| 46.14 | nashdj | Sun May 5 06:23:36 2002 | $;="-";$;.=$"x3**$_.$;for$!..-1+pop;print"$; " |
| 46.16 | Alain "TopMach" Dupuis | Wed May 1 20:57:08 2002 | -l $/='-';$/.=' 'x3**$i++.$/for 1..pop;print$/ |
| 46.17 | Terje K | Mon May 6 20:20:22 2002 | -l for$,(0..pop){$_.=" "x y/ -//.$_||"-"}print |
| 46.17 | MeowChow | Wed May 1 07:02:51 2002 | $_="- ";s/$/$"x$-[0].$`/ewhile$ARGV[0]--;print |
| 46.17 | RRBuonanno | Tue May 7 11:10:20 2002 | map$#.=' 'x(3**$_/3).$#||'-',0..pop;print"$# " |
| 46.18 | Andrew Savige | Mon May 6 12:45:39 2002 | -l $:='-';$:.=$"x3**$_.$:for 0..-1+pop;print$: |
| 46.18 | Tom Hargreaves | Wed May 1 13:23:52 2002 | -l @/='-';@/=map{$_,$",$_}@/for 1..pop;print@/ |
| 46.18 | Josef Drexler | Wed May 1 19:09:24 2002 | -l $,='-';map$,.=$"x3**$_.$,,0..-1+pop;print$, |
| 46.18 | Josef Drexler | Fri May 3 17:28:43 2002 | -l $,='-';$,.=$"x3**$_.$,for 0..-1+pop;print$, |
| 46.20 | Terje K | Thu May 2 20:04:13 2002 | -l for$a(0..pop){$_.=" "x y/ -//.$_||"-"}print |
| 46.20 | Eric Roode | Fri May 3 17:14:46 2002 | -l $_='-';$_.=$".$_,$"x=3while$ARGV[0]--;print |
| 46.22 | Qingning Huo | Thu May 2 12:48:04 2002 | -l s//-/;for$.(1..pop){$_.=' 'x y///c.$_}print |
| 46.22 | Benoît Chauvet | Fri May 3 09:46:57 2002 | -l map{$i.=$_--?$"x3**$_.$i:"-"}0..pop;print$i |
| 46.22 | Ken Rockot | Tue May 7 05:26:42 2002 | -l for$n(0..- s//-/+pop){$_.=$"x3**$n.$_}print |
| 46.22 | Michael Thelen | Tue May 7 14:22:54 2002 | -l s//-/;for$i(1..pop){$_.=$"x y/- //.$_}print |
| Third try. Wish I could figure out how to reduce that for loop. | |||
| 46.24 | Evan A. Zacks | Mon May 6 03:23:49 2002 | -l s//-/;for$i(1..pop){$_.=' 'x y///c.$_}print |
| 46.24 | Steven Alexander | Sun May 5 20:43:04 2002 | -l $_='-';for$,(1..pop){$_.=$"x y///c.$_}print |
| 46.26 | Amir Karger | Fri May 3 13:06:41 2002 | -l @c="-";@c=(@c,($")x@c,@c)for 1..pop;print@c |
| 46.26 | Jerome Quelin | Wed May 1 10:57:24 2002 | -l $_="-";for$a(1..pop){$_.=$"x y///c.$_}print
|
| of course. | |||
| 47.15 | Eric Roode | Fri May 3 17:12:36 2002 | $_='- ';s/.*/$&$"$&/,$"x=3while$ARGV[0]--;print |
| I'm pretty pleased with the abuse of $". | |||
| 47.16 | Ala Qumsieh | Wed May 1 17:42:09 2002 | $*='-';$*.=$"x$*=~y///c.$*for 1..pop;print$*.$/ |
| 47.16 | Tony Young | Mon May 6 23:46:11 2002 | $.='-';$..=' 'x3**$_.$.for 0..-1+pop;print$..$/ |
| 47.16 | tinita | Fri May 3 15:49:20 2002 | -l $/="-";$/.=($"x3**--$_).$/for 1..pop;print$/ |
| 47.16 | seano | Fri May 3 23:45:26 2002 | -l $:='-';$:.=($:&$"x.5e4).$:for 1..pop;print$: |
| If 500's not enough, I can always change that to 9e8... Not as short, but still saves a stroke or so. | |||
| 47.21 | Ronald J Kimball | Wed May 1 05:33:04 2002 | -l s//-/;$_.=$"x y///c.$_ while$ARGV[0]--;print |
| 47.21 | Benoît Chauvet | Thu May 2 10:00:50 2002 | -l for$i(0..pop){$_.=$i--?$"x3**$i.$_:"-"}print |
| 47.21 | Steve Rushe | Fri May 3 09:03:12 2002 | -l for$a(0..pop){y/-/ /;$_=$z.=$_.$z||'-'}print |
| 47.21 | Eric Roode | Fri May 3 01:46:33 2002 | -l $_='-';$o=pop;$_.=$".$_,$"x=3while$o--;print |
| 47.21 | Matthew Byng-Maddick | Wed May 1 10:57:21 2002 | -l s//-/;$_.=$"x y|||c.$_ while$ARGV[0]--;print |
| well, a few more characters shaved off. I guess I need to start work on the other one. | |||
| 47.23 | Petri Mikkelä | Thu May 2 15:40:34 2002 | -l s//-/;for$x(1..pop){$_.=" "x y///c.$_};print |
| 47.23 | Jean-Pierre Vidal | Fri May 3 13:25:30 2002 | -l $s="-";$s.=" "x3**--$_.$s for 1..pop;print$s |
| 47.23 | Philippe Bricout | Sun May 5 15:00:54 2002 | -l @s='-';@s=(@s,$",@s),$"x=3for 1..pop;print@s |
| 47.23 | Jerome Quelin | Wed May 1 10:54:15 2002 | -l $_="-";for$a(1..pop){s/$/$"x$-[0].$`/e}print
|
| perlvar rocks! | |||
| 47.23 | Ken Rockot | Thu May 2 17:05:44 2002 | -l s//-/;for$n(0..-1+pop){$_.=$"x3**$n.$_}print |
| 47.24 | Alistair McGlinchy | Wed May 1 21:56:25 2002 | $s='-';map$s.=' 'x3**$_.$s,0..-1+pop;print"$s " |
| The test programme accepts scores without #! lines. Why must I use them here? | |||
| 47.26 | Qingning Huo | Wed May 1 08:46:53 2002 | -l $_='-';for$i(1..pop){$_.=' 'x y///c.$_}print |
| 47.26 | Evan A. Zacks | Sun May 5 22:46:36 2002 | -l @_='-';@_=(@_,(' ')x@_,@_)for 1..pop;print@_ |
| 47.26 | Daryl Olson | Mon May 6 13:38:38 2002 | -l $_='-';for$a(1..pop){$_.=' 'x y///c.$_}print |
| 47.26 | Jerome Quelin | Wed May 1 10:34:25 2002 | -l $_="-";for$a(1..pop){$_.=' 'x y///c.$_}print
|
| this time it's worth it... | |||
| 47.26 | Greg Allen | Wed May 1 14:48:06 2002 | -li- for(1..pop){$^I.=$"x(3**$_/3).$^I}print$^I |
| 47.27 | Rick Myers | Sun May 5 11:48:20 2002 | $p='-';map$p.=$"x$p=~y///c.$p,1..pop;print"$p " |
| 47.28 | Ido Trivizki | Wed May 1 13:59:25 2002 | -l $l='-';map$l.=$"x(3**$_/3).$l,1..pop;print$l |
| 47.28 | Yoav Goldberg | Fri May 3 17:42:57 2002 | -lX $_=p;for$i(1..pop){$_.=uc.$_}y/pP/- /;print |
| 48.14 | Philippe 'BooK' Bruhat | Wed May 1 08:43:18 2002 | $@='-';$@.=$"x(length$@).$@for 1..pop;print$@.$/ |
| 48.16 | Peter Makholm | Thu May 2 13:07:35 2002 | $,='-';$,.=' 'x3**$_.$,for(0..-1+pop);print"$, " |
| 48.16 | Tony Young | Fri May 3 06:23:06 2002 | $.='-';map{$..=' 'x3**$_.$.}0..-1+pop;print$..$/ |
| 48.16 | seano | Fri May 3 19:24:59 2002 | -l $,='-';$,.=$"x(length$,).$,for 1..pop;print$, |
| hey, it's two places better | |||
| 48.18 | Guillermo Sansovic | Thu May 2 01:04:13 2002 | -l $/='-';$/.=' 'x3**$_.$/for 0..pop()-1;print$/ |
| 48.18 | RRBuonanno | Mon May 6 18:24:35 2002 | $#='-';map$#.=' 'x(3**$_/3).$#,1..pop;print"$# " |
| 48.21 | Benoît Chauvet | Thu May 2 09:54:45 2002 | -l for$i(0..pop){$_.=$i--?" "x3**$i.$_:"-"}print |
| 48.21 | Jay Tilton | Wed May 1 06:17:54 2002 | -l map$o.=' 'x length($o).$o||'-',0..pop;print$o |
| 48.21 | Michiel van Leeuwen | Thu May 2 20:42:44 2002 | for(0..pop){$a.=' 'x3**($_-1).$a||'-'}print"$a
" |
| 48.23 | Robert Mah | Mon May 6 22:53:03 2002 | -l $a='-';$a.=' 'x3**$b++.$a for(1..pop);print$a |
| 48.23 | Steven Alexander | Fri May 3 19:14:41 2002 | -l $_='-';for$,(1..pop){$_.=' 'x(y///c).$_}print |
| 48.23 | Matthew Byng-Maddick | Wed May 1 10:45:35 2002 | -l $_='-';$_.=$"x y|||c.$_ while$ARGV[0]--;print |
| slightly better, but still not good enough | |||
| 48.25 | Colin Meyer | Tue May 7 23:01:54 2002 | -l $r='-';$r.=$"x3**($_-1).$r for 1..pop;print$r |
| 48.26 | RRBuonanno | Mon May 6 12:23:17 2002 | $o='-';map$o.=' 'x(3**$_/3).$o,1..pop;print"$o " |
| 48.27 | Ido Trivizki | Wed May 1 12:24:14 2002 | -l $l='-';map$l.=$"x 3**($_-1).$l,1..pop;print$l |
| 49.13 | Philippe 'BooK' Bruhat | Wed May 1 08:41:57 2002 | $@='-';$@.=$"x(length$@).$@for(1..pop);print$@.$/ |
| 49.15 | seano | Fri May 3 18:09:38 2002 | -l $,='-';$,.=$"x(length$,).$, for 1..pop;print$, |
| minor tweakage | |||
| 49.17 | Peter Makholm | Wed May 1 19:14:06 2002 | $,.=$_?' 'x3**($_-1).$,:'-'for(0..pop);print"$, " |
| 49.17 | Peter Haworth | Wed May 1 18:34:47 2002 | -l $.='-';$#l=-1+pop;$..=$".$.,$"x=3for@l;print$. |
| 49.18 | Michael Robinson | Thu May 2 05:44:46 2002 | -l s//-/;$_.=' 'x3**$i++.$_ while$ARGV[0]--;print |
| 49.20 | Jasper McCrea | Wed May 1 12:20:56 2002 | -l for$a(0..pop){$_=$_.' 'x(length).$_||'-'}print |
| still 10 off leader.. hmmmm | |||
| 49.20 | MeowChow | Wed May 1 05:14:25 2002 | -l $_.=$"x(length).$_||'-'while$ARGV[0]--+1;print |
| 49.20 | giorgos zervas | Thu May 2 17:27:32 2002 | -l for$i(0..pop){$_.=$i?($"x length).$_:'-'}print |
| 49.22 | Jerome Quelin | Wed May 1 10:32:13 2002 | -l $_="-";$_.=' 'x y///c.$_ while$ARGV[0]--;print |
| 49.22 | Phil Radden | Tue May 7 19:14:17 2002 | -l $_="-";$_.=" "x y///c.$_ while$ARGV[0]--;print |
| 49.22 | Bjørn Hee | Sun May 5 18:46:26 2002 | -l $_='-';for$a(1..pop){$_.=' 'x(length).$_}print |
| 49.23 | James Harvey | Fri May 3 16:48:32 2002 | -l $t='-';map$t.=' 'x3**--$_.$t,(1..pop);print$t; |
| 49.23 | mpiwg | Tue May 7 18:19:37 2002 | $s='-';for(1..pop){$s.=' 'x3**$b++.$s}print"$s\n"
|
| 49.24 | Jean-Pierre Vidal | Thu May 2 15:59:23 2002 | -l $s="-";$s.=" "x3**$_.$s for 0..pop()-1;print$s |
| 49.24 | Greg Allen | Wed May 1 10:39:08 2002 | -l @a='-';for(1..pop){push@a,(' ')x@a,@a};print@a |
| 49.27 | Isaac Lin | Sat May 4 16:18:40 2002 | -l $c='-';map{$c.=' 'x(3**$_/3).$c}1..pop;print$c |
| 49.27 | Daryl Olson | Mon May 6 04:24:30 2002 | -l $_='-';for$a(1..pop){$_=$_.' 'x y///c.$_}print |
| 49.27 | Daryl Olson | Mon May 6 04:29:44 2002 | -l $_='-';for$a(1..pop){$_=$_.' 'x y///c.$_}print |
| 50.13 | Philippe 'BooK' Bruhat | Wed May 1 08:36:30 2002 | $"='-';$".=' 'x(length$").$"for(1..pop);print$".$/ |
| 50.15 | Guillermo Sansovic | Wed May 1 23:52:18 2002 | -l $/='-';$/.=' 'x(length$/).$/for 1..pop;print$/; |
| 50.15 | seano | Fri May 3 06:24:46 2002 | $,='-';$,.=' 'x(length$,).$,for 1..pop;print"$,\n" |
| stupid pop... | |||
| 50.17 | Zephyr McLaughlin | Tue May 7 21:09:38 2002 | s//-
/;while($ARGV[0]--){s/ / /g;s/-/- -/g}print |
| 50.20 | MeowChow | Wed May 1 05:09:41 2002 | -l $_="-";$_.=$"x(length).$_ while$ARGV[0]--;print |
| 50.20 | Jerome Quelin | Wed May 1 10:24:11 2002 | -l $_="-";s/$/" "x y!!!c.$`/ewhile$ARGV[0]--;print |
| I should really have found it before! | |||
| 50.23 | James Harvey | Thu May 2 17:14:11 2002 | -l $t='-';for(1..pop){$t.=' 'x3**--$_.$t;}print$t; |
| Need a better way of finding out length of $t than '3**--$_'. | |||
| 50.24 | Pepik | Tue May 7 19:28:40 2002 | -l $x="-";for(1..pop){$x=$x." "x3**--$_.$x}print$x |
| why'd I use an array before? | |||
| 50.24 | tinita | Thu May 2 22:33:10 2002 | -l $r="-";$r.=($"x3**$_).$r for 0..pop()-1;print$r |
| 50.24 | Greg Allen | Wed May 1 09:57:16 2002 | -l $_=A;$_.=lc().$_ while$ARGV[0]--;y/Aa/- /;print |
| 50.25 | Ken Rockot | Thu May 2 05:41:47 2002 | -l $a='-';$a.=' 'x3**$_.$a for(0..-1+pop);print$a; |
| 50.26 | Olivier Blanchard | Sun May 5 11:43:54 2002 | -l $o='-';$o.=' 'x 3**($_-1).$o for 1..pop;print$o |
| 51.15 | Tony Young | Fri May 3 06:21:38 2002 | $.='-';for(0..-1+pop){$..=(' 'x3**$_).$.}print$..$/ |
| 51.15 | Peter Haworth | Wed May 1 17:29:17 2002 | -l $.='-';$,=pop;$..=$".$.,$"x=3for 0..$,-1;print$. |
| 51.17 | Tony Young | Fri May 3 04:55:05 2002 | @>='-';map{push@>,' 'x3**$_,@>}0..-1+pop;print@>,$/ |
| 51.17 | BigrTex | Tue May 7 21:42:01 2002 | -l $/='-';map{$_=$/;y/-/ /;$/.=$_.$/}1..pop;print$/ |
| stripping the "s from my print saves two strokes. I pass two other beginners, and am a stroke behind two more. I think my eyeball is beginning to bulge. | |||
| 51.18 | Simon Whitaker | Wed May 1 23:05:58 2002 | -l $;=pop;$_='-';$_.=' 'x y/ -//.$_ while$;--;print |
| 51.18 | Michael Robinson | Wed May 1 22:37:48 2002 | -l s//-/;$_.=' 'x length().$_ while$ARGV[0]--;print |
| 51.22 | Matthew Byng-Maddick | Wed May 1 10:40:23 2002 | -l $_='-';while($ARGV[0]--){$_.=" "x y|||c.$_}print |
| I'm sure there's a better way of doing this, but I'll sleep on it. | |||
| 51.23 | Philippe 'BooK' Bruhat | Wed May 1 08:29:11 2002 | $c='-';$c.=(' 'x length$c).$c for 1..pop;print$c.$/ |
| Why do it recursively? | |||
| 51.23 | Olivier Blanchard | Fri May 3 16:11:19 2002 | $o='-';$o.=' 'x length($o).$o for 1..pop;print"$o " |
| 51.23 | Ido Trivizki | Wed May 1 11:01:02 2002 | -l $_='-';for$n(1..pop){$_.=' 'x length().$_}print; |
| 51.24 | Benoît Chauvet | Thu May 2 09:49:19 2002 | -l for$x(0..pop){y/-/ /;$t=$_=$x?"$t$_$t":"-"}print |
| 51.24 | David Newcum | Fri May 3 03:49:11 2002 | -l $s='-';map{$s.=' 'x length($s).$s}1..pop;print$s |
| 52.16 | Peter Makholm | Wed May 1 11:20:50 2002 | -l push@/,' 'x3**$_.'-',@/for(0..-1+pop);print'-',@/ |
| 52.19 | Philippe Bricout | Sun May 5 13:33:10 2002 | -l s//-/;for$a(1..pop){s/.*/$&.$"x3**--$a.$&/e}print |
| 52.19 | Michael Robinson | Wed May 1 12:25:46 2002 | -l $_='-';$_.=(' 'x length).$_ while$ARGV[0]--;print |
| 52.19 | Michael Robinson | Wed May 1 21:11:27 2002 | -l $_='-';$_.=(' 'x length).$_ while$ARGV[0]--;print
|
| 52.19 | Phil Radden | Wed May 1 10:15:08 2002 | -l $_="-";$_.=(" "x length).$_ while$ARGV[0]--;print |
| 52.19 | POOP | Tue May 7 12:53:12 2002 | $i=pop;$_="-
";while($i--){s/ / /g;s/-/- -/g}print |
| 52.21 | pizza_milkshake | Thu May 2 02:18:45 2002 | -l $_="-";for$n(1..pop){$_.=$"x3**--$n.reverse}print |
| yay! | |||
| 52.22 | Michiel van Leeuwen | Wed May 1 18:42:29 2002 | $a='-';for(1..pop){$a.=' 'x3**($_-1).$a;}print"$a
"; |
| 52.23 | Alistair McGlinchy | Wed May 1 20:19:30 2002 | -l $s="-";$s.=' 'x length($s).$s for(1..pop);print$s |
| 52.25 | Jean-Pierre Vidal | Wed May 1 15:11:52 2002 | -l $s="-";for(1..pop){$_=$s;y/-/ /;$s.=$_.$s}print$s |
| 52.25 | Benoît Chauvet | Thu May 2 09:08:59 2002 | -l $p="-";for(1..pop){$_=$p;y/-/ /;$p.=$_.$p}print$p |
| 52.27 | David Newcum | Fri May 3 03:06:48 2002 | -l $s='-';$b=' ';map{$s.=$b.$s;$b x=3}1..pop;print$s |
| 53.14 | Steven Alexander | Wed May 1 08:11:12 2002 | -l $*='-';$*.=' 'x length($*).$*for(1..shift);print$* |
| Thanks for running this. | |||
| 53.16 | Peter Makholm | Wed May 1 09:33:19 2002 | $n=pop;$;='-';$;.=' 'x3**$_.$;for(0..--$n);print"$; " |
| 53.16 | BigrTex | Tue May 7 21:24:35 2002 | -l $/='-';map{$_=$/;y/-/ /;$/.=$_.$/}1..pop;print"$/" |
| Reading past courses, this only takes one argument so I can use the -l flag (even if I don't know what it does) and then just pop when I need it. Somehow this also gave me my carriage return at the end. | |||
| 53.17 | z0ned | Wed May 1 18:34:52 2002 | -l $_='-';for($==pop;$=--;){$_.=' 'x(length).$_}print |
| 53.17 | Jerome Quelin | Wed May 1 10:20:39 2002 | -l $_="-";s/$/" "x length().$`/ewhile$ARGV[0]--;print |
| 53.19 | Lucca | Wed May 1 09:36:41 2002 | -l $_="-";$_.=" "x(length).$_ while($ARGV[0]--);print |
| 53.19 | Michael Robinson | Wed May 1 09:10:44 2002 | -l $_='-';$_.=(' 'x length).$_ while $ARGV[0]--;print
|
| 53.19 | giorgos zervas | Thu May 2 13:23:11 2002 | -l $_='-';while($ARGV[0]--){$_.=($"x length).$_}print |
| 53.19 | David Newcum | Fri May 3 01:54:51 2002 | -l $_='-';$_.=' 'x length().$_ while $ARGV[0]--;print |
| 53.23 | Greg Allen | Wed May 1 09:42:40 2002 | -l $_='A';$_.=lc().$_ while$ARGV[0]--;tr/Aa/- /;print |
| Not bad for a beginner | |||
| 53.23 | Gregory Vincic | Fri May 3 23:05:43 2002 | -l $_="-";for$e(0..--@ARGV[0]){$_.=" "x3**$e.$_}print |
| 53.24 | stefp | Sat May 4 07:46:50 2002 | $a='-';$a.=' 'x3**$_.$a for 0..shift()-1;print"$a\n"; |
| 53.26 | David Lowe | Wed May 1 21:21:34 2002 | -l $_='-';$b=' ';for$a(1..pop){$_.=$b.$_;$b x=3}print |
| 54.16 | mathieu longtin | Wed May 1 04:11:48 2002 | $/='-';$/.=' 'x(3**$i++).$/while$i<$ARGV[0];print"$/ " |
| 54.18 | Peter Haworth | Wed May 1 13:38:52 2002 | -l $.='-';$,=pop;$..=($"x 3**$_).$.for 0..$,-1;print$. |
| 54.19 | David Newcum | Fri May 3 01:13:33 2002 | -l $_='-';$_.=' 'x length().$_ while($ARGV[0]--);print |
| 54.19 | Mickut | Fri May 3 15:45:07 2002 | for($_="-";$ARGV[0]--;){$_.=" "x(length).$_}print$_.$/ |
| I have about 2 hours of perl experience right now =) | |||
| 54.19 | Thorbjørn Ravn Andersen | Mon May 6 06:04:01 2002 | -l $_="-";while($ARGV[0]--){$_.=" "x3**$i++.$_};print |
| 54.22 | Eirik Berg Hanssen | Wed May 1 05:07:07 2002 | -l sub c{$_--?join$"x3**$_,(&c)x2:"-"}$_=shift;print&c |
| 54.23 | bjelli | Fri May 3 13:32:12 2002 | $c="-";$c.=" "x3**$_.$c foreach 0..-1+pop;print"$c\n"; |
| 54.23 | stefp | Fri May 3 23:16:41 2002 | $a='-';$a.=' 'x length($a).$a for 1..shift;print"$a\n" |
| 55.18 | Jerome Quelin | Wed May 1 09:27:46 2002 | -l $_="-";s/$/" "x length($_).$`/ewhile$ARGV[0]--;print |
| 55.20 | Peter Haworth | Wed May 1 12:12:20 2002 | -l $_='-';$l=pop;$_=$_.($"x3**$,++).$_ while$,<$l;print |
| 55.22 | Jerome Quelin | Wed May 1 09:53:17 2002 | -l $_="-";for$a(1..pop){s/$/" "x length($_).$`/e};print
|
| 55.23 | seano | Fri May 3 01:57:50 2002 | #!perl $x='-';$x.=' 'x(length$x).$x for 1.."@ARGV";print"$x\n" |
| 55.25 | Daniel Cutter | Sun May 5 14:53:46 2002 | $d="-";$f=" ";$d.=$f.$d,$f x=3for(1..shift);print"$d\n" |
| 56.17 | Tony Young | Fri May 3 04:47:52 2002 | @>='-';map{push@>,' 'x($.=3**$_),@>}0..-1+pop;print@>,$/ |
| 56.20 | Jerome Quelin | Wed May 1 09:26:25 2002 | -l $a=pop;$_="-";s/$/" "x length($_).$`/ewhile$a--;print |
| 56.21 | Steve Rushe | Wed May 1 10:32:33 2002 | -l $n=pop;$_='-';while($w<$n){$_.=(' 'x3**$w++).$_}print |
| 56.23 | Eirik Berg Hanssen | Wed May 1 05:02:59 2002 | -l sub c{$_--?join$"x(3**$_),(&c)x2:"-"}$_=shift;print&c |
| 56.25 | Jan Löfvendahl | Fri May 3 11:29:59 2002 | -l $_='-';for$i(1..pop){$_=$_.' ' x (3**($i-1)).$_}print |
| 56.26 | Tony Young | Fri May 3 04:38:37 2002 | @b='-';map{push@b,' 'x($a=3**$_),@b}0..-1+pop;print@b,$/ |
| 57.18 | Geoff Richards | Thu May 2 21:45:52 2002 | -l $_='-';s/.*/$&.' 'x(length).$&/e while$ARGV[0]--;print |
| 57.20 | Thorbjørn Ravn Andersen | Sun May 5 02:05:57 2002 | -l $_="-";while($i<$ARGV[0]){$_.=" "x3**$i++.$_}print
|
| 57.21 | Jerome Quelin | Wed May 1 09:25:40 2002 | -l $a=pop;$_="-";s/$/" "x length($_).$`/e while$a--;print |
| 58.21 | Peter Haworth | Wed May 1 10:37:39 2002 | -l $_='-';$l=pop;$_=$_.(' 'x length).$_ while$,++<$l;print |
| 58.22 | Thorbjørn Ravn Andersen | Sat May 4 23:01:46 2002 | $w="-";while($i<$ARGV[0]){$w.=(" "x3**$i++).$w}print"$w\n" |
| Plain solution | |||
| 59.19 | Jasper McCrea | Wed May 1 11:36:58 2002 | -l $_='-';for$a(1..pop){s|.*|$&.' 'x length($&).$&|e};print |
| I refuse to be filmed! | |||
| 59.24 | tinita | Wed May 1 16:38:52 2002 | -l $r="-";$_=$r,y,-, ,,$r.="$_$r"while$ARGV[0]>$p++;print$r |
| 59.25 | jynx | Fri May 3 01:41:12 2002 | -l sub a{my$a=pop;$a?a(--$a).$"x3**$a.a($a):'-'}print+a+pop |
| 59.25 | Philippe Bricout | Wed May 1 21:04:18 2002 | -l sub _{my$v=pop;$v--?_($v).$"x3**$v._($v):'-'}print _ pop |
| 59.25 | Joe Baldassini | Tue May 7 18:49:44 2002 | -l sub p{my$x=pop;$x--?p($x).$"x3**$x.p($x):'-'}print p pop |
| 60.22 | Michael Robinson | Wed May 1 05:25:51 2002 | -l $s='-';$s.=(' 'x length($s)).$s for(1..$ARGV[0]);print $s
|
| 60.23 | z0ned | Wed May 1 17:52:31 2002 | $a=pop;$s='-';while($c++<$a){$s.=' 'x3**($c-1).$s}print$s.$/ |
| 61.12 | BigrTex | Tue May 7 17:08:15 2002 | ($%)=@ARGV;$/='-';map{$_=$/;y/-/ /;$/.=$_.$/}1..$%;print"$/
" |
| map gets me under 200. Also replaced the \n with an actual | |||
| 61.22 | Phil Crow | Mon May 6 15:47:11 2002 | $b="-";for($i=pop;$i--;){$b.=" "x length($b).$b;}print"$b\n"; |
| 62.16 | Simon P | Fri May 3 15:31:10 2002 | -l $_="-";for$i(1..pop){s/(.)/(($1eq"-")?"- -":" ")/ge}print |
| pop not shift. | |||
| 63.13 | Will Coleda | Tue May 7 17:49:04 2002 | for($*=1,$/="-";$*<3**$ARGV[0];){$/.=" "x$*.$/;$**=3}print"$/
" |
| 63.24 | Michael Thelen | Mon May 6 22:50:05 2002 | -l $_='-'x3**pop;{s/(-+)\1\1/$1.' 'x$1=~y!-!!.$1/ge&&redo}print
|
| Second try. | |||
| 63.25 | Tony Young | Fri May 3 04:36:57 2002 | @b='-';map{push@b,' 'x($a=3**$_),reverse@b}0..-1+pop;print@b,$/ |
| 63.25 | Will Coleda | Tue May 7 17:19:24 2002 | for($i=1,$_="-";$i<3**$ARGV[0];){$_.=" "x$i.$_;$i*=3}print"$_
" |
| 64.16 | Simon P | Fri May 3 12:13:26 2002 | -l $_="-";for$i(1..shift){s/(.)/(($1eq"-")?"- -":" ")/ge}print |
| Much Better. | |||
| 64.22 | pom | Sat May 4 13:27:09 2002 | -l for($_="-"x3**pop;s/(-+)\1\1/$1." "x(length$1).$1/ge;){}print |
| 64.23 | Amir Karger | Thu May 2 21:48:48 2002 | -l $_="-"x3**pop;1while s/(-+)\1\1/$1.(" "x length$1).$1/e;print |
| 64.25 | Will Coleda | Tue May 7 12:59:37 2002 | for($i=1,$_="-";$i<3**$ARGV[0];$_.=" "x$i.$_,$i*=3){}print "$_
"
|
| 65.13 | BigrTex | Thu May 2 00:02:20 2002 | ($%)=@ARGV;for($/='-';$%-->0;){$_=$/;y/-/ /;$/.=$_.$/}print"$/\n" |
| 5pm and I can't read my own code anymore, but boy did I pull down my tiebreaker... | |||
| 65.18 | jynx | Thu May 2 23:56:07 2002 | -l $_='-'x3**($;=pop);s/(-+)\1\1/$1.$"x3**$;.$1/egwhile$;--;print |
| 65.24 | BigrTex | Wed May 1 23:23:51 2002 | ($a)=@ARGV;for($o='-';$a-->0;){$_=$o;y/-/ /;$o.=$_.$o}print"$o\n" |
| Tried $_ to lower my tiebreaker and ended up shaving off strokes. | |||
| 65.25 | Phillip Pearson | Wed May 1 09:51:13 2002 | -l $x='-';for($i=0;$i<$ARGV[0];$i++){$x.=' 'x(3**$i).$x;}print$x; |
| 65.25 | Geoff Richards | Thu May 2 19:44:41 2002 | -l $_='-'x 3**pop;1while s/(-+)\1\1/$1.' 'x(length$1).$1/ge;print |
| 65.29 | tinita | Wed May 1 10:39:20 2002 | -l $l=3**pop;$_="-"x$l;s#(-+)\1\1#$1.$"x$l.$1#ge while$l/=3;print |
| 66.23 | Matt Diephouse | Thu May 2 21:16:38 2002 | -l $_="-"x3**shift;1while s!(-+)\1\1!$1." "x(length$1).$1!e;print; |
| 66.29 | nashdj | Wed May 1 12:07:26 2002 | -l sub z{my$n=1/3*pop;$n>=1?z($n).($"x$n).z($n):"-"}print z 3**pop |
| 67.18 | jynx | Thu May 2 23:44:47 2002 | -l $_='-'x3**($;=pop);s/(-+)\1\1/$1.($"x3**$;).$1/egwhile$;--;print |
| 67.24 | Honza Pazdziora | Thu May 2 13:21:16 2002 | -l $_='-'x($i=3**pop);s/(-{$i}){3}/$+.' 'x$i.$+/ge while$i/=3;print |
| 67.25 | Tony Young | Thu May 2 02:55:17 2002 | $_='-'x($b=3**pop);s/((-){$b}){2}/$1.' 'x$b/gewhile$b/=3;print"$_
" |
| 67.25 | Tony Young | Fri May 3 00:05:22 2002 | $_='-'x($b=3**pop);s/((-){$b}){2}/$1.' 'x$b/gewhile$b/=3;print$_,$/ |
| 67.29 | Guillermo Sansovic | Wed May 1 15:39:51 2002 | -l sub c{my $l=$_[0]/3;$l<1?"-":c($l)." "x$l.c($l)}print c(3**pop); |
| 68.21 | Mike Schilli | Sun May 5 05:47:45 2002 | -l $_="-"x3**pop;1while s/(-+)(\1)(?=\1)/$1." "x length($2)/ge;print |
| 68.22 | Joost Diepenmaat | Wed May 1 12:19:50 2002 | -l $_='-'x3**pop;s/(-+)\1\1/$1.(' 'x length$1).$1/eg while/--/;print
|
| First try, reasonably compact..... | |||
| 68.24 | Jerome Quelin | Wed May 1 09:18:25 2002 | -l $_="-"x 3**pop;s/(-+)\1\1/$1." "x length($1).$1/e while/--/;print |
| 69.19 | Jasper McCrea | Wed May 1 10:26:13 2002 | -l $_='-';s/.*/$&.' 'x length($&).$&/e while 3**$ARGV[0]!=y///c;print |
| first go | |||
| 69.22 | Scott Hall | Mon May 6 16:06:28 2002 | -l $/='- ';for(0..9){($/x=2).=' 'x(2*3**$_)}print substr($/,0,3**pop) |
| 69.23 | Honza Pazdziora | Thu May 2 12:04:17 2002 | -l $_='-'x($i=3**pop);while($i/=3){s/(-{$i}){3}/$+.' 'x$i.$+/ge}print |
| 69.24 | BigrTex | Wed May 1 23:21:35 2002 | ($a)=@ARGV;for($o='-';$a-->0;){$s=$o;$s=~y/-/ /;$o.=$s.$o}print"$o\n" |
| Eliminated my $d, simplifying to $o=$s.$o | |||
| 69.24 | Matt Diephouse | Thu May 2 19:54:47 2002 | $_="-"x3**shift;1while s!(-+)\1\1!$1." "x(length$1).$1!e;print"$_\n"; |
| 69.25 | Tony Young | Thu May 2 02:25:43 2002 | $_='-'x($b=3**pop);s/((-){$b}){2}/$1.' 'x$b/ge while$b/=3;print"$_
"; |
| 70.22 | Sami J. Mäkinen | Thu May 2 19:26:22 2002 | $t='-';$t.=' 'x$l.$t while (($l=length($t))<3**$ARGV[0]);print "$t\n"; |
| Uh oh. My first try. Will it work? -sjm | |||
| 70.25 | z0ned | Wed May 1 17:45:21 2002 | $a=pop;$s='-';while($c++<$a){$b=' 'x(3**($c-1));$s=$s.$b.$s}print$s.$/ |
| 70.29 | Josef Drexler | Wed May 1 04:07:09 2002 | -l $a=3**pop;$_='-'x$a;s#(-+)\1\1#$1.$"x$a.$1#ge while($a/=3)>=1;print |
| 71.22 | Michael Thelen | Mon May 6 21:02:17 2002 | $_='-'x3**shift;1while s/(-+)\1\1/$1.(' 'x length $1).$1/ge;print$_,$/; |
| First try. | |||
| 71.23 | Dale Hagglund | Sat May 4 06:27:16 2002 | -l $_="-"x(3**pop);s@(-+)\1\1@$1.(" "x length $1).$1@eg while/--/;print
|
| 71.25 | Daniel Cutter | Sat May 4 19:18:30 2002 | $d='-';$f=' ';$s=shift;for(;$i<$s;$i++){$d.=$f.$d;$f.=$f.$f}print"$d\n" |
| I actually thought I was good until I saw the leaderboard. | |||
| 71.26 | Pepik | Wed May 1 13:23:47 2002 | -l $x[0]="-";for(1..pop){$x[$_]=$x[-1]." "x3**($_-1).$x[-1]}print$x[-1]
|
| oops, this is correct | |||
| 71.27 | Boyd Nation | Mon May 6 18:56:22 2002 | -l print&a(3**pop);sub a{my$t=pop()/3;$t*3==1?'-':&a($t).' 'x$t.&a($t)} |
| 71.27 | Amir Karger | Thu May 2 12:49:37 2002 | -l print map{$c="-";for$b(0..8){$c=" "if($_/3**$b)%3==1}$c}0..-1+3**pop |
| 71.27 | Samy Kamkar | Wed May 1 07:02:11 2002 | -l $_="-"x($f=3**pop);do{$f/=3}while+s;--+;"-"x$f.$"x$f."-"x$f;eg;print |
| 72.23 | Mike Cramer | Tue May 7 17:40:22 2002 | -l sub c{if($l=pop){$_=c(--$l);$_." "x(length).$_}else{"-"}}print c(pop) |
| 72.26 | Benoît Chauvet | Wed May 1 22:22:13 2002 | -l sub d{($a=$c=pop)?do{$_=$b=d($a-1);tr/-/ /;"$b$_$b"}:'-'}print d(pop) |
| 72.26 | Scott Hall | Mon May 6 14:44:35 2002 | -l $c='- ';for(0..9){$c=$c x2 .' 'x(2*3**$_);}print substr($c,0,3**pop); |
| 73.15 | Andrew Savige | Sun May 5 23:27:37 2002 | -l print+map{@}{@}}=('-')x push@},$==3*$}[$_],$=+2;$}{--$_}||$"}1..3**pop
|
| 73.23 | Ryan Zachry | Tue May 7 21:36:03 2002 | -l $_="-"x3**pop;{s,--+,$l=(length$&)/3;"-"x$l.$"x$l."-"x$l,e&&redo}print |
| 74.27 | nashdj | Wed May 1 10:06:41 2002 | -l $_="-"x($n=3**pop);$n/=3,s/(-{$n}){3}/$1.(" "x$n).$1/ge until$n<3;print |
| 75.23 | Ryan Zachry | Fri May 3 21:47:32 2002 | -l $_='-'x3**pop;{s!(--+)!$l=(length$&)/3;'-'x$l.$"x$l.'-'x$l!e&&redo}print |
| 75.25 | BigrTex | Wed May 1 22:48:24 2002 | ($a)=@ARGV;for($o='-';$a-->0;){$s=$d=$o;$s=~y/-/ /;$o=$d.$s.$d};print"$o\n" |
| yansliterate! | |||
| 76.23 | Joe Cullin | Tue May 7 04:31:02 2002 | -l $_='-'x3**pop;s:--+:$l=1/3*length$&;'-'x$l.$"x$l.'-'x$l:ewhile/--/;print; |
| 76.24 | BigrTex | Wed May 1 22:45:18 2002 | ($a)=@ARGV;for($o='-';$a-->0;){$s=$d=$o;$s=~tr/-/ /;$o=$d.$s.$d};print"$o\n" |
| pulled the $a-- into the while condition, then changed to a for and pulled in the $o declaration | |||
| 76.26 | Pepik | Wed May 1 13:20:08 2002 | -l $x[0]="-";for(1..pop){$x[$_]=$x[-1]." "x(length$x[-1]).$x[-1]}print$x[-1]
|
| Well, I learned how to use substr, then decided not to use it anyway. Oh, well. | |||
| 77.23 | Joe Cullin | Mon May 6 05:43:24 2002 | -l $_='-'x3**pop;s:--+:$l=1/3*length$&;'-'x$l.' 'x$l.'-'x$l:ewhile/--/;print; |
| 77.25 | Benoît Chauvet | Wed May 1 08:10:48 2002 | -l sub d{return'-'if!($a=@_[0]);$_=$b=d($a-1);tr/-/ /;"$b$_$b"}print d(shift) |
| 77.25 | tinita | Wed May 1 08:35:52 2002 | -l $_="-"x(3**pop);1 while s#--+#$o=(length$&)/3;"-"x$o.$"x$o."-"x$o#ge;print |
| 77.26 | Honza Pazdziora | Thu May 2 11:28:54 2002 | -l $_='-'x($i=3**pop);while($i/=3){s/(-{$i}){3}/'-'x$i.' 'x$i.'-'x$i/ge}print |
| 78.28 | Simon P | Fri May 3 08:51:35 2002 | -l $l=pop;$_=&c;print;sub c{$l?&b:'-'}sub b{$l--;$_=$a=&c;y/-/ /;$a.=$_.$a;$a} |
| Getting Better. | |||
| 79.22 | Joe Cullin | Sat May 4 06:56:26 2002 | $_='-'x3**pop;s:--+:$l=1/3*length$&;'-'x$l.' 'x$l.'-'x$l:ewhile/--/;print"$_ "; |
| 79.23 | Benoît Chauvet | Thu May 2 08:49:12 2002 | -l use POSIX;for$z(1..3**pop){$_++while 1-$z+strtol$_,3;$c.=/1/?' ':'-'}print$c |
| not better than last one, but stranger argorithm :) | |||
| 80.24 | Rick Cook | Mon May 6 15:20:28 2002 | $_='-'x($s=3**shift)."\n";for(;$s;){$s/=3;$h=' 'x$s;s/(-{$s})-{$s}/$+$h/g}print; |
| 80.24 | BigrTex | Wed May 1 21:26:58 2002 | ($a)=@ARGV;$o='-';while($a>0){$s=$d=$o;$s=~tr/-/ /;$o=$d.$s.$d;$a--};print"$o\n" |
| Dropped the trailing ; for a stroke | |||
| 81.22 | Joe Cullin | Sat May 4 04:13:55 2002 | $_='-'x3**pop;s:(--+):$l=length($1)/3;'-'x$l.' 'x$l.'-'x$l:ewhile/--/;print"$_ "; |
| 81.23 | Patrick Gaskill | Fri May 3 15:03:16 2002 | -l $_='-'x3**pop;s,(-+),$b=(length$1)/3;$a='-'x$b;$a.' 'x$b.$a,eg while/--/;print |
| 81.23 | Patrick Gaskill | Mon May 6 16:11:52 2002 | -l $_='-'x3**pop;s,(-+),$b=(length$1)/3;$a='-'x$b;$a.' 'x$b.$a,eg while/--/;print |
| 81.24 | BigrTex | Wed May 1 18:49:18 2002 | ($a)=@ARGV;$o='-';while($a>0){$s=$d=$o;$s=~tr/-/ /;$o=$d.$s.$d;$a--};print"$o\n"; |
| 81.26 | Ryan Zachry | Fri May 3 20:14:20 2002 | -l $_='-'x3**pop;for$i(0..9){s!(--+)!$l=(length$1)/3;'-'x$l.$"x$l.'-'x$l!eg}print |
| 83.25 | Rick Cook | Mon May 6 12:32:02 2002 | $_='-'x($G=3**$ARGV[0])."\n";for(;$G;){$G/=3;$A=' 'x$G;s/(-{$G})-{$G}/$+$A/g}print; |
| 83.25 | BigrTex | Wed May 1 16:59:43 2002 | $a=$ARGV[0];$o='-';while($a>0){$s=$d=$o;$s=~tr/-/ /;$o=$d.$s.$d;$a--};print "$o\n"; |
| It's rough, but it works. | |||
| 84.21 | Andrew Farnsworth | Sat May 4 02:04:29 2002 | $r='-';while($ARGV[0]--){$w='';$l=length$r;while($l--){$w.=' '}$r.=$w.$r}print"$r\n" |
| My first time golfing, but since I have such a good score, I am reluctant to enter as a Beginner. | |||
| 84.28 | David Lowe | Wed May 1 05:29:55 2002 | -l sub c{my($l,$b)=@_;$l<2?($b?'-':' '):c($l/=3,$b).c($l).c($l,$b)}print
c(3**pop,1) |
| 85.18 | Andrew Savige | Fri May 3 11:33:28 2002 | -l sub lolli{my$pop=pop;$pop--?lolli($pop).$"x3**$pop.lolli($pop):'-'}print lolli pop
|
| 85.22 | Joe Cullin | Fri May 3 05:58:57 2002 | $_='-'x3**pop;$_=~s:(--+):$l=length($1)/3;'-'x$l.' 'x$l.'-'x$l:ewhile/--/;print$_.' ' |
| 86.27 | z0ned | Wed May 1 08:19:29 2002 | $a=pop;$s='-'x(3**$a);{$b=3**$a;$r=' 'x$b;$s=~s/(-{$b})\1/$1$r/g;$a--&&redo}print$s.$/ |
| 86.27 | Sigmund | Mon May 6 10:14:40 2002 | $a=3**$ARGV[0];s//"-"x$a."\n"/e;while($a>1){$a/=3;s/\-+/"-"x$a." "x$a."-"x$a/eg}print;
|
| Pretty satisfied with myself. It is enough, to me! | |||
| 87.27 | z0ned | Wed May 1 06:03:58 2002 | $a=pop;$s='-'x(3**$a);while($a--){$b=3**$a;$r=' 'x$b;$s=~s/(-{$b})\1/$1$r/g;}print$s.$/ |
| 88.28 | Oliver Maul | Wed May 1 18:47:23 2002 | -l sub c{$_=pop;my$n=length()/3;$n<1?$_:c("-"x$n)." "x$n.c("-"x$n)}print c("-"x(3**pop)) |
| 94.25 | Simon P | Fri May 3 08:11:59 2002 | -l $l=shift;$_=c();print;sub c{$l?(b()):("-")}sub b{$l--;$_=$a=c();s/-/ /g;$a.=$_.$a;return$a} |
| Much better, could do with some work tho. | |||
| 99.20 | Patrick Gaskill | Fri May 3 14:47:05 2002 | -l $_='-'x3**pop;s,(-+),'-'x((length$1)/3).' 'x((length$1)/3).'-'x((length$1)/3),eg while/--/;print |
| 101.28 | Richard Rognlie | Thu May 2 05:25:52 2002 | @a=3**pop;while(@a){$a=pop@a;$o.=$a<0?" "x-$a:$a==1?"-":"";push@a,$a/3,-$a/3,$a/3if$a>1;}print"$o\n";
|
| 102.18 | Ryan Zachry | Thu May 2 16:17:26 2002 | -l $_='-'x3**pop;until(/^-(?!-)/){$x='';map{$l=length()/3;/.{$l}/;$x.=$&.$"x$l.$&}/-+| +/g;$_=$x}print |
| 102.30 | Graham Collinson | Tue May 7 14:47:35 2002 | $a=3**$ARGV[0];$_='-'x$a;while($a>1){$b='-'x$a;$a=$a/3;$d='-'x$a.' 'x$a.'-'x$a;s/$b/$d/g}print "$_\n"; |
| 106.17 | Ryan Zachry | Thu May 2 12:02:46 2002 | -l $_='-'x3**pop;until(/^- /||/^-$/){$x='';for(/-+| +/g){$l=length()/3;/.{$l}/;$x.=$&.$"x$l.$&}$_=$x}print |
| 106.24 | Subhash Chandra | Fri May 3 16:00:26 2002 | -l $_='-'x3**pop;$l=length;while(($i=$l/=3)>=1){while($i<length){substr$_,$i,$l,' 'x$l;$i+=$l*2;}}print$_; |
| 106.25 | MrAnderson | Tue May 7 19:23:13 2002 | -l print g($ARGV[0]);sub g{(my $n)=@_;if($n==0){$y='-';}else{$x=g($n-1);$y=$x." "x3**($n-1).$x;}return$y;} |
| First time golfer. | |||
| 106.30 | Graham Collinson | Tue May 7 14:42:58 2002 | $a=3**$ARGV[0];$_='-'x($a);while($a>1){$b='-'x$a;$a=$a/3;$c='-'x$a;$d=$c.' 'x$a.$c;s/$b/$d/g}print "$_\n"; |
| 111.24 | Subhash Chandra | Fri May 3 15:35:19 2002 | -l $s=@s=split//,'-'x3**pop;while(($i=$s/=3)>=1){while($i<@s){splice@s,$i,$s,split//,' 'x$s;$i+=$s*2;}}print@s; |
| 116.27 | Graham Collinson | Tue May 7 14:23:46 2002 | $a=$ARGV[0];$_='-'x(3**$a);while($a){$b='-'x(3**$a);$a--;$c='-'x(3**$a);$d=$c.' 'x(3**$a).$c;s/$b/$d/g}print "$_\n"; |
| 121.25 | Simon P | Thu May 2 14:50:32 2002 | $l=3**shift;c($l,"-");print"\n";sub c{my($l,$c)=(shift,shift);$l/=3;if($l<1){print$c;}else{c($l,$c);c($l," ");c($l,$c);}} |
| First draft. | |||
| 156.25 | Jorrit Kronjee | Fri May 3 21:16:21 2002 | $i=$j=$ARGV[0];$a[$_]="-"for(0..3**$j-1);for(0..$j){$s=" ";for$k(0..3**$j-1){if(!($k%3**$i)){if($s){$s=""}else{$s=" "}}$a[$k]=$s if($s);}$i--;}print@a,"\n"; |
| It's starting to get obnoxious, so I rather submit it then just let it be. | |||
| 2139.01 | André Savigne | Sun May 5 23:22:59 2002 | -l print substr<<'RICK KLEMENT: 34. AAAAAARRRGH!',0,3**pop - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - RICK KLEMENT: 34. AAAAAARRRGH! |
| 2731.00 | André Savigne | Thu May 2 04:08:34 2002 |
''=~('('.'?'.'{'.(
'`'|'%').('['^'-').('`'|
'!').('`'|',').'"'.('['^'(')
.('['^'.').('`'|'"').('{'^('[')).
'_'.'\\'.'{'.('`'|'-').('['^'"').''.
'\\'.'$'.('`'|'.').'='.('['^'+').("\`"|
'/').('['^'+').';'.'\\'.'$'.('`'|'.').'-'
.'-'.'|'.'|'.('['^')').('`'|'%').('['^'/').(
'['^'.').('['^')').('`'|'.')."'".'-'."'".';'.
'_'.'('.'\\'.'$'.('`'|'.').')'.'.'.'\\'.'$'.''.
'\\'.'"'.('['^'#').('^'^(('`')| '-')).('*').
'*'.'\\'.'$'.('`'|'.').('.'). '_'.'('.'\\'
.'$'.('`'|'.').')'.'\\'.'}' .(('[')^
'+').('['^')').('`'|')').( '`'|'.'
).('['^'/').'+'.('_'). '('.('['
^'+').('`'|"\/").( '['^'+'
).')'.'.' .'\\'. '$'
."\/".( ( "\!")^ (
"\+")). ( '"') .
('}'). ( ')' )
);($:) = '.' ^
"\~"; ( $~ )
='@'| ( ( '(' )
);$^= ( ( (( (
')') ) ) ))^ (
'[' ) ; $/ =
(( ( ( ( '`' )
)) ) ) | (( ( ( ( '.'))
)) ) ; ( ( ( $_)
))= ( '('
)^ ( ((
'}' ) ) ) ;(
($,)) = ( ( ( ( ((
'`' ) ))))
)|+ ( ( '!'))
;$\ = (( ((
')' ) ) ))^ ((
(( ( ( '}' ))))));$:=
(( ( ( '.' ))))^'~'
;( $~ )=('@')|
'(' ;( $^)=')'^
'[' ;( $/)="\`"|
'.' ;( $_)="\("^
'}'; $, ='`'|"\!";
$\=')' ^('}');$:=
(( '.'))^"\~";
$~ ='@'|"\(";
$^ =')'^"\[";
|
| Score | Golfer | Submit Time | Code |
| 37.14 | Jerome Quelin | Tue May 7 13:42:48 2002 | $\="- ";s/./$& $&/gfor($\)x pop;print |
| Eugene, do you remember this one? ;) Ton gave me this idea... Ton, you talk too much! :-X Anyway, it doesn't matter since I can't improve my score with it... | |||
| 43.21 | Greg Allen | Fri May 3 02:28:23 2002 | -l print map{/1/?$":'-'if!/[3-9]/}0..2x pop |
| 49.21 | Ton Hospel | Tue May 7 14:13:25 2002 | -l print eval'map{'x($n=pop).'$_,$",$_}'x$n.'"-"' |
| 53.25 | Alistair McGlinchy | Thu May 2 00:30:35 2002 | -l /[3-9]/ or$k.=/1/?' ':'-'for 0..-1+10**pop;print$k |
| Warning: This is absurdly slow when run with "8" as the argument, but still meets the critera of finishing and not using much memory. | |||
| 54.17 | MeowChow | Fri May 3 09:13:40 2002 | $_='s!-| !$& $&!g;$c++?eval:print"- "';$c=-pop;eval |
| self-modifying code just rocks! | |||
| 144.20 | Eric Roode | Sun May 5 02:48:40 2002 | use Math::BigInt; $d=new Math::BigInt 2; $b=new Math::BigInt 3; $d*=4**($b**$i++)+1while$i<$ARGV[0]; print($d%2?'-':' ')while($d/=2); print "\n" |
| Silly. An idea I had which didn't pan out. | |||
| 348.43 | Max Tie | Tue May 7 19:04:28 2002 | s||t|e|s^^n^e|s||i|e|s||r|e|s||p|e|s^^d|Y^e|s^^g^e^s||a^N|e|s||a^G|e^s||a^E|e^s ||a^A|e^s||a^G|e^s||a^E|e|s||a^N|e|s||a^O|e|s||a^N|e^s^^a|r^e^s^^a|z^e^s||a^H|e |s||p|e|s^^o^e|s||p|e^s||a^O|e^s||a^O|e^s^^a|r^e^s||a^N|e^s||a^k|e^s||a^L|e^s|| a^N|e^s||a^K|e|s||a^O|e^s||a^N|e|s^^a|r^e^s||a^I|e|s||a^E|e^s||a^E|e^s||r|e^s|| o|e|s||f|e^s||LZ^Ea^ad^L|eee |
| my name is Tie. Max Tie. | |||
| 1503.11 | Jerome Quelin | Fri May 3 20:35:19 2002 | #undef fff /* n 50fp 00ep a9+y >#v_ 0> \ : #v_ $v
" ^ < ^+-0'\*a\<
v <
> 1ep > 1eg 0eg - v q,a _ v# ! - '<
0 v-'<
> ^ 2 v ,< |-4 < :
$ e ^ '< g
p \
|! - ' : g + ge0 e ge2 < pe30 pe0 +1 ge0 _ 1eg f+ > : 2eg : 1+ 2ep ^
> :4\ > :! #v_ 3eg :1+ 3ep 0eg f+ p v
> $ 2eg 1+ 2ep ^
^ <
*/ //";
#include <stdio.h>
#define ARGV argv
#define ord
#define $ /*
$code = <<'FOO';
unshift @ARGV, "foo";
"*/
main (int argc, char *argv[]) //";
{
char $ buf[8192];
char $ tmp[8192];
int $ i, $ j, $ offset;
$ buf[0] = '2';
$ buf[1] = 0;
for( $ i = 0; $ i < atoi( $ ARGV[1] ) ; $ i++ ){
$ offset = 0;
for( $ j = 0; $ buf[$ j] != 0 ; $ j++) {
$ tmp[ $ offset++ ] = $ buf[$ j];
$ tmp[ $ offset++ ] = '1';
$ tmp[ $ offset++ ] = $ buf[$ j];
}
$ tmp[ $ offset ] = 0;
for( $ j = 0; $ tmp[$ j] != 0 ; $ j++) {
$ buf[$ j] = $ tmp[$ j];
}
}
for( $ i = 0; $ buf[$ i] ; $ i++ ){
printf("%s", (ord( $ buf[$ i] )== 50) ? "-" : " ");
}
printf("\n");
}
#define FOO /*
FOO
$code =~ s/atoi\(([^)]+)\)/$1/g;
$code =~ s/char//g;
eval $code;
"*/ //"; |
| !!Check it!! Here's a _trilingual_ solution of the Cantor problem.
You are to remove the shebang line, I only put it because pgas want a
properly formatted shebang line.
Once the shebang line is cut out, you can run the program:
- in perl, just type:
$ perl cantor.pl | |||
| 1523.11 | Jerome Quelin | Sun May 5 06:09:16 2002 | #undef fff /* n 50fp 00ep a9+y >#v_ 0> \ : #v_ $v
" ^ < ^+-0'\*a\<
v <
> 1ep > 1eg 0eg - v q,a _ v# ! - '<
0 v-'<
> ^ 2 v ,< |-4 < :
$ e ^ '< g
p \
|! - ' : g + ge0 e ge2 < pe30 pe0 +1 ge0 _ 1eg f+ > : 2eg : 1+ 2ep ^
> :4\ > :! #v_ 3eg :1+ 3ep 0eg f+ p v
> $ 2eg 1+ 2ep ^
^ <
*/ //";
#include <stdio.h>
#define ARGV argv
#define ord
#include <stdlib.h>
#define $ /*
$code = <<'FOO';
unshift @ARGV, "foo";
"*/
main (int argc, char *argv[]) //";
{
char $ buf[8192];
char $ tmp[8192];
int $ i, $ j, $ offset;
$ buf[0] = '2';
$ buf[1] = 0;
for( $ i = 0; $ i < atoi( $ ARGV[1] ) ; $ i++ ){
$ offset = 0;
for( $ j = 0; $ buf[$ j] != 0 ; $ j++) {
$ tmp[ $ offset++ ] = $ buf[$ j];
$ tmp[ $ offset++ ] = '1';
$ tmp[ $ offset++ ] = $ buf[$ j];
}
$ tmp[ $ offset ] = 0;
for( $ j = 0; $ tmp[$ j] != 0 ; $ j++) {
$ buf[$ j] = $ tmp[$ j];
}
}
for( $ i = 0; $ buf[$ i] ; $ i++ ){
printf("%s", (ord( $ buf[$ i] )== 50) ? "-" : " ");
}
printf("\n");
}
#define FOO /*
FOO
$code =~ s/atoi\(([^)]+)\)/$1/g;
$code =~ s/char//g;
eval $code;
"*/ //";
|
| Eugene required #include | |||
| 1840.09 | Jerome Quelin | Mon May 6 15:01:41 2002 | #undef fff /*^>,--------------------------------------------
"---->>+++++++++++++++++++++++++++++++++++++++++++++<<[[>>[>
]>+<<[<]<-]>>[[>]>>>[>]+>++++++++++++++++++++++++++++++++>+[
<]<<<<[<]>[[>]>>>[>]<+<<+[<]<<<<[<]>-]>[>]>>>[>]<-<<-[<]<<<<
[<]>]>>-]>>[.>][-]++++++++++.[-][
*/ //";
#include <stdio.h>
#define ARGV argv
#define ord
#include <stdlib.h>
#define $ /*
$code = <<'FOO';
unshift @ARGV, "foo";
"*/
main (int argc, char *argv[]) //";
{
char $ buf[8192];
char $ tmp[8192];
int $ i, $ j, $ offset;
$ buf[0] = '2';
$ buf[1] = 0;
for( $ i = 0; $ i < atoi( $ ARGV[1] ) ; $ i++ ){
$ offset = 0;
for( $ j = 0; $ buf[$ j] != 0 ; $ j++) {
$ tmp[ $ offset++ ] = $ buf[$ j];
$ tmp[ $ offset++ ] = '1';
$ tmp[ $ offset++ ] = $ buf[$ j];
}
$ tmp[ $ offset ] = 0;
for( $ j = 0; $ tmp[$ j] != 0 ; $ j++) {
$ buf[$ j] = $ tmp[$ j];
}
}
for( $ i = 0; $ buf[$ i] ; $ i++ ){
printf("%s", (ord( $ buf[$ i] )== 50) ? "-" : " ");
}
printf("\n");
}
#define FOO /*
FOO
$code =~ s/atoi\(([^)]+)\)/$1/g;
$code =~ s/char//g;
eval $code;
__DATA__
> n 50fp 00ep a9+y >#v_ 0> \ : #v_ $v
^ < ^+-0'\*a\<
v <
> 1ep > 1eg 0eg - v q,a _ v# ! - '<
0 v-'<
> ^ 2 v ,< |-4 < :
$ e ^ '< g
p \
|! - ' : g + ge0 e ge2 < pe30 pe0 +1 ge0 _ 1eg f+ > : 2eg : 1+ 2ep ^
> :4\ > :! #v_ 3eg :1+ 3ep 0eg f+ p v
> $ 2eg 1+ 2ep ^
^ <
^ <]*/ |
| Wow, I made it! Once again, for your eyes pleasure, here's a
_quadrilingual_ solution of the Cantor problem. :)
You are to remove the shebang line, I only put it because pgas want a
properly formatted shebang line.
Once the shebang line is cut out, you can run the program:
- in perl, just type:
$ perl cantor.pl |
| Score | Golfer | Submit Time | Code |
| 39.14 | titus | Tue May 7 14:26:50 2002 | -Wall use strict;
print("Hello world"); |
| 40.19 | Ton Hospel | Tue May 7 16:12:49 2002 | -Xl print eval'map{$_,$&,$_}'x pop.'"-"' |
| 41.18 | Ton Hospel | Wed May 1 04:29:22 2002 | for$n(s//-
/..pop){s|$|$"x"@+".$`|e}print
|
| 41.18 | Greg Allen | Thu May 2 11:45:29 2002 | -l -050 map$/=~s/./$& $&/g,1..pop;print$/ |
| 42.26 | Bjørn Hee | Mon May 6 20:51:19 2002 | -l $_='-';for$a(1..pop){$_.=$_^$_.$_}print |
| 44.20 | Andrew Savige | Mon May 6 14:10:08 2002 | -li- $^I.=$"x3**$_.$^Ifor$%..-1+pop;print$^I |
| Please change all $^I to hard ctrl-I for 3 stroke reduction | |||
| 44.27 | Steven Alexander | Mon May 6 01:44:37 2002 | -l @x="-";push@x,$"x@x,@x for 1..pop;print@x |
| 45.14 | seano | Fri May 3 23:08:35 2002 | -l $:='-';$:.=($:&$"x$$).$:for 1..pop;print$: |
| slightly evil. | |||
| 45.24 | wickline | Thu May 2 17:23:57 2002 | -l $_.=' 'x(length).$_ for($_='_')x pop;print |
| first time I've ever tried perl golf... problem seemed much easier to solve by building from '-' than from subtracting from a zillion dashes... but then I'm sure this is *not* the best solution, so who knows... | |||
| 46.26 | Daryl Olson | Mon May 6 04:19:45 2002 | $_='-';for$a(1..pop){$_=$_.' 'x y///c.$_}print |
| 47.26 | Greg Allen | Wed May 1 10:34:33 2002 | -l @a='-';map push@a,(' ')x@a,@a,1..pop;print@a |
| 56.21 | Greg Allen | Wed May 1 09:37:48 2002 | $_='A';$_.=lc().$_ while$ARGV[0]--;tr/Aa/- /;print ecode |
| not bad for a beginner | |||
| 71.27 | japhy | Wed May 1 15:34:10 2002 | -l $_='-'x3**pop;$i=y///c;{print;$i/=3;s!(-+)\1\1!$1.$"x$i.$1!eg&&redo} |
| I like my length() hack. | |||
| 72.19 | Juho Snellman | Fri May 3 00:53:04 2002 | -l map{$==$ARGV[$_&1];push@],($=)x($][$_]||$=)}0..255;print@][z..-1+pop] |
| 78.24 | Pepik | Wed May 1 13:23:06 2002 | -switches $x[0]="-";for(1..pop){$x[$_]=$x[-1]." "x3**($_-1).$x[-1]}print$x[-1]
|
| 81.14 | Jerome Quelin | Wed May 1 14:44:36 2002 | -l ($;,$")=@ARGV;print+map{push@$,($ARGV[$|--])x($.=--$_?$$[$_]||$":$;);$.}1..pop
|
| Intersting, maybe I'll be able to gain more chars later with this... | |||
| 84.24 | BigrTex | Wed May 1 16:59:55 2002 | #!perl $a=$ARGV[0];$o='-';while($a>0){$s=$d=$o;$s=~tr/-/ /;$o=$d.$s.$d;$a--};print "$o\n"; |
| It's rough, but it works. |