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 < 34; 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 < 34; i++){
  22.     	deci = deci dec[33 - i]
  23.     }
  24.  
  25.     print deci
  26. }0011101101011111011011110110010100110101100101001101001100100111111000000000011000110110000110111111
Success #stdin #stdout 0s 5896KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0000000000000000000000000000000000
https://ideone.com/YHgyq7
language:
AWK (gawk 4.2.1)
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!