fork(3) download 
  1. main = print $ iter 2 half $ Just 127
  2.  
  3. iter c f 
  4. 	|c > 0 = iter (c-1) f.f
  5. 	|True = id
  6.  
  7.  
  8. half (Just a)
  9. 	|mod a 2 == 0 = return (div a 2)
  10. 	|True 		  = Nothing
  11. half _ = Nothing
  12.  
Success #stdin #stdout 0s 6272KB
comments (?)
stdin 
Standard input is empty
stdout 
Nothing
https://ideone.com/UTuTiF
language:
Haskell (ghc 8.4.4)
created:
12 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!