Problem 2:
G:
Segment AB congruent Segment BC
P:
triangle ABC isosceles
PR:
Segment AB congruent Segment BC => G
triangle ABC isosceles => def isosceles

##</code><code>##

$len = length( @{ sort ($a <=> $b) @s }[0]);