University of Houston math contests

[John Keith]

(07-12-2019 04:41 PM)telemachos Wrote:  I think this makes the best use of the HP-50g's capabilities:

Input:

{ [–6.94 –1.2] [–5.16 3.84] [3.4 2.18] [2.46 –6.72] }

Program (56.5 bytes):

<< DUP HEAD + << CROSS >> DOSUBS ΣLIST ABS 2 / >>

Output: 67.473

Very nice program! I think it is the smallest HP-48 compatible shoelace program yet. It can be made even shorter using the null-tag method from this thread, which shaves 9 bytes off the size, like so:

Code:


\<< DUP HEAD + :: CROSS DOSUBS \GSLIST ABS 2 /
\>>

I will also link my shoelace thread to this one.