The Weird and The Wonderful

StevenWalsh wrote:

I wonder how it compares to say sqlite

Andy Brummer wrote:

VB6

For x = 1 to 13
  Dim line As String
  line = GetLine(x, username, code, thing, item, anotherstring, andanother, blah, blah, blah, blah, blah)

  (Do something with line...)

Next x

...

Public Function GetLine(x As Long, username As String, etc etc etc etc etc)
  Select Case x
    Case 0
      GetLine = "SomeString="&username
    Case 1
      GetLine = "Something Else=" & code
    Case 2
      GetLine = "Another Thing=" & thing
    ...
    Case 13
      GetLine = "Some literal string"
  End Select
End Function

<br />
<br />
bool IsNumberEven(int number)<br />
{<br />
 return ((number % 2 == 0) ? true : false);<br />
}<br />
<br />
int Main()<br />
{<br />
int someNumber = 2^100;<br />
<br />
for (int i = 0; i < 100; i++)<br />
{<br />
 while (IsNumberEven(someNumber) == true)<br />
 {<br />
  someNumber /= 2;<br />
 }<br />
}<br />
}<br />