challenge

[Hlib]

Completing this old challenge

Code:


<<
[[ 0. 3. 3. 5. 4. 4. 3. 5. 5. 4. ]
[ 3. 6. 6. 8. 8. 7. 7. 9. 8. 8. ]
[ 0. 0. 6. 6. 5. 5. 5. 7. 6. 6. ]]
-1. 0. 0. 0. 0. 0. 0. RCLF ->
m1 n k s t u v b fl
<< 2. SF 3. SF 55. CF 105. SF
1. 10. FOR E 'm1' { 1. E } GET
1. E <> 8. * + 's' STO
1. 10. FOR D 'm1' { 1. D } GET
1. D <> 7. * + s + 't' STO
1. 10. FOR C 'm1' { 3. C } GET
t + 'u' STO C 2. == 1. + 'b' STO
1. 10. FOR A 'm1' { b A } GET
u + 'v' STO 1. 'n' STO+
n 0 <>
<< n v / FP 0. == DUP 'k' STO+
IF 0. <> THEN k n 2. ->LIST END
>> IFT NEXT NEXT NEXT NEXT
k fl STOF
{ 880. 440. 880. 440. 880. 440. }
{ .2 .4 .2 .4 .2 .4 } BEEP
>>
>>
time = 11 min 20 sec

The list of all (359) true elements will be put on stack. You can perform ->LIST to store it in a variable brining stack back into former state.

Link for downloading file in hp-50g or go49g+ .apk emulator:

even_1..9999.hp49 ( 0.93 KB )