aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Task/Bitwise-operations/FutureBasic/bitwise-operations.futurebasic Normal file
View file

@ -0,0 +1,29 @@
include "ConsoleWindow"
// Set tab width for printing
def tab 1
local fn rotl( b as long, n as long ) as long
end fn = ( ( 2^n * b) mod 256) or (b > 127)
local fn rotr( b as long, n as long ) as long
end fn = (b >> n mod 32) or ( b << (32-n) mod 32)
local fn bitwise( a as long, b as long )
print "Input: a = "; a; " b = "; b
print
print "AND :", "a && b = ", bin$(a && b), ": "; a && b
print "NAND :", "a ^& b = ", bin$(a ^& b), ": "; a ^& b
print "OR :", "a || b = ", bin$(a || b), ": "; a || b
print "NOR :", "a ^| b = ", bin$(a ^| b), ": "; a ^| b
print "XOR :", "a ^^ b = ", bin$(a ^^ b), ": "; a ^^ b
print "NOT :", " not a = ", bin$( not a), ": "; not a
print
print "Left shift :", "a << b =", bin$(a << b), ": "; a << b
print "Right shift :", "a >> b =", bin$(a >> b), ": "; a >> b
print
print "Rotate left :", "fn rotl( a, b ) = ", bin$(fn rotl( a, b)), ": "; fn rotl( a, b )
print "Rotate right :", "fn rotr( a, b ) = ", bin$(fn rotr( a, b )),": "; fn rotr( a, b )
end fn
fn bitwise( 255, 2 )