From Binary to Decimal Digits

xxxxxxxxxx

 

1

print(r.eval("""

2

bin2dec<-function(n) {

3

    sapply(strsplit(as.character(n),split=''),

4

           function(x) 

5

               sum(as.numeric(x)*2**(rev(seq_along(x)-1))))}

6

bin2dec(c('11100110010','10001','1010101111','1001001','10'))"""))

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages