Post Reply 
[Free42] Minichallenge: ->DATE
08-17-2020, 06:27 AM
Post: #5
RE: [Free42] Minichallenge: ->DATE
here's my entry for DATE→ :

Code:
00 { 35-Byte Prgm }
01 LBL "DATE→"
02 IP
03 LASTX
04 FP
05 100
06 x
07 IP
08 LASTX
09 FP
10 100
11 x
12 FS? 67
13 RTN
14 LASTX
15 x
16 X<> ST Z
17 FC? 31
18 X<>Y
19 END

Thanks for your participation, Didier! Your routine could again be made 1 byte shorter (X^2 io STOx ST Y), which would make it just 1 byte more than mine, with the same line count.
Werner

41CV†,42S,48GX,49G,DM42,DM41X,17BII,15CE,DM15L,12C,16CE
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
[Free42] Minichallenge: ->DATE - Werner - 08-13-2020, 08:23 AM
RE: [Free42] Minichallenge: ->DATE - Werner - 08-17-2020 06:27 AM



User(s) browsing this thread: 1 Guest(s)