fork download
copy 
  1. set bin [gets stdin]
  2. set dec 0
  3. foreach char [split $bin ""] {set dec [expr {($dec << 1) + $char}]}
  4. puts $dec
  5.  
Success #stdin #stdout 0.01s 15768KB
comments (?)
stdin
copy 
1101000111010010010011000010110010100000111000000110010110000001110100100110000000011001100101100000
stdout
copy 
1038985619166112094008486500704
https://ideone.com/qpqtn9
language:
TCL (tcl 8.6)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!