Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: (Efficiency Golf) Triangular numbers

by tachyon (Chancellor)
on May 30, 2001 at 14:03 UTC ( #84202=note: print w/replies, xml ) Need Help??

in reply to (Efficiency Golf) Triangular numbers

Looks like we may need benchmark for this game. Here is the answer, I'll post the complete code in 24 hours so as not to spoil all the fun. It's ~ 30 average lines long and runs under strict. I have included the begining and end. My woodwork teacher used to say look after the edges and the middle will look after itself..... BTW Please enter perlmonks for the prize and donate it to the offering plate when we win!


There is only one solution,

brute force is not the key

With code in evolution,

consider the holy three



one 435 three 17955 six 820 ten 153 Elapsed 0 seconds #!/usr/bin/perl -w use strict; my $time = time(); my %tri; # make hash of tiangular numbers 5 digits or less map{$tri{.5*$_*($_+1)}=1}1..446; ... ... # prove we are right! print "one $o$n$e " if defined $tri{"$o$n$e"}; print "three $t$h$r$e$e " if defined $tri{"$t$h$r$e$e"}; print "six $s$i$x " if defined $tri{"$s$i$x"}; print "ten $t$e$n\n" if defined $tri{"$t$e$n"}; $time = time()-$time; print "Elapsed $time seconds\n";

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://84202]
[karlgoethebier]: Listen and compare
[shmem]: karlgoethebier: es ist theologisch umstritten, ob jesus an christi himmelfahrt tatsächlich besoffen und mit bollerwagen zu seinem vater aufgebrochen ist
[karlgoethebier]: shmem: Ja ischweis
[karlgoethebier]: shmem: Vielleicht hat er in den Bollerwagen gebrochen?
[karlgoethebier]: shmem:Ach so. Bollerwagen ist eigentlich was für Kinder. Bei uns fahren sie mit Traktoren und Feuerwehrwagen rum...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (10)
As of 2017-05-25 12:35 GMT
Find Nodes?
    Voting Booth?