Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
11
Task/Bitwise-operations/Retro/bitwise-operations.retro
Normal file
11
Task/Bitwise-operations/Retro/bitwise-operations.retro
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
: bitwise ( ab- )
|
||||
cr
|
||||
over "a = %d\n" puts
|
||||
dup "b = %d\n" puts
|
||||
2over and "a and b = %d\n" puts
|
||||
2over or "a or b = %d\n" puts
|
||||
2over xor "a xor b = %d\n" puts
|
||||
over not "not a = %d\n" puts
|
||||
2over << "a << b = %d\n" puts
|
||||
2over >> "a >> b = %d\n" puts
|
||||
2drop ;
|
||||
Loading…
Add table
Add a link
Reference in a new issue