use Perl

• Done!! :-) (Score:1)

  by cog (4665)

  30 minutes, 37 lines :-)
  
  Unfortunately, I now realized the contest is over, so I don't think I can submit my Perl solution... :-\
  • Re:Done!! :-) (Score:1)

    by cog (4665)

    #!/usr/bin/perl
    use warnings;
    use strict;
    use Math::Combinatorics;
    
    my %points = (
            0 => [ 0 .. 10 ],
            1 => [ 0 .. 10 ],
            2 => [ 4, 6, 1, 3, 5, 0 ],
            3 => [ 5, 2, 1, 7, 9, 0 ],
            4 => [ 6, 2, 0, 7, 8, 1 ],
            5 => [ 0, 8, 10, 2, 1 ],
            6 => [ 10, 9, 1, 4, 2, 0 ],
            7 => [ 8,
    • Re:Done!! :-) (Score:1)

      by Mr. Muskrat (4572)

      Good job. It passes the second test shown on the page too.

      #!/usr/bin/perl
      use warnings;
      use strict;
      use Math::Combinatorics;
      
      # I removed the points 0, 2, 4, 6 and the line from 0 6
      # Resulting in the second example which has 15 triangles
      
      my %points = (
              0 => [ 0, 1, 3, 5, 7 .. 10 ],
              1 => [ 0, 1, 3, 5, 7 .. 10 ],
              3 => [ 5, 1, 7, 9, 0 ],
              5 => [ 0, 8, 10, 1 ],
              7 =>
      • Re:Done!! :-) (Score:1)

        by cog (4665)

        There was a second test? :-|