fork download 
  1. procedure main()
  2. 	ai := read() 
  3. 	d := 50
  4. 	a :=  reverse(ai[1:d+1])
  5. 	b := reverse(ai[d+1:d*2+1])
  6. 	s := 0
  7.  
  8. 	every i := 1 to d do {
  9. 		s *:= 2
  10. 		s +:= a % 10
  11. 		a /:= 10
  12. 	}
  13. 	every i := 1 to d do {
  14. 		s *:= 2
  15. 		s +:= b % 10
  16. 		b /:= 10
  17. 	}
  18. 	write(s)
  19. end
Success #stdin #stdout 0s 4996KB
comments (?)
stdin 
1000111010010110110001100100110011110101010000101110100011010011100001001001100010011011111011100001
stdout 
706066347452196732955498495713
https://ideone.com/qjiMiM
language:
Icon (iconc 9.5.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!