March 2014 update
This commit is contained in:
parent
09687c4926
commit
a25938f123
1846 changed files with 21876 additions and 5203 deletions
|
|
@ -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"
|
||||
|
|
|
|||
3
Task/Even-or-odd/Prolog/even-or-odd-1.pro
Normal file
3
Task/Even-or-odd/Prolog/even-or-odd-1.pro
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
even(N) :-
|
||||
(between(0, inf, N); integer(N) ),
|
||||
0 is N mod 2.
|
||||
1
Task/Even-or-odd/Prolog/even-or-odd-2.pro
Normal file
1
Task/Even-or-odd/Prolog/even-or-odd-2.pro
Normal file
|
|
@ -0,0 +1 @@
|
|||
odd(N) :- N = 0 -> false; 0 is lsb(abs(N)).
|
||||
2
Task/Even-or-odd/Smalltalk/even-or-odd-1.st
Normal file
2
Task/Even-or-odd/Smalltalk/even-or-odd-1.st
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
5 even
|
||||
5 odd
|
||||
2
Task/Even-or-odd/Smalltalk/even-or-odd-2.st
Normal file
2
Task/Even-or-odd/Smalltalk/even-or-odd-2.st
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
Number>>even
|
||||
^((self digitAt: 1) bitAnd: 1) = 0
|
||||
Loading…
Add table
Add a link
Reference in a new issue