Math::TriangularNumbers

Math::TriangularNumbers is a Perl extension for Triangular numbers.
Download

Math::TriangularNumbers Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • David Christensen
  • Publisher web site:
  • http://search.cpan.org/~dpchrist/Math-TriangularNumbers-r0_03/lib/Math/TriangularNumbers.pm

Math::TriangularNumbers Tags


Math::TriangularNumbers Description

Math::TriangularNumbers is a Perl extension for Triangular numbers. Math::TriangularNumbers is a Perl extension for Triangular numbers.SYNOPSIS use Math::TriangularNumbers qw(T Ti is_T); ##### prints Triangular numbers "1, 3, 6, 10, 15, 21" print STDERR join(", ",T(1),T(2),T(3),T(4),T(5),T(6)), "n"; ##### prints right Triangular indices "1, 2, 2, 3, 3, 3": print STDERR join(", ",Ti(1),Ti(2),Ti(3),Ti(4),Ti(5),Ti(6)), "n"; ##### determines if the number 666 is triangular (it is): print STDERR is_T(666) ? "yesn" : "non";I was using the following function for games: T(n) = 1 + 2 + ... + (n-1) + n = n * (n+1) / 2For example: T(1) = 1 T(2) = 3 T(3) = 6 T(4) = 10 T(5) = 15 T(6) = 21 etc.These are called Triangular numbers, after Pascal's Triangle: 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 1 6 15 20 15 6 1 1 7 21 35 35 21 7 1Observe the diagonal numbers starting at the third row: 1, 3, 6, 10, 15, 21.This module implements the function T(n), given by the above equation, and it's "right inverse", T'(N), given by: T'(N) = int( (1 + sqrt(1 + 8*(N-1))) / 2 )E.g. Given an integer N which is not necessarily a Triangular Number, find n such that T(n-1) < N Requirements: · Perl


Math::TriangularNumbers Related Software