2024 HHC Programming Contest - RPN #1

[Harald]

I had:

1) LBLA 7 Enter 7 / 7 + Enter Enter + + END
2) LBLA Sigma+ Sigma+ Sigma+ Enter 7 + 7 + 7 + END

[ThomasF]

(09-23-2024 11:04 AM)Gene Wrote:  Here are the solutions from the conference:

12 bytes:
...
LBL A 7 Sigma+ 7 Sigma+ 7 Sigma+ RCL 11 END

How is this supposed to work?
Some instruction missed in the listing (but still 12 bytes listed)?
On a MC 41 I only get 21 (7*3) into X ...

Cheers,
Thomas

[ThomasF]

And BTW ...

(09-23-2024 11:04 AM)Gene Wrote:  Is there an 11 byte solution given the LBL A and END ?

Here is one I just found ...

Code:

LBL A   2
777     3
PI      1
%       1
INT     1
END     3
6 lines 11 bytes

Cheers,
Thomas

[Didier Lachieze]

(09-23-2024 11:04 AM)Gene Wrote:  What I love are the wide varieties of the solutions. P->R ? OCT ? :-)

We can’t do without PI ! Here’s my solution in 12 bytes :

Code:

001 LBL A
002 777
003 SQRT
004 PI
005 -
006 INT
007 END

[J-F Garnier]

(09-23-2024 12:02 PM)ThomasF Wrote:  

(09-23-2024 11:04 AM)Gene Wrote:  LBL A 7 Sigma+ 7 Sigma+ 7 Sigma+ RCL 11 END

How is this supposed to work?

Obviously a missing + at the end, making 13 bytes total.
Also " LBL A COS ATAN 7 - 7 - 7 - END " is 13 bytes long.

BTW, my solution was
LBL A 77.7 LN INT FACT END
close the last listed solution of the conference's results.

J-F

[Didier Lachieze]

(09-23-2024 12:29 PM)ThomasF Wrote:  Here is one I just found ...

Code:

LBL A   2
777     3
PI      1
%       1
INT     1
END     3
6 lines 11 bytes

Wonderful !

[ThomasF]

(09-23-2024 12:33 PM)J-F Garnier Wrote:  Obviously a missing + at the end, making 13 bytes total.

Hi J-F,

Yes, thought so too, but Sigma+ doesn't enable stacklift, so after RCL 11 Y is still 0.
So, there must be both a ENTER and a + missing to make it work ... i.e. 14 bytes in total.

Cheers,
Thomas

[J-F Garnier]

(09-23-2024 12:35 PM)Didier Lachieze Wrote:  

(09-23-2024 12:29 PM)ThomasF Wrote:  Here is one I just found ...

Code:

LBL A   2
777     3
PI      1
%       1
INT     1
END     3
6 lines 11 bytes

Wonderful !

Really amazing, congrats Thomas !

Now, what if using only integer arithmetic?
We already have this 13-byte solution:
LBL A 7 ENTER 7 + 7 ÷ x^2 FACT END

J-F

[ThomasF]

(09-23-2024 01:01 PM)J-F Garnier Wrote:  

(09-23-2024 12:35 PM)Didier Lachieze Wrote:  Wonderful !

Really amazing, congrats Thomas !

Now, what if using only integer arithmetic?
We already have this 13-byte solution:
LBL A 7 ENTER 7 + 7 ÷ x^2 FACT END

J-F

Thanks J-F

Challenge taken! My first attempt is:

LBL A 77 DEC LASTx + 7 / OCT END

But also counts down to 13 bytes, but there is probably more ways to do it ...

Cheers,
Thomas

[ThomasF]

(09-23-2024 01:01 PM)J-F Garnier Wrote:  We already have this 13-byte solution:
LBL A 7 ENTER 7 + 7 ÷ x^2 FACT END

J-F

And now ... a 12 byte version ...

LBL A 77 X² OCT 7 MOD FACT END

Cheers,
Thomas

[dejanr]

(09-23-2024 12:37 PM)ThomasF Wrote:  

(09-23-2024 12:33 PM)J-F Garnier Wrote:  Obviously a missing + at the end, making 13 bytes total.

Hi J-F,

Yes, thought so too, but Sigma+ doesn't enable stacklift, so after RCL 11 Y is still 0.
So, there must be both a ENTER and a + missing to make it work ... i.e. 14 bytes in total.

Cheers,
Thomas

Bravo ThomasF! PI percents of something... sounds crazy but it did the job.

[badaze]

(09-23-2024 11:04 AM)Gene Wrote:  Here are the solutions from the conference:

16 bytes:

LBL A CLΣ Σ+ Σ+ Σ+ ENTER 7 + 7 + 7 + END

I was about to post almost the same code…

[Pierre]

My two versions on PX-41CX

Code:

001    LBL A          CF 66
002    7              17 00
003    7              17 00
004    7              17 
005    +              40
006    +              40
007    PI             72
008    +              40
009    INT            68
010    STOP           84
011    END            C0 00 2F

Code:

001    LBL A          CF 66
002    7              17 00
003    77             17 17 
004    PI             72
005    /              43
006    INT            68
007    STOP           84
008    END            C0 00 2F

[Paul Dale]

My best entry is:

Code:


001 LBL A
002 7.77
003 PI
004 *
005 INT
006 END

[Paul Dale]

My other attempts being:

Code:


001 LBL A
002 7
003 x^2
004 7
005 ENTER
006 +
007 7
008 /
009 /
010 INT
011 END

Code:


001 LBL A
002 7
003 sigma+
004 7
005 sigma+
006 7
007 sigma+
008 RCL+11      not on a 41C though
009 END

This one edited to correct mistake:

Code:


001 LBL A
002 777
003 LN
004 INT
005 ENTER
006 +
007 ENTER
008 +
009 END

[RPNerd]

(09-24-2024 01:42 AM)Paul Dale Wrote:  

Code:


001 LBL A
002 777
003 LN
004 ENTER
005 +
006 ENTER
007 +
008 INT
009 END

Should the INT not be before the first ENTER, straight after LN?

ln(777) ≈ 6.655..... so your program gives 26 instead of 24.

int(ln(777)) = 6

[Paul Dale]

Yes, transcription error on my part.

Pauli

[AnnoyedOne]

(09-23-2024 11:06 PM)Paul Dale Wrote:  My best entry is:

Nice Paul! It even works in my HP 25 (PC) emulator. The 25 doesn't implement labels but the 29C does (0-9).

Code:


g LBL 0
7
.
7
7
g pi
*
f INT
g RTN

9 steps/bytes, I think, in my 29C emulator.

A1

[Guenter Schink]

(09-23-2024 12:02 PM)ThomasF Wrote:  

(09-23-2024 11:04 AM)Gene Wrote:  Here are the solutions from the conference:

12 bytes:
...
LBL A 7 Sigma+ 7 Sigma+ 7 Sigma+ RCL 11 END

How is this supposed to work?
Some instruction missed in the listing (but still 12 bytes listed)?
On a MC 41 I only get 21 (7*3) into X ...

Cheers,
Thomas

Indeed there was one additional instruction. Another Sigma+ before RCL11 that would give 24, but 13 bytes also of course.

Günter

[Guenter Schink]

(09-23-2024 09:03 PM)badaze Wrote:  

(09-23-2024 11:04 AM)Gene Wrote:  Here are the solutions from the conference:

16 bytes:

LBL A CLΣ Σ+ Σ+ Σ+ ENTER 7 + 7 + 7 + END

I was about to post almost the same code…

The CLΣ is superfluous as the condition was a clear state of the calculator.

Günter