5 lines
175 B
Text
5 lines
175 B
Text
perim=: +/"1
|
|
s=: -:@:perim
|
|
area=: [: %: s * [: */"1 s - ] NB. Hero's formula
|
|
isNonZeroInt=: 0&~: *. (= <.@:+)
|
|
isPrimHero=: isNonZeroInt@area *. 1 = +./&.|:
|