fork download
copy 
  1. END{
  2.     str = $0
  3.     for(i = 0; i < 100; i++){
  4.        bin[i] = int(substr(str, i + 1, 1))
  5.     }
  6.  
  7.     for(i = 0; i < 35; i++){
  8.     	rem = 0
  9.         for(j = 0; j < 100; j++){
  10.         	rem *= 2
  11. 			rem += bin[j]
  12. 			bin[j] = int(rem / 10)
  13. 			rem %= 10
  14. 		}
  15.  
  16.         dec[i] = rem
  17.     }
  18.  
  19.     deci = ""
  20.  
  21.     for(i = 0; i < 35; i++){
  22.     	deci = deci dec[33 - i]
  23.     }
  24.  
  25.     print deci
  26. }
Success #stdin #stdout 0s 5896KB
comments (?)
stdin
copy 
1100110111011001001100100001010010110000100100101000111010100010010001100011100111000100010000001110
stdout
copy 
0001019312006659432436813314933774
https://ideone.com/nGBSgd
language:
AWK (gawk 4.2.1)
created:
8 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!