Most impressive/complex/amazing C-series program?

[Gerson W. Barbosa]

(04-21-2018 03:51 PM)Mike (Stgt) Wrote:  

(04-20-2018 10:02 PM)Csaba Tizedes Wrote:  01: 0
02: g y,r
03: x<>y
04: g s
05: ÷
06: ×
07: R/S

This is (for me and up to now) the winner within this survey. Three reasons:

1. in contrast to compute \(\pi\) by Vieta this routine has probably more purpose in day-to-day life,
2. it is unbeatable short, and
3. (less important) it is just the inverse how I get r on the HP41 (lines 23..27).
   

Just for the record, here is the impressive 12-step 12C program by Katie Wasserman:

[f][P/R]        |              | 
[f]CLEAR[PRGM]  |00-           | 
2               |01-         2 | 
[STO]0          |02-    44   0 | 
[g][SQRT]       |03-    43  21 | 
[STO][/]0       |04- 44 10   0 | 
2               |05-         2 | 
[STO][x]0       |06- 44 20   0 | 
[g][x<=y]       |07-    43  34 | 
[g][GTO]11      |08- 43,33  11 | 
[+]             |09-        40 | 
[g][GTO]03      |10- 43,33  03 | 
[RCL]0          |11-    45   0 | 
[g][GTO]00      |12- 43,33  00 | 
[f][P/R]        |              | 

Sure not of practical utility as your choice, but as beautiful as it can be!

Gerson.