My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 22nd, 2010 | Syntax: Haskell | Size: 0.28 KB | Hits: 116 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. import List
  2.  
  3. next :: Int -> Int
  4. next 1 = 1
  5. next n = if even n then n `div` 2 else 3*n+1
  6.  
  7. count 1 = 1
  8. count n = count' 0 n
  9.     where count' !c n = if nextn == 1 then c+1 else count' (c+1) nextn
  10.           nextn = next n
  11.  
  12. counts = [(count n) | n <- [1..1000000] ]
  13.  
  14. e14 = maximum  counts
create new paste | create new version of this paste RAW Paste Data