Yep,
Pretty much the same with the one liner I made from John's character
rasterization program ... just remove the line number "1" in front and
it will still run from interactive mode. But I think your infinite loop
is 2 characters shorter than mine! I used STEP0 which take 5 bytes
where you used Z=0 which only takes three! I'll have to remember that one.
I need to get a quantum computer next ... I hear they can execute an
infinite loop in three seconds flat. ;-)
Ken
On 1/7/23 11:46 AM, Stephen Adolph wrote:
thanks Ken,
Not exactly new work, but it always bothered me that I had to use a
line number before. so not really a "one liner". The use of a never
ending for loop solved that!
On Sat, Jan 7, 2023 at 2:19 PM Ken Pettit <petti...@gmail.com
<mailto:petti...@gmail.com>> wrote:
On 1/7/23 8:30 AM, Stephen Adolph wrote:
Here is my one-liner.
FORZ=0TO1:Z=0:V$="
"+CHR$(13)+CHR$(8)+"0123456789ABCDEF":E=INSTR(V$,INKEY$):IFE=1THENNEXTELSEF=(F-(E=2))MOD3:G=9*F+2-F^2:C=-C*(E=2)-(C*G+E-4)*(E>3ANDE<G+4):?:?MID$("BDH",F+1,1)":";:D=C:FORI=11*(F=0)-4TO0:J=G^I:X=INT(D*J):?MID$(V$,X+4,1);:D=D-X/J:NEXTI,Z
Hey Steve,
I had seen this submission before but never really tried to run it
or evaluate how it is working until now. This is an awesome piece
of algorithmic work for switching between and calculating /
formatting output for three different bases in only 254 characters!!
Pretty sweet.
Ken
