March 2014 update

This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions

View file

@ -1,6 +1,4 @@
=={{header|BBC BASIC}}==
{{works with|BBC BASIC for Windows}}
<lang bbcbasic> IF FNisodd%(14) PRINT "14 is odd" ELSE PRINT "14 is even"
IF FNisodd%(14) PRINT "14 is odd" ELSE PRINT "14 is even"
IF FNisodd%(15) PRINT "15 is odd" ELSE PRINT "15 is even"
IF FNisodd#(9876543210#) PRINT "9876543210 is odd" ELSE PRINT "9876543210 is even"
IF FNisodd#(9876543211#) PRINT "9876543211 is odd" ELSE PRINT "9876543211 is even"

View file

@ -0,0 +1,3 @@
even(N) :-
(between(0, inf, N); integer(N) ),
0 is N mod 2.

View file

@ -0,0 +1 @@
odd(N) :- N = 0 -> false; 0 is lsb(abs(N)).

View file

@ -0,0 +1,2 @@
5 even
5 odd

View file

@ -0,0 +1,2 @@
Number>>even
^((self digitAt: 1) bitAnd: 1) = 0