The Unofficial Macro Scheduler Puzzler #9

[Djek]

my last shot ;

don't know what contest regulations say about this

Code: Select all

Let>BinVal=10111010001000010
ExportData>5-LINES.SCP_DATA,%SCRIPT_DIR%\5-lines.scp
Include>%SCRIPT_DIR%\5-lines.scp
MessageModal>Binary = %BinVal%%CRLF%Decimal = %DecVal%

/*5-LINES.SCP_DATA:52656745783E5C642C42696E56616C2C302C4D6174636865732C4E756D4D6174636865732C312C302C44656356616C0D0A5768696C653E4C4F43414C564152533C4E756D4D6174636865730D0A202020204C65743E4C4F43414C564152533D254C4F43414C56415253252B310D0A202020206C65743E44656356616C3D7B2544656356616C252A327D2B4D6174636865735F254C4F43414C56415253250D0A456E645768696C650D0A*/

[Djek]

.

[Marcus Tettmar]

I thought of that, but don't you need another line to delete the temp file so it's not left lying around

[JRL]

I've been involved in disaster recovery all morning. Have only now had a chance to view the last few hours of entries. Very creative.

[cheat-mode ON]

I've been looking for a web site that would pass the answer back. Didn't consider making my own. Of course now we need to know how many lines you're using on the web site. Assuming the best available at this moment you have 5 lines on the web. Plus 1 in the visible script makes 6.

don't know what contest regulations say about this

Regulations? We simply have a panel of judge whose decision is final. We don't need "regulations".

The method you've used has been discussed by the panel and the panel has decided that those Include> lines of code are indeed included in the total line count. Also, unfortunately, the ExportData> function won't export the data when the remarked data block has been shortened to one line. For 5-lines.scp to be exported the export data block will have to be 4 lines.

• /*
  5-LINES.SCP_DATA:
  526567457...
  */

Kicks the working lines total up to 11

I highjacked the LOCALVARS in order to get it down to 5 rows

Out panel of judge finds that creative and honorable. Good job! you're in the lead... for the moment.

[Grovkillen]

Marcus, you shouldn't have dared me! Now all I'm thinking of is how you did it in 3 lines!

[hagchr]

Ok, two more alternatives for the esteemed jury.

(Binary string needs quotation marks)
Let>BinVal="10111010001000010"
WriteLn>%DESKTOP_DIR%\chtestvbxx.vbs,nWLNRes,Set obj=CreateObject("Scripting.FileSystemObject")%CRLF%obj.DeleteFile("%DESKTOP_DIR%\chtestvbxx.vbs")%CRLF%dim Res,I%CRLF%Bin=%BinVal%%CRLF%Bin=Bin%CRLF%Res=0%CRLF%For I = len(Bin) to 1 step -1%CRLF%Dig=mid(Bin,I,1)%CRLF%select case Dig%CRLF%case "0"%CRLF%case "1"%CRLF%Res=Res+(2^(len(Bin)-I))%CRLF%end select%CRLF%Next%CRLF%MsgBox("Binary="&Bin&vbNewLine&"Decimal=" & Res)
ExecuteFile>%DESKTOP_DIR%\chtestvbxx.vbs
  View Snippet Page

(3rd line is somehow added by "the snipper" when inserting the snippet, cannot get rid of it. should be deleted)
Let>BinVal=10111010001000010
IncludeFromVar>RegEx>\d,BinVal,0,Matches,NumMatches,1,0,DecVal%CRLF%Let>ctr=0%CRLF%While>ctr<NumMatches%CRLF%Let>ctr=%ctr%+1%CRLF%Let>DecVal={%DecVal%*2}+Matches_%ctr%%CRLF%EndWhile%CRLF%MessageModal>Binary = %BinVal% / Decimal = %DecVal%
  View Snippet Page

[Grovkillen]

Jäklar!

[Marcus Tettmar]

Ok, two more alternatives for the esteemed jury.

(Binary string needs quotation marks)
Let>BinVal="10111010001000010"
WriteLn>%DESKTOP_DIR%\chtestvbxx.vbs,nWLNRes,Set obj=CreateObject("Scripting.FileSystemObject")%CRLF%obj.DeleteFile("%DESKTOP_DIR%\chtestvbxx.vbs")%CRLF%dim Res,I%CRLF%Bin=%BinVal%%CRLF%Bin=Bin%CRLF%Res=0%CRLF%For I = len(Bin) to 1 step -1%CRLF%Dig=mid(Bin,I,1)%CRLF%select case Dig%CRLF%case "0"%CRLF%case "1"%CRLF%Res=Res+(2^(len(Bin)-I))%CRLF%end select%CRLF%Next%CRLF%MsgBox("Binary="&Bin&vbNewLine&"Decimal=" & Res)
ExecuteFile>%DESKTOP_DIR%\chtestvbxx.vbs
  View Snippet Page

Neat. But can you do it without the overhead of creating a file?

(3rd line is somehow added by "the snipper" when inserting the snippet, cannot get rid of it. should be deleted)
Let>BinVal=10111010001000010
IncludeFromVar>RegEx>\d,BinVal,0,Matches,NumMatches,1,0,DecVal%CRLF%Let>ctr=0%CRLF%While>ctr<NumMatches%CRLF%Let>ctr=%ctr%+1%CRLF%Let>DecVal={%DecVal%*2}+Matches_%ctr%%CRLF%EndWhile%CRLF%MessageModal>Binary = %BinVal% / Decimal = %DecVal%
  View Snippet Page

Cunning. But it's 5 lines when you step through. The CRLFs mean the extra lines are still there.

Cunning though.

Shall I post my 3 line solution yet?

[JRL]

Jäklar!

Had to Google a translation. English is "damn!". Can we say that on this forum?

Binary string needs quotation marks

Not if you rewrite them into your vbs code.
"Esteemed jury"? Yes flattery helps. Win, lose or draw, I'm going to have to give you points for tenacity.

Neat. But can you do it without the overhead of creating a file?

I second the question.

[Grovkillen]

Had to Google a translation. English is "damn!". Can we say that on this forum?

Google Translate isn't always right. It's more like "darn!"

[hagchr]

No need for external files, no need for quotation marks...

Let>BinVal=10111010001000010
Let>Calc="Bin=""%BinVal%"":Res=0:For I = len(Bin) to 1 step -1:Dig=mid(Bin,I,1):select case Dig:case ""0"":case ""1"":Res=Res+(2^(len(Bin)-I)):end select:Next:MsgBox(""Binary=""&Bin & vbCrLf & ""Decimal="" & Res)"
VBEval>Execute(%Calc%),
  View Snippet Page


With MS the only limit is your imagination...

[Marcus Tettmar]

You got it! That was my shortest method too. Well done. Only I'd make the vbscript return the result rather than display it so that it can be used later.

Sent from my GT-I9100 using Tapatalk

[JRL]

Simply amazing! Marcus has been speaking of his "3 line solution". If this is the same, I'm calling it a two working lines solution. Anyone with a one liner? Perhaps there's an undocumented BinToDec> function already built into MS?

[hoangvo81]

Isn't hagchr solution really a one liner if you combine the all the variables into the execute?

Code: Select all

Let>BinVal=10111010001000010
Let>Calc="Bin=""%BinVal%"":Res=0:For I = len(Bin) to 1 step -1:Dig=mid(Bin,I,1):select case Dig:case ""0"":case ""1"":Res=Res+(2^(len(Bin)-I)):end select:Next:MsgBox(""Binary=""&Bin & vbCrLf & ""Decimal="" & Res)"
VBEval>Execute(%Calc%),

to

Code: Select all

VBEval>Execute("Bin=""10111010001000010"":Res=0:For I = len(Bin) to 1 step -1:Dig=mid(Bin,I,1):select case Dig:case ""0"":case ""1"":Res=Res+(2^(len(Bin)-I)):end select:Next:MsgBox(""Binary=""&Bin & vbCrLf & ""Decimal="" & Res)"),

if you don't count the let>bin

then just bounce the calc into the execute and it would still be 1 line.

Code: Select all

let>Binval=10111010001000010
VBEval>Execute("Bin=""%binVal%"":Res=0:For I = len(Bin) to 1 step -1:Dig=mid(Bin,I,1):select case Dig:case ""0"":case ""1"":Res=Res+(2^(len(Bin)-I)):end select:Next:MsgBox(""Binary=""&Bin & vbCrLf & ""Decimal="" & Res)"),

this is just stating the fact that its a one liner really.

[Grovkillen]

This is why I just love MS and the forum... things like this just evolve. It start out as a competition but in the end everyone has learned something.