Logical operations: Difference between revisions
Content deleted Content added
add language: Retro |
|||
Line 984: | Line 984: | ||
0 |
0 |
||
</lang> |
</lang> |
||
=={{header|Retro}}== |
|||
<lang Retro>: .bool ( f- ) [ "true" ] [ "false" ] if puts cr ; |
|||
: logic ( ab- ) |
|||
"\na = " puts over .bool "b = " puts dup .bool |
|||
"\na and b = " puts 2dup and .bool |
|||
"\na or b = " puts over or .bool |
|||
"\nnot a = " puts not .bool ;</lang> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |