Find limit of recursion: Difference between revisions
→{{header | Haskell}}: (added a point free version)
(→{{header | Haskell}}: (added a point free version)) |
|||
Line 912:
main = print $ recurse 1</lang>
Or point-free:
<lang haskell>import Debug.Trace (trace)
import Data.Function (fix)
recurse :: Int -> Int
Or, testing up to a given depth:▼
recurse = fix ((<*> succ) . flip (trace . show))
main :: IO ()
main = print $ recurse 1</lang>
▲Or, more practically, testing up to a given depth:
<lang haskell>import Debug.Trace (trace)
| |||