Is Number Odd?

[skimask]

Ski, is this ridiculous enough? I can go deeper.

Keep going!!!

(What do they call those 'machines' that take the most indirect route to accomplish something? Remember that kids game 'Mousetrap'?)

My next submission:

testnumber var word
onescount var byte
onescount1 var byte
loopvar var byte

testnumber = 12345

main:
for loopvar = 0 to 15 'counts bits set in the testnumber
if testnumber.0[loopvar] = 1 then
onescount = onescount + 1
endif
next loopvar

testnumber = testnumber >> 1 'shifts the LSB out
testnumber = testnumber << 1 'shifts a zero bit back in

for loopvar = 0 to 15 'recounts bits set in the testnumber
if testnumber.0[loopvar] = 1 then
onescount1 = onescount1 + 1
endif
next loopvar

if onescount = onescount1 then lcdout "EVEN" 'if the number of set bits is the same, its even
if onescount <> onescount1 then lcdout "ODD"
STOP 'please stop!

[sayzer]

Keep going!!!

(What do they call those 'machines' that take the most indirect route to accomplish something? Remember that kids game 'Mousetrap'?)

Here they call it "Stupiditer II".

[skimask]

Here they call it "Stupiditer II".

Rube Goldberg machines...

http://en.wikipedia.org/wiki/Rube_Goldberg_machine

[SteveB]

Here's another approach:

TestNumber as word
TestVal as word

If TestNumber = 0 then Zero
TestVal = 2
Test:
	If TestNumber = TestVal Then
		LCDOUT "Even"
		EndProgram
	Else
		If TestNumber = TestVal - 1 then
			LCDOUT "Odd"
			EndProgram
		Else
			TestVal = TestVal + 2
			Test
		EndiF
	Endif

Zero:
	LCDOUT "Zero"
	EndProgram

EndProgram:
end

[T.Jackson]

Here's another approach:

TestNumber as word
TestVal as word

If TestNumber = 0 then Zero
TestVal = 2
Test:
	If TestNumber = TestVal Then
		LCDOUT "Even"
		EndProgram
	Else
		If TestNumber = TestVal - 1 then
			LCDOUT "Odd"
			EndProgram
		Else
			TestVal = TestVal + 2
			Test
		EndiF
	Endif

Zero:
	LCDOUT "Zero"
	EndProgram

EndProgram:
end

Excellent! That's called a recursive method.

Trent Jackson

[T.Jackson]

Keep going!!!

(What do they call those 'machines' that take the most indirect route to accomplish something? Remember that kids game 'Mousetrap'?)

My next submission:

testnumber var word
onescount var byte
onescount1 var byte
loopvar var byte

testnumber = 12345

main:
for loopvar = 0 to 15 'counts bits set in the testnumber
if testnumber.0[loopvar] = 1 then
onescount = onescount + 1
endif
next loopvar

testnumber = testnumber >> 1 'shifts the LSB out
testnumber = testnumber << 1 'shifts a zero bit back in

for loopvar = 0 to 15 'recounts bits set in the testnumber
if testnumber.0[loopvar] = 1 then
onescount1 = onescount1 + 1
endif
next loopvar

if onescount = onescount1 then lcdout "EVEN" 'if the number of set bits is the same, its even
if onescount <> onescount1 then lcdout "ODD"
STOP 'please stop!

That submission is void. The method for direct bit testing has already recognized. You were actually in the running for first prize of ($100,000) for your first submission. But unfortunately you have been suspended from the competition for acts plagiarism.

Naughty, naughty

Trent Jackson

[skimask]

The method for direct bit testing has already recognized.

Aye lad...but if you'll notice...the direct bit checking is not used to determine the final result! A bit like using a pencil to design a machine to manufacture more pencils.
This could get fun...

[SteveB]

Aye lad...but if you'll notice...the direct bit checking is not used to determine the final result! A bit like using a pencil to design a machine to manufacture more pencils.
This could get fun...

My approach is also somewhat indirect, in that it does not directly check if the number is odd. Rather, it sequentially checks to see if the test number matches a value which is known to be either even or odd.

[T.Jackson]

My approach is also somewhat indirect, in that it does not directly check if the number is odd. Rather, it sequentially checks to see if the test number matches a value which is known to be either even or odd.

You're pretty much doing the same as Sayzer (comparing with known to be odd / even numbers) -- but the way in which you have it configured to call itself repeatedly until the operation has completed is considered to be recursion. However, normally recursive methods perform the work on the subject and not references.

Trent Jackson

[SteveB]

Another recursive method. However this time it uses the unique feature of Variable Rollover. Also, if nothing is found at the end of checking all possible values for a WORD, the outcome must be Zero.

TestNumber as word
TestVal as word

For TestVal = 65534 to 2 step -2
	If (TestNumber + TestVal)= 0 Then
		LCDOUT "Even"
		EndProgram
	Else
		If (TestNumber + TestVal) + 1 = 0 then
			LCDOUT "Odd"
			EndProgram
		Else
	Endif
Next TestVal
	LCDOUT "Zero"
EndProgram:
end

EDIT: This may be premature, I think I left a hole at the value of "65535". Standby

[T.Jackson]

Another recursive method. However this time it uses the unique feature of Variable Rollover. Also, if nothing is found at the end of checking all possible values for a WORD, the outcome must be Zero.

TestNumber as word
TestVal as word

For TestVal = 65534 to 2 step -2
	If (TestNumber + TestVal)= 0 Then
		LCDOUT "Even"
		EndProgram
	Else
		If (TestNumber + TestVal) + 1 = 0 then
			LCDOUT "Odd"
			EndProgram
		Else
	Endif
Next TestVal
	LCDOUT "Zero"
EndProgram:
end

I don't consider that to be recursive. To be recursive means to have a procedure (method in Java's case) -- that repeatedly calls itself until the operation is complete.

Kinda like getting a pie that you need to cut up into (n) pieces. Instead of cutting out each piece you cut the whole thing repeadedly until you have (n) pieces.

Trent Jackson

[SteveB]

OK, This is better. It has to do one final check after the FOR..NEXT loop.

TestNumber as word
TestVal as word

For TestVal = 65534 to 2 step -2
	If (TestNumber + TestVal)= 0 Then
		LCDOUT "Even"
		EndProgram
	Else
		If (TestNumber + TestVal) + 1 = 0 then
			LCDOUT "Odd"
			EndProgram
		Else
	Endif
Next TestVal
If (TestNumber + TestVal) - 1 = 0 then
       LCDOUT "Odd"
       EndProgram
Else
       LCDOUT "Zero"
Endif
EndProgram:
end