- Flo -

Very interesting. Your clip is much faster than mine even when I turned ScreenUpdate off. Mine took 41 seconds and yours took 15 for 17550 lines (aaa to zzz with 26 .rr lines removed). Why? I'm not sure. Perhaps working with an array even though the lines on a screen are probably just another type of array.

This has been fun, interesting, and I've learned several new things.

Oh, yes. You don't have to, but as I posted previously, you can modify the value of %AZ% to "bcdefghijklmnopqrstuvwxyz" (remove the 'a') for correctness.

Thanks,

Joy

P.S. On the off chance anyone else (still) wants to play with this for learning purposes, I wrote a quick clip to generate the lines aaa to zzz. Let me know if anyone wants me to post the code.

--- In ntb-clips@yahoogroups.com, "flo.gehrke" <flo.gehrke@...> wrote:

>

> Joy,

>

> I also went through your clip again (messages #22230, #22245). I like that formula '^$Calc(^%V1%*676 + ^%V2%*26 + ^%V3%)$' which, actually, seems to be the heart of your solution.

>

> So I combined it with some ideas of my first concept and managed to speed up your clip significantly. Originally, your clip needed 78 seconds (on my notebook) to check a list of 10,000 codes. The following version is doing it in 9 seconds:

>

>

> ^!SetHintInfo Working...

> ; Assign code list to array %List%

> ^!SetListDelimiter ^%NL%

> ^!SetArray %List%=^$GetText$

> ^!Set %AZ%="abcdefghijklmnopqrstuvwxyz"

> ^!Set %i%=1

>

> :CodeToInt

> ; Save current code to variable for later output in case of gap

> ^!Set %CurrCode%=^%List^%i%%

> ; Convert code to number(with Joy's formula)

> ^!Set %First%=^$Convert(^%List^%i%%)$

> ^!Inc %First%

> ^!Inc %i%

> ^!If ^%i% > ^%List0% Out

> ^!Set %Second%=^$Convert(^%List^%i%%)$

> ^!IfSame ^%First% ^%Second% CodeToInt Else False

>

> :False

> ^!Append %Gaps%=^%CurrCode%^P

> ^!Goto CodeToInt

>

> :Out

> ^!IfEmpty ^%Gaps% Next Else Skip_2

> ^!Info No gaps!

> ^!Goto Skip_3

> ^!Toolbar New Document

> ^!InsertText Gap found after...^P^%Gaps%

> ^!Toolbar Second Window

> ^!ClearVariables

>

>

> The sublip with custom function ^$Convert$ and your formula is...

>

> ^!Set %C1%=^$StrIndex(^&;1)$

> ^!Set %C2%=^$StrIndex(^&;2)$

> ^!Set %C3%=^$StrIndex(^&;3)$

> ^!Set %V1%=^$StrPos(^%C1%;^%AZ%;0)$

> ^!Set %V2%=^$StrPos(^%C2%;^%AZ%;0)$

> ^!Set %V3%=^$StrPos(^%C3%;^%AZ%;0)$

> ^!Result ^$Calc(^%V1%*676 + ^%V2%*26 + ^%V3%)$

>

>

> Thanks again for your proposal! Maybe you'll have a look at this revised version...

>

> Regards,

> Flo - --- In ntb-clips@yahoogroups.com, "joy8388608" <mycroftj@...> wrote:
>

Joy,

> Flo -

>

> Very interesting. Your clip is much faster than mine even

> when I turned ScreenUpdate off. Mine took 41 seconds and

> yours took 15 for 17550 lines (aaa to zzz with 26 .rr lines

> removed). Why? I'm not sure...

> Flo -

>

> Very interesting. Your clip is much faster than mine even when

> I turned ScreenUpdate off. Mine took 41 seconds and yours took

> 15 for 17550 lines (aaa to zzz with 26 .rr lines removed). Why?

> I'm not sure...

I think there are three main reasons for that:

1. Assigning the whole list to an array

2. Calculating ^$ConvertTo26$ only twice -- it's done three times in your clip

3. Gathering up the gaps with ^!Append and outputting them all at once -- no ^!InsertText

> I wrote a quick clip to generate the lines aaa to zzz. Let

I put my hand up and would enjoy seeing that clip!

> me know if anyone wants me to post the code.

Flo - --- In ntb-clips@yahoogroups.com, "flo.gehrke" <flo.gehrke@...> wrote:
>

My pleasure. Joy

> --- In ntb-clips@yahoogroups.com, "joy8388608" <mycroftj@> wrote:

> >

> > Flo -

> >

> > Very interesting. Your clip is much faster than mine even

> > when I turned ScreenUpdate off. Mine took 41 seconds and

> > yours took 15 for 17550 lines (aaa to zzz with 26 .rr lines

> > removed). Why? I'm not sure...

>

> > Flo -

> >

> > Very interesting. Your clip is much faster than mine even when

> > I turned ScreenUpdate off. Mine took 41 seconds and yours took

> > 15 for 17550 lines (aaa to zzz with 26 .rr lines removed). Why?

> > I'm not sure...

>

> Joy,

>

> I think there are three main reasons for that:

>

> 1. Assigning the whole list to an array

>

> 2. Calculating ^$ConvertTo26$ only twice -- it's done three times in your clip

>

> 3. Gathering up the gaps with ^!Append and outputting them all at once -- no ^!InsertText

>

> > I wrote a quick clip to generate the lines aaa to zzz. Let

> > me know if anyone wants me to post the code.

>

> I put my hand up and would enjoy seeing that clip!

>

> Flo

>

Generate Base 26 numbers

; by Joy

^!Continue This will generate 17576 lines from aaa to zzz.

^!SKIP Leave Screen update on? (Slower...)

^!Setscreenupdate OFF

^!StatusShow Generating sequences aaa to zzz...

; Start with aaa

^!Set %I%=-1

:LoopStart

^!Inc %I%

^!Set %Num%=^%I%

; Find value of first digit (of 3) (will be 0 to 25)

^!Set %x%=^$Calc(INT(^%Num%/676))$

; Convert first digit to letter (will be a to z)

^!Set %B26%=^$DecToChar(^$Calc(^%x%+97)$)$

; adjust value of current number

^!Set %Num%=^$Calc(^%Num% - (^%x%*676))$

; Find value of second digit (of 3) (will be 0 to 25)

^!Set %x%=^$Calc(INT(^%Num%/26))$

; Convert second digit to letter (will be a to z) and append

^!Set %B26%=^%B26%^$DecToChar(^$Calc(^%x%+97)$)$

; adjust value of current number

^!Set %Num%=^$Calc(^%Num% - (^%x%*26))$

; Convert remaining value (0 to 25) to letter (will be a to z) and append

^!Set %B26%=^%B26%^$DecToChar(^$Calc(^%Num%+97)$)$

; Output value

^!InsertText ^%B26%^%NL%

^!If "^%B26%" <> "zzz" LoopStart

^!Sound SystemExclamation