Non-decimal radices/Input: Difference between revisions
Content added Content deleted
m (Results added, and a declaration.) |
|||
Line 681: | Line 681: | ||
=={{header|PL/I}}== |
=={{header|PL/I}}== |
||
<lang PL/I> |
<lang PL/I>declare N fixed binary; |
||
get edit (N) (A(7)); /* decimal input of 7 columns */ |
get edit (N) (A(7)); /* decimal input of 7 columns */ |
||
put skip list (N); |
put skip list (N); |
||
Line 687: | Line 687: | ||
declare BS bit (32); |
declare BS bit (32); |
||
get edit (BS) (B(32)); /* Binary input of 32 binary digits. */ |
get edit (BS) (B(32)); /* Binary input of 32 binary digits. */ |
||
put skip edit (BS) (B); |
put skip edit (BS) (B);</lang> |
||
< |
<pre> |
||
23 |
|||
11010101010111111110000000011101 |
|||
</pre> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |