EDIT: For some reason, a few numbers such as 1035 are causing errors (Can't take sqrt of 1, <STDIN> line 1.) Going to have to hunt down the bug and fix it...
EDIT: Just needed a slight change to the first line after BING to prevent tget calls for 0:
use strict;
use warnings;
my ($i, $j, $inum, $jnum, $left);
$ = 1; print "Enter the number to check : ";
my $inp = <STDIN>;
BING:
for ($i = tget($inp2); $i; $i) {
$inum = tmake($i);
$left = tget($inp  $inum  1) + 1;
for ($j = 1; $j < $left; $j++) {
$jnum = tmake($j);
last BING if (tis($inp  $inum  $jnum));
}
}
print " Your triangles are : $inum $jnum "
. ($inp  $inum  $jnum) . "\n";
sub tget { return int(sqrt(1 + $_[0] * 2)  .5); }
sub tmake { return (.5 * $_[0] * ($_[0] + 1)); }
sub tis { my $n = shift; return ($n == tmake(tget($n))); }
Incidently, I ran a looped version of this for all numbers 3100000, and only the following could not be made with sums of three triangles:
4, 6, 11, 20, 29
As far as I can tell, all integers after 29 can be made with at least one sum of three triangles. The number of sums increases as you go along.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
 a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Outside of code tags, you may need to use entities for some characters:

For: 

Use: 
 &   & 
 <   < 
 >   > 
 [   [ 
 ]   ] 
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.

