fork download
copy 
  1. bin2dec = foldl1 ((+) . (/ 2))
  2.  
  3. main :: IO ()
  4. main = print ( bin2dec (reverse [0,0,0,0,1,1,1,0,0,0,1,1,0,1,0,1,0,0,1,1,1,1,1,1,0,1,1,1,1,1,0,0,1,1,1,0,1,1,0,1,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,1]))
  5. --main = print ( bin2dec (reverse [0,0,0,0,1,1,1,0,0,0,1,1,0,1,0,1,0,0,1,1,1,1,1,1,0,1,1,1,1,0,0,1,1,1,0,1,1,0,1,1,0,0,1,0,0,0,1,0,1,1]))
Success #stdin #stdout 0s 6304KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0.111
https://ideone.com/yoWGeh
language:
Haskell (ghc 8.4.4)
created:
11 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!