[jumptrooper]

Code Golf: Round 2!

---

Objective: Create an entire* Perl script, in as few characters as possible, that outputs the first 34 rows of Pascal's Triangle. The point is to generate the correct answer with the smallest amount of code.

Required output: You program should produce this, and nothing else.

Other Stuff: Bonus points for doing this in Perl! (Bonus points are good!) If you want to try it in another language, you are more than welcome to. To submit your entry, reply to this post and paste your code in "spoiler" tags. This challenge was originally create by the wonderful people at www.codegolf.com.

*Note: We are looking for a complete program - not just a subroutine. Someone should be able to paste your code into a file, save it, and run it with "perl filename.pl".

Have fun!

This post has been edited by jumptrooper: 15 February 2011 - 05:19 PM

[BetaWar]

Well, I managed to do it in 173 total characters (including the #! up top):

A bit more information:
2 subs
3 loops


<edit>
172
155
</edit>

Spoiler

sub f{$s=1,$l=@_[0];for(1..$l){$s*=$_}return$s}sub c{($a,$B)/>=@_;return f($a)/(f($a-$B)/>*f($B)/>)}for(0..35){$n=$_;for(0..$n){$o.=c($n,$_)." "}$o.="\n"}print$o

[jumptrooper]

BetaWar, on 15 February 2011 - 03:20 PM, said:

Well, I managed to do it in 173 total characters (including the #! up top):

A bit more information:
2 subs
3 loops


<edit>
172
</edit>

Spoiler

#!/usr/bin/perl
sub f{$s=1,$l=@_[0];for(1..$l){$s*=$_}return$s}sub c{($a,$B)/>=@_;return f($a)/(f($a-$B)/>*f($B)/>)}for(0..34){$n=$_;for(0..$n){$o.=c($n,$_)." "}$o.="\n"}print$o

Very nice! I have sad (but easily fixed) news for you though: it doesn't print the very last row required by the specifications. Otherwise, very nice! +50 BONUS POINTS for using Perl!

I did notice a few things that could improve it though - in a few places you didn't put semi-colons (which Perl actually lets skate by), you could hack out some semi-colons in other spots to further reduce the character count. Also - another dirty/non-best-practice-but-it-still-works trick is to omit the beginning "#!..." line. when you run a Perl script using the "perl" command, you can get away without using it. You need that line if you want the program to run all on its own, like a built-in command.

[BetaWar]

Ah, yeah thanks about the last row. It is difficult since my windows box doesn't seem to allow redirection of output to file, so I can't view the output except for in the command prompt (which sucks). It should be fixed now (off by 1).

As for the semi-colons things I think I have as few semi-colons in the program as I can have without adding whitespace which would be required for the program to run properly. I may be wrong though, this is only the second thing I have done with perl.

[madblogr]

160 char
2 loops
2 subs

Spoiler

for($n=0;$n<=33;$n++){
for($k=0;$k<=$n;$k++){
$z=$n-$k;
print t($n,$k,$z)." ";
}
print "\n";
}
sub f {$_[0]>1?$_[0]*f($_[0]-1):1;}
sub t {f($_[0])/(f($_[1])*f($_[2]));}

[jumptrooper]

BetaWar, on 15 February 2011 - 10:20 PM, said:

Ah, yeah thanks about the last row. It is difficult since my windows box doesn't seem to allow redirection of output to file, so I can't view the output except for in the command prompt (which sucks). It should be fixed now (off by 1).

As for the semi-colons things I think I have as few semi-colons in the program as I can have without adding whitespace which would be required for the program to run properly. I may be wrong though, this is only the second thing I have done with perl.

Huh... that's odd... My Windows machine let me redirect my output...
I used perl filename.pl > out.txt

About your other point, you may be right - I didn't actually try taking out the other semi-colons. Also, it's fine if you have your code formatted - it doesn't need to be condensed down to a couple lines.

This post has been edited by jumptrooper: 16 February 2011 - 09:24 AM

[AdamSpeight2008]

I think 131? (Can someone double check!)
1 Loop, 1 Sub.

Spoiler

118 without the #!/usr/bin/perl

#!/usr/bin/perl
sub p{if($_[1]<=$_[0]){print p($_[0],$_[1]+1,$_[1]<1?1:$_[2]*(($_[0]+1-$_[1])/$_[1])),$_[1]<1?'':' '}
$_[2]}for(0..33){p($_,0,1);print "\n"}

Spoiler

ps plus +50 points I thank you.

This post has been edited by AdamSpeight2008: 16 February 2011 - 10:09 AM

[jumptrooper]

madblogr, on 16 February 2011 - 08:21 AM, said:

160 char
2 loops
2 subs

Spoiler

for($n=0;$n<=33;$n++){
for($k=0;$k<=$n;$k++){
$z=$n-$k;
print t($n,$k,$z)." ";
}
print "\n";
}
sub f {$_[0]>1?$_[0]*f($_[0]-1):1;}
sub t {f($_[0])/(f($_[1])*f($_[2]));}

Well done! +50 BONUS POINTS to you!

[jumptrooper]

AdamSpeight2008, on 16 February 2011 - 09:07 AM, said:

I think 131? (Can someone double check!)
1 Loop, 1 Sub.

Spoiler

118 without the #!/usr/bin/perl

#!/usr/bin/perl
sub p{if($_[1]<=$_[0]){print p($_[0],$_[1]+1,$_[1]<1?1:$_[2]*(($_[0]+1-$_[1])/$_[1])),$_[1]<1?'':' '}
$_[2]}for(0..33){p($_,0,1);print "\n"}

Spoiler

ps plus +50 points I thank you.

Nice work! Your output is good. And yes, +50 BONUS POINTS!!! The judges also decree +13 EXTRA POINTS for lowest score so far and only one sub routine!

[AdamSpeight2008]

What do I get for no sub and no loop?

Spoiler

74c

#!/usr/bin/perl
use LWP::Simple;
if(get("http://bit.ly/euDSeG")=~m/^<pre>([\S\s]*)<\/pre>$/){print$1};

Spoiler

I think this one is a little sneaky

Spoiler

but within the rules.

This post has been edited by AdamSpeight2008: 16 February 2011 - 11:43 AM

[jumptrooper]

AdamSpeight2008, on 16 February 2011 - 10:40 AM, said:

What do I get for no sub and no loop?

Spoiler

74c

#!/usr/bin/perl
use LWP::Simple;
if(get("http://bit.ly/euDSeG")=~m/^<pre>([\S\s]*)<\/pre>$/){print$1};

Spoiler

I think this one is a little sneaky

Spoiler

but within the rules.

+10 DIRTY TRICK POINTS with a x3 COMBO MULTIPLIER

The judges have gathered and have decreed that all submissions must do their own grunt work! No copying off their neighbors(website)!

Violators will be punished with shaming emoticons!!

So say-eth the illustrious judges!!

[AdamSpeight2008]

Down to 114c now.

Spoiler

#!/usr/bin/perl
sub p{if($_[1]<=$_){print p($_,$_[1]+1,$_[1]<1?1:$_[2]*(($_+1-$_[1])/$_[1])),$_[1]<1?"\n":' '}$_[2]}for(0..33){p($_,0,1)}

[AdamSpeight2008]

I think this one is 82c (First one under 100 )

Spoiler

for$n(0..34){for$r(0..$n){print$r>0?" ":"",$a[$r][$n]=($r*$n<1)?1:($a[$r][$n-1]+$a[$r-1][$n-1])}print"\n"}for$n(0..34){for$r(0..$n){print$r>0?" ":"",$a[$r][$n]=($r<1|$n<1)?1:($a[$r][$n-1]+$a[$r-1][$n-1])}print"\n"}

Update: 78c

Spoiler

for$n(0..34){for$r(0..$n){print$a[$r][$n]=($r*$n<1)?1:($a[$r][$n-1]+$a[$r-1][$n-1]),$r<$n?" ":"\n"}}

This post has been edited by AdamSpeight2008: 16 February 2011 - 04:26 PM

[jumptrooper]

AdamSpeight2008, on 16 February 2011 - 03:08 PM, said:

I think this one is 82c (First one under 100 )

Spoiler

for$n(0..34){for$r(0..$n){print$r>0?" ":"",$a[$r][$n]=($r*$n<1)?1:($a[$r][$n-1]+$a[$r-1][$n-1])}print"\n"}for$n(0..34){for$r(0..$n){print$r>0?" ":"",$a[$r][$n]=($r<1|$n<1)?1:($a[$r][$n-1]+$a[$r-1][$n-1])}print"\n"}

Update: 78c

Spoiler

for$n(0..34){for$r(0..$n){print$a[$r][$n]=($r*$n<1)?1:($a[$r][$n-1]+$a[$r-1][$n-1]),$r<$n?" ":"\n"}}

I think that one is 212c, but nice job on the 78c one ... except that it prints an extra line, but that's not a big deal.

This post has been edited by jumptrooper: 16 February 2011 - 05:49 PM

[AdamSpeight2008]

First one (82c) was a bad copy n paste job, as it copied twice.

Spoiler

for$n(0..34){for$r(0..$n){print$r>0?" ":"",$a[$r][$n]=($r*$n<1)?1:($a[$r][$n-1]+$a[$r-1][$n-1])}print"\n"}