Syntactic Confectionery Delight PerlMonks

### Comment on

 Need Help??
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(\$inp-2); \$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 3-100000, 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.

In reply to Re: Triangle Numbers Revisited by TedPride
in thread Triangle Numbers Revisited by Limbic~Region

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

• Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
• Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
• Read Where should I post X? if you're not absolutely sure you're posting in the right place.
• 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
• You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
 For: Use: & & < < > > [ [ ] ]
• Link using PerlMonks shortcuts! What shortcuts can I use for linking?

Create A New User
Chatterbox?
 [Lady_Aleena]: marioroy, welcome to my insanity. 8) marioroy likes Dragod, an unbelievably huge dragon. It is bigger than any planet. Wow. [Lady_Aleena]: marioroy, not my creation, it was submitted a long long time ago when I had submission forms with a form script I can't remember the name of off the top of my head.

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (11)
As of 2017-05-29 09:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My favorite model of computation is ...

Results (192 votes). Check out past polls.