Heronian triangles: Difference between revisions

→‎{{header|Ruby}}: corrects the definition of the Triangle ( Struct-> class ) and output.
m (→‎{{header|REXX}}: localized a subroutine variable, changed whitespace in the program and output.)
(→‎{{header|Ruby}}: corrects the definition of the Triangle ( Struct-> class ) and output.)
Line 767:
 
=={{header|Ruby}}==
<lang ruby>class Triangle = Struct.new(:a, :b, :c) do
include Comparable
 
def self.valid?(a,b,c) # class method
short, middle, long = [a, b, c].sort
short + middle > long
end
 
defattr_reader :sides, :perimeter, :area
@sides ||= [a, b, c].sort
def initialize(a,b,c)
@sides ||= [a, b, c].sort
@perimeter ||= a + b + c
@semiperimeters ||= @perimeter / 2.0
@area ||= Math.sqrt(s * (s - a) * (s - b) * (s - c))
end
 
def perimeter
@perimeter ||= a + b + c
end
 
def semiperimeter
@semiperimeter ||= perimeter/2.0
end
 
def area
s = semiperimeter
@area ||= Math.sqrt(s*(s - a)*(s - b)*(s - c))
end
 
def heronian?
area == area.to_i
end
 
def <=>(other)
[area, perimeter, sides] <=> [other.area, other.perimeter, other.sides]
end
 
def to_s
"#{%-11s%6d%8.1f" % [sides.join("'x"').ljust(10)}\t#{, perimeter}\t#{, area}"]
end
end
Line 819 ⟶ 809:
 
puts "Primitive heronian triangles with sides upto #{max}: #{sorted.size}"
puts "\nsides \tperim perim.\tarea area"
puts sorted.first(10).each{|tr| puts tr }map(&:to_s)
puts "\nTriangles with an area of: #{area}"
sorted.selecteach{|tr| puts tr if tr.area == area}.each{|tr| puts tr }</lang>
</lang>
{{out}}
<pre>
Primitive heronian triangles with sides upto 200: 517
 
sides perim. area
3x4x5 12 6.0
5x5x6 16 12.0
5x5x8 18 12.0
4x13x15 32 24.0
5x12x13 30 30.0
9x10x17 36 36.0
3x25x26 54 36.0
7x15x20 42 42.0
10x13x13 36 60.0
8x15x17 40 60.0
 
Triangles with an area of: 210
17x25x28 70 210.0
20x21x29 70 210.0
12x35x37 84 210.0
17x28x39 84 210.0
7x65x68 140 210.0
3x148x149 300 210.0
</pre>
 
Anonymous user