Binary digits: Difference between revisions
Content deleted Content added
m Add R solution |
|||
| Line 3,220: | Line 3,220: | ||
(for ([i 16]) (displayln (number->string i 2))) |
(for ([i 16]) (displayln (number->string i 2))) |
||
</lang> |
</lang> |
||
=={{head|R}}== |
|||
<lang rsplus> |
|||
dec2bin <- function(num) { |
|||
ifelse(num == 0, |
|||
0, |
|||
sub("^0+","",paste(rev(as.integer(intToBits(num))), collapse = "")) |
|||
) |
|||
} |
|||
for (anumber in c(0, 5, 50, 9000)) { |
|||
cat(dec2bin(anumber),"\n") |
|||
} |
|||
{{Out}} |
|||
<pre> |
|||
0 |
|||
101 |
|||
110010 |
|||
10001100101000 |
|||
</lang> |
|||
=={{header|RapidQ}}== |
=={{header|RapidQ}}== |
||