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 <[email protected]> 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
>
>

Reply via email to