[VA] SRC #008 - 2021 is here !
|
01-05-2021, 03:39 AM
(This post was last modified: 02-16-2021 01:41 AM by robve.)
Post: #19
|
|||
|
|||
RE: [VA] SRC #008 - 2021 is here !
My solution for #1 is in my earlier post with the non-CAS program listing, followed by the full number printed with HP Prime CAS. But if you really can't accept the number printed with HP Prime CAS, then below is a simple non-CAS program to produce the full decimal result as a list of digits:
EXPORT POWER3() BEGIN L0:=MAKELIST(0,I,1,322); L0(SIZE(L0)):=2; FOR N FROM 1 TO 673 DO L1:=L0; FOR T FROM 1 TO 2 DO C:=0; FOR I FROM SIZE(L0) DOWNTO 1 DO D:=L0[I]+L1[I]+C; IF D>9 THEN D:=D-10; C:=1; ELSE C:=0; END; L0[I]:=D; END; END; END; PRINT(L0); END; "I count on old friends" -- HP 71B,Prime|Ti VOY200,Nspire CXII CAS|Casio fx-CG50...|Sharp PC-G850,E500,2500,1500,14xx,13xx,12xx... |
|||
« Next Oldest | Next Newest »
|
User(s) browsing this thread: 1 Guest(s)