go ahead... be a heretic 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.
• 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
• 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?
• See Writeup Formatting Tips and other pages linked from there for more info.

Create A New User
Chatterbox?
and dust plays in a shaft of sunlight...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2017-12-12 07:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
What programming language do you hate the most?

Results (327 votes). Check out past polls.

Notices?