fork download 
  1. (de f (x b s)
  2. 	(if (= x 0) s (f (/ x 10) (* 2 b) (+ (* b (% x 10)) s))))
  3.  
  4. (de main ()
  5. 	(let (n (read))
  6. 		(prinl (f n 1 0))
  7. 	)
  8. )
  9.  
  10. (in NIL (main))
  11.  
Success #stdin #stdout 0s 3768KB
comments (?)
stdin 
1101101011110110111010010111110111100010100100000100010100100111100110011001110010110100101111001110
stdout 
1084259688419801060569760091086
https://ideone.com/y0woG4
language:
Pico Lisp (pico 18.12.27)
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!